Outlooka Bağlı 2.Hesaptan Mail Göndermek

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,514
Excel Vers. ve Dili
Ofis 2016
Merhaba Arkadaşlar,
Aşağıdaki kod gayet güzel bir şekilde Outlook üzerinden mail gönderiyor. Ama "Varsayılan" adresten gönderiyor. Outlookta 1'den fazla mail adresi kayıtlı ise 2. veya 3.adresi nasıl tanımlamak gerekir acaba !

Sub Mail_Gonderme()

Dim Outlook As Object, yeni As Object, i As Long
Set Outlook = CreateObject("Outlook.Application")
Set yeni = Outlook.CreateItem(0)
With yeni
.To = Range("M" & 10).Value
.CC = Range("M" & 11).Value
.Subject = Range("C" & 7).Value
.Body = Range("B" & 9).Value
'.Attachments.Add "D:\Users\MAIN\Desktop\REPORT1.xlsx"
.Display
.Send
End With
Set Outlook = Nothing: Set yeni = Nothing: i = Empty

End Sub
 
Üst