ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[yildirima]

Merhaba Arkadaşlar,

Bir dosya üzerinde yapmış olduğum çalışmanın sonuna geldim. Son işlem olarak meail atmak istiyorum. Herşeyi tamamladım ama sorunum meaili Outlooktan değil alternatif bir meailden atmak istiyorum. ( Outlook 2016 ve Chrome üzerinden açtığım Office 365 var. Outlook 2016 kıstlamalar yüzünden çalışmıyor. Sadece eski arşivime ulaşabilmek için kaldırmadım.) Aşağıdaki kod outloktan göndermeye çalışıyor. Çalışmadığı için meail göndermiyor.

Sub Mail_gnd()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "ahmet.yildirim@*****.com"
.cc = ""
.Subject = "Test1"
.send
End With
MsgBox "E-Mail gonderilmistir.", vbInformation, Application.UserName
End Sub

[bilgiislemci]

selam
Mail adrresini doğru yazarsan gidiyor. test ettim