Mail Atma

[dir_rid]

Merhaba;

Excelde Bir sutunda mail adresleri diğer sutundada maile eklenecek eklentilerin isimleri var.

mail adreslerine eklediğim dosya ile birlikte mail atmak için nasıl bir macro kullanmalıyım ?

 

[Haluk]

Kullanacağınız kod aşağıdadır; (MS Outlook için)

Sub Test()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim i as long, NoA As Long
    NoA = Sheets("Sheet1").Cells(65536, 1).End(xlUp).Row
    Set objOutlook = CreateObject("Outlook.Application")
    For i = 2 To NoA
        Set objMail = objOutlook.CreateItem(0)
        With objMail
            .To = Sheets("Sheet1").Range("A" & i).Text
            .Subject = "Merhaba"
            .Body = "İlgi dosya ektedir.."
            .Attachments.Add "C:\" & Sheets("Sheet1").Range("B" & i).Text
            .Save
            .Send
        End With
        Set objMail = Nothing
    Next
    Set objOutlook = Nothing
End Sub