- Katılım
- 27 Eylül 2016
- Mesajlar
- 60
- Excel Vers. ve Dili
- 2010 tr
- Altın Üyelik Bitiş Tarihi
- 12.05.2024
Arkadaşlar elimde böyle bir kod var. Sadece düz mail gönderiyor. ancak buna nasıl ek eklemeyi yaparız.
Çalışma kitabı içindeki "rapor" adlı sayfayı ayırıp farklı kaydedip bunu da maile ek olarak ekleyip karşıya göndermesini istiyorum.
Sub Excel_Gmail()
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "abcQgmail.com"
Flds.Item(schema & "sendpassword") = "12345"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "adanalı@gmail.com"
.From = "Gönderen adı"
.Subject = "güncel rapor"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub
Çalışma kitabı içindeki "rapor" adlı sayfayı ayırıp farklı kaydedip bunu da maile ek olarak ekleyip karşıya göndermesini istiyorum.
Sub Excel_Gmail()
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "abcQgmail.com"
Flds.Item(schema & "sendpassword") = "12345"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "adanalı@gmail.com"
.From = "Gönderen adı"
.Subject = "güncel rapor"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub