Vba ile mail gönderme

[erginylmz]

Arkadaşlar merhaba

Örnekte bulunan mail adreslerine sarı alanı mail olarak göndermek istiyorum. Düğme 1 e bastığımızda a2-a3-a4 hücrelerinde mail adreslerine sarı alanı mail atsın istiyorum.

 

[Tevfik_Kursun]

Merhaba,
www.asriakdeniz.com adresinde Asri hocanın çalışmalarını inceleyiniz
Kolay gelsin

 

[halit3]

Aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f48/mail-gonderme-outlook-acylmadan-t155982.html#post849059

 

[Cihan SK]

benzer kodlama türü banada gerekiyor. bende bakıyorum M1:M5 aralığındaki mail adreslerine mail göndermek istiyorum. .To kısmındaki tek hücre aralığını nasıl çoğaltabilirim.

Dim objOutlook As Object
    Dim objMail As Object
    Dim i As Long, NoA As Long
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    With objMail
        .To = Range("M1").Value
        .CC = Range("M2").Value
        .Subject = ""
        .Attachments.Add yol
        .Display
        '.HTMLBody = .HTMLBody & "<br><br><br>" & Signature.ReadAll
        .Save
        '.Send
    End With

 

[askm]

.To = Range("M1").Value & " " & Range("M2").Value şeklinde yan yana ya da
.To = Range("M1").Value & vbLf & Range("M2").Value şeklinde alt alta yazabilirsiniz.Tabiki bunu to öncesinde
for i=1 to 5
.To = Cells(i,"M").Value & vbLf
next
şeklinde döngü ile de yapabilirsiniz.

 

[Cihan SK]

Çok teşekkürler gayet başarılı bir şekilde oldu

 

[askm]

Rica ederim.