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
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