Excel Makro Mail Gönderme

[ridvanucok]

Arkadaşlar merhaba,

Ekte örnek datam yer almaktadır.

Yapmak istediğim her satır için bir mail göndermesi. Yani A sütununda yer alan Mail Konu Başlığı'nı başlığa, To, Cc, Bcc bilgilerini ilgili yerlere ekleyerek; E sütununda yer alan Mail İçeriği'ndeki dataların format, boyut v.s değiştirmeyerek maile eklemesi ve her maile otomatik olarak örnek datada da belirttiğim üzere imza eklemesi.

Konu hakkında değerli yardım ve yönlendirmelerinizi rica ederim.

Teşekkürler & İyi çalışmalar.

 

[ridvanucok]

Merhaba,

Konu günceldir. Ekli dosya ile mail gönderimi yapabiliyorum ama konu başlığı ve içeriği sürekli değişken olmalı, konu hakkında yardımlarınızı rica ederim.

İyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Hangi dosyaya göre mail göndermek istiyorsunuz?

 

[Asri]

E kolonundaki Merhaba yazısını kaldırın.

Mail imzanız outlook mail imzası olarak kullanılacaktır.
İlk dosyaya göre yapılmıştır.

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(i, "A").Value
       .To = Cells(i, "B").Value
       .CC = Cells(i, "C").Value
       .BCC = Cells(i, "D").Value
       .Display
       .htmlbody = "Merhaba," & "<br><br>" & Cells(i, "E").Value & .htmlbody
       .send
      End With
      
      Set wrdEdit = Nothing
      Set OutMail = Nothing
      Set OutApp = Nothing
    Next i
End Sub

 

[Fuatckmk]

edit :yanlış yere yazdım