Toplu(Birden Fazla Kişiye Mail Atma) Mail Gönderme.

[erkan1907]

herkese merhaba,
örnek dosyada olduğu gibi elimde firma bilgilerini içeren bir excel dosyası var.
ben bu dosyadaki G sütunundaki mail adreslerine topluca mail atmak istiyorum.
microsoft outlook kullanıyorum. Bunu kolay bi şekilde nasıl yapabilirim?
teşekkürler
kolay gelsin...

 

[hamitcan]

Sub BirdenFazlaKisiyeMailAt()
Set OutApp = New Outlook.Application
For i = 2 To [g65536].End(3).Row
    Set NewMail = CreateItem(olMailItem)
        With NewMail
            .to = Cells(i, "g")
            .Subject = "deneme"
            .Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir."
            .Send
         End With
    Set NewMail = Nothing
    Set OutApp = Nothing
Next
MsgBox "Bitti."
End Sub

 

[erkan1907]

Sub BirdenFazlaKisiyeMailAt()
Set OutApp = New Outlook.Application
For i = 2 To [g65536].End(3).Row
    Set NewMail = CreateItem(olMailItem)
        With NewMail
            .to = Cells(i, "g")
            .Subject = "deneme"
            .Body = "Sayın Yetkili Bu mail ekte görmüş olduğunuz mail bilgi için gönderilmiştir."
            .Send
         End With
    Set NewMail = Nothing
    Set OutApp = Nothing
Next
MsgBox "Bitti."
End Sub

Compile error hatası aldım.
user-defined type not defined yazıyor ve ikinci satırdaki New Outlook. Application yazısını gösteriyor ?????

 

[hamitcan]

"Microsoft Outlook XX.0 Object Library" referansını ekleyin.

 

[erkan1907]

Hocam bu çok güzel olmuş öncelikle onun için çok teşekkür ederim.
Bunun üzerinde biraz düzeltme yapabilirmiyiz? Yani burda kod görüntüle de F5 yapınca gönderiyor ok ama her adres için soru soruyor evet dememiz gerekiyor. Bunun yerine kodu çalıştırdığımızda bu adresleri outlook taki kime kısmına eklese ve biz tek bi seferde gönder tuşuna basarak göndersek olurmu??

 

[hamitcan]

Uyarısız mail gönderme ile ilgili detayları aşağıdaki linkten öğrenebilirsiniz.(152. mesaj)http://www.excel.web.tr/f48/makroyla-email-gonderme-t2119/sayfa16.html

 

[erkan1907]

söylediğiniz mesajı ve diğerlerini inceliyorum, bu arada şunu sorsam, bu tablodaki adresleri direk olarak outlook ta adres defterine ekleyemezmiyim??
tek tek girmek çok uzun zaman alıcak ama excelden direk adres defterine aktarmak istesem???

 

[hamitcan]

Görsel şekilde anlatılmış, incelemenizi öneririm.
http://www.outlookpower.com/issues/issue200703/00001954001.html

 

[erkan1907]

Hocam Allah razı olsun, işlem tamamdır.
Kolay gelsin...