live mail kullanarak mail gönderme

[tgtd]

Sayın üstadlarım bir konuda yardımınıza ihtiyacım var, aşağıdaki resimdeki listemde a sütununda metin b sütununda kişilerin mail adresleri mevcut. gönder butonuna bastığımda a1 deki metinleri b1 deki mail adresine, a2-b2 ye a3-b3 e vs vs, live mail kullanarak yapabilecek bir kod var mıdır teşekkürler.

 

[snx111]

outlook olarak olabilir live maililin kitaplıkta referansı varsa oda olabilir outlookta dosya için

Sub SendEmail()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "deneme@birmailadresi.com"
.Subject = "Deneme"
.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
.Attachments.Add "C:\Test.xls"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[tgtd]

Nette bulduğum Ekteki dosya ile mail gönderebiliyorum tam istediğim gibi, fakat listedeki kişileri filtreleyip verileri excel dosyası olarak oluşturup ek dosya olarak gönderiyor. benim istediğim bu verileri yine aynı şekilde oluşturup live mailin HTML bölümüne yapıştırmasını istemekteyim.

 

[tgtd]

yardımcı olabilecek yok mu arkadaşlar..