Ustalardan Acil Yardım Gerekiyor

Katılım
11 Şubat 2016
Mesajlar
199
Excel Vers. ve Dili
2013
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
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

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

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
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