Excel’den Outlook kullanarak mail gönderme

[ozuberk]

Merhaba,

A sütununda mail adresleri, b sütununda PDF dosyasının yolu var. Sorum mail adreslerine herbir PDF ek yapımım nasıl gönderebilirim.

Örneğin.
A Sütunu B Sütunu
a@a.com D:\1.pdf
b@b.com D:\3.pdf
c@c.com D:\10.pdf

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz. Verilerinizin 2. satırdan başladığını varsaydım.

Option Explicit

Sub MAIL_GONDER()
    Dim Outlook_App As Object
    Dim Outlook_Mail As Object
    Dim S1 As Worksheet, X As Long
    
    Set Outlook_App = CreateObject("Outlook.Application")
    Set S1 = Sheets("Sayfa1")
    
    For X = 2 To S1.Cells(S1.Rows.Count, 1).End(3).Row
        Set Outlook_Mail = Outlook_App.CreateItem(0)
        With Outlook_Mail
            .To = S1.Cells(X, 1)
            .CC = ""
            .Subject = "Cari Hesap Ekstresi"
            .Body = "Sayın Yetkili," & Chr(10) & Chr(10) & Chr(10) & _
                    "Ekte 2013 yılı TEMMUZ ayına ait BA-BS formunuz bulunmaktadır. Lütfen kontrol edip mutabık olup/olmadığınızı bildiriniz."
            .Attachments.Add S1.Cells(X, 2).Text
            .BodyFormat = 2
            .Save
            '.Send
            .Display
        End With
    Next
    
    Set S1 = Nothing
    Set Outlook_Mail = Nothing
    Set Outlook_App = Nothing

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ozuberk]

Korhan hocam elinize sağlık çok güzel olmuş.