E-mail

[odhyy]

Merhabalar,

Elimdeki dosyanın 1.sütununda isimler, 2.sütununda bu isimlere ait e-mail adresleri var. Acaba şöyle bir program mümkünmüdür? ;

program listenin 1.satır 1.kolondaki ismi alıp mail ile yollanacak yazının başına "Dear isim", 1.satır 2.kolondaki mail adresini de alıp mail gönderilecek adrese (to) koysun. Bu işlem herbir satır için, taki satırlar bitene kadar, devam etsin.

Eğer bu veya buna benzer bir program mevcutsa, çok sevinirim.

Teşekkürler.

 

[hamitcan]

Küçük bir dosya ekleyin, daha çabuk cevap bulabilirsiniz.

 

[odhyy]

Haklısınız.

Ekledigim dosyadaki isimlere, yukarıda belirttigim gibi, direkt isimlerine hitaben mail göndermem mümkünmüdür?

Lütfen yardım ediniz.
Teşekkürler

 

[hamitcan]

Aşağıdaki kodu deneyin.

Sub mailat()
Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
For i = 1 To [a65536].End(3).Row
    With NewMail
    .to = Cells(i, "b")
    .Subject = "deneme"
    .Body = "Sayın " & Cells(i, "a") & " bu bir denemedir"
'    .Attachments.Add "C:\deneme.txt"
    .Send
    End With
Next
    Set NewMail = Nothing
    Set OutApp = Nothing
End If
End Sub