MsExcelden MsOutlooktaki Varsayılan Mail Adresini Değiştirme

[asi_kral]

Selamun Aleyküm
Daha önce Sayın Korhan Ayhan Bey'in Excel'den Outlook'a mail gönderme kodunu kullanıyorum.
Yalnız bunda varsayılan mail adresinden gönderim yapılmaktadır. Bense bu varsayılan gönderim ayarını dilediğim adresten yapmak istiyorum.
Teşekkür ederim.

 

[asi_kral]

Selamun Aleyküm
Sanırım bir çözümü yok.

 

[Korhan Ayhan]

Forumda arama yapmak faydalı olabilir..

Sorgu için arama sonuçları: SendUsingAccount

www.excel.web.tr

 

[asi_kral]

Hocam öncelikle teşekkür ederim.
Formda ve Google de arama yapmıştım aslında ama böyle bir şey karşıma hiç çıkmadı demek ki yanlış aramışım.
Kodu uyarladım. Ayrıca uyarladığım kod'a sizden yürütmeyi başardığım diğer kod ile birleştirmeyi de başardım.
Çok fazla mail adresi de olsa dilenen mail adresinden gönderim yapılabiliyor.

Sub mail()
Dim Outlook_App As Object
Dim Outlook_Mail As Object
Dim X As Long, X1 As Long
Set Outlook_App = CreateObject("Outlook.Application")
Set Outlook_Mail = Outlook_App.CreateItem(0)
Set WSHShell = CreateObject("wscript.Shell")
For X = 1 To Outlook_App.Session.Accounts.Count
If Outlook_App.Session.Accounts.Item(X) = "deneme@deneme.com" Then
X1 = X
End If
Next
With Outlook_Mail
Set .SendUsingAccount = Outlook_App.Session.Accounts.Item(X1)
.To = "deneme@deneme.com" 'Gönderilecek Adres
.CC = ""
.BCC = ""
.Subject = "Deneme Mail Değişiklik" 'Konu
.Body = ""
.Attachments.Add "Masaüstü\korhan_ayhan\asi_kral.pdf" ' Ek
.BodyFormat = 2
.Save
.Send
End With
Set Outlook_Mail = Nothing
Set Outlook_App = Nothing
End Sub

Teşekkür ederim.