Excel mail gönderme programsız(outlook vb programları kullanmadan) Smtp Hakk.

[kaiserr76]

Merhaba,

Bu şekilde internette bulduğum bazı kaynaklar var fakat başarılı bir sonuç elde edemedim.

daha önce bu konuyla ilgilenmiş ya da makro oluşturmuş olan var mı aramızda ?

 

[kaiserr76]

arkadaşlar bir çözüm buldum sizler ile paylaşmak istedim.

Mailiniz ile alakalı gerekli alanları doldurmanız gerekmekte. Ben office365 maili ile başarılı oldum.
Ayrıca EASendMail Installer bu eklentiyi kurmalı ve reference kısmından eklemelisiniz.
https://emailarchitect.net/easendmail/ex/b/13.aspx



Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant



Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '587 '465 '25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xyz@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
.Update
End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "charlie@gmail.com"
.CC = ""
.BCC = ""
.From = "xyz@gmail.com"
.Subject = "New figures"
.TextBody = strbody
.Send
End With
End Sub