Hücre aralığına mail gönderme.

[Cihan SK]

Herkese Merhabalar,

Bir konuda takıldım. .To kısmında yazan tek hücre aralığını birden fazla hücre aralığına nasıl çevirebilirim. mesela "M1" değilde "M1:M5" aralığı şeklinde olmalı.

Yardımcı olan arkadaşlara şimdiden çok teşekkür ediyorum.

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]

Outlookda olmasını istediğiniz şekilde bir görüntü ile örnek dosya eklerseniz yardımcı olmaya çalışalım. M1:M5 aralığındaki verileri değer olarak almak istiyorsanız.
.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 çalıştı