Excel'de satır bazında mail göndermek

Merhabalar

Makro yazarak bunu yapmak mümkün Örneğin;

Sub Gonder ()
    Dim OutlookUygulama As Object
    Dim Mail As Object

    Set OutlookUygulama= New Outlook.Application
    Set Mail= OutlookUygulama.CreateItem(0)

    With Mail
        .To = "[email protected]"  'Siz buraya dongu kurup exceldeki mailleri eklersiniz.
        .CC = "İsteğe bağlı"
        .BCC = "İsteğe bağlı"
        .Subject = "Konu"
        .Body = "Mesaj"
        .Attachments.Add ("C:\Dosya.txt")
        .Send 
    End With

    Set Mail= Nothing
    Set OutlookUygulama= Nothing
End Sub

Not: Bu kodun çalışabilmesi için Tools/Reference bölümünden Microsoft Outlook XX.X Object Library seçeneğinin onaylı olması gerekmektedir.

İyi çalışmalar

Merhaba ,

ekli dosyayı birden fazla mail adresi göndermek değil , excel dosyası içindeki her satırın karşısına denk gelen mail adresine o satırı iletmek istiyorum.Bu makro ile bunu yapabiliyor muyuz bi örnek gösterebilir misiniz 1.satırda diyelim testler yazıyo hemen yanında mail adresi [email protected] 2.satırda başka bir metin yazıyo hemen yanında [email protected]  direk olarak satırla mail adresini eşleştirip gönderebilmem mümkün mü ?

Sub Gonder ()
Dim OutlookUygulama As Object
Dim Mail As Object

Set OutlookUygulama= New Outlook.Application
Set Mail= OutlookUygulama.CreateItem(0)
for i=1 to 60 ' satir sayisi
With Mail
.To = range ( "b" & i )
.Body = range ("a" & i )
.Send
End With
next
Set Mail= Nothing
Set OutlookUygulama= Nothing
End Sub