Code: Select all
Set Msg = CreateObject("CDO.Message")
With Msg
.To = "cashcashjonny@yahoo.com"
.From = "bananaman@mymail.com"
.Subject = "Hello"
.TextBody = "sample CDO message"
.Send
End With
Code: Select all
Const fromEmail = "me@gmail.com"
Const password = "*******"
Dim msg, emailConfig
Set msg = CreateObject("CDO.Message")
With Msg
.From = fromEmail
.To = "cashcashjonny@yahoo.com"
.Subject = "Hello"
.TextBody ="sample CDO message"
Set emailConfig = msg.Configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = fromEmail
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
emailConfig.Fields.Update
.Send
End With
Set msg = nothing
Set emailConfig = nothing
Any intelligence you can supply in relation to this matter would be much appreciated.
Thanks.
cashcashjonny
2012-04-16 11:19:31