• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Ustalardan Acil Yardım Gerekiyor

alirizapekbilir

Altın Üye
Altın Üye
Katılım
11 Şubat 2016
Mesajlar
140
Beğeniler
0
Excel Vers. ve Dili
2013
#1
Forumdan bulduğum bu sayfayı kendime uyarlamaya çalıştım. ama bir türlü mail göndermeyi başaramadım. hata mesajı alıyorum. sizce sorun nedir arkadaşlar. benim için çok acil.( run time 287 hatası veriyor )
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
12,421
Beğeniler
38
Excel Vers. ve Dili
Ofis 2003 İngilizce
Ofis 2007 Türkçe
Ofis 2010 Türkçe
#2
Merhaba,

Konu başlığınızı sorunuzu özetler şekilde değiştirin lütfen.
 

askm

Altın Üye
Altın Üye
Katılım
4 Haziran 2005
Mesajlar
2,365
Beğeniler
30
Excel Vers. ve Dili
2010-2016
#3
Kod:
Sub mail_gonder()
'     sonsatir = Cells(Rows.Count, "C").End(3).Row
'     For i = 2 To sonsatir
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
      With OutMail
       .Subject = Cells(4, "B").Value
       .To = Cells(2, "B").Value
       .CC = Cells(3, "B").Value
       .htmlbody = "<br><br>" & Cells(5, "B").Value ' & .htmlbody
'       .Display
       .send
      End With
      
      Set wrdEdit = Nothing
      Set OutMail = Nothing
      Set OutApp = Nothing
'    Next i
End Sub
 
Üst