baydeniro
Altın Üye
- Katılım
- 26 Ocak 2007
- Mesajlar
- 4,625
- Excel Vers. ve Dili
- Ofis 2016
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
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