Ustalardan Acil Yardım Gerekiyor

[alirizapekbilir]

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 )

 

[Necdet]

Merhaba,

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

 

[askm]

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