Sending email using Gmail - VBA

[anshikam]

Dear All,

I have the below code which when executed gives me an error message 'invalid sendusing configuration'.
Any help would be appreciated.


Sub EMAIL()

' EMAIL Macro

Dim Mail As CDO.Message
Set Mail = New CDO.Message

Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*******@hospital.com"
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******"

With Mail
.Subject = "Test Mail"
.From = "*********@hospital.com"
.To = "***********@gmail.com"
.CC = "*********@hospital.com"
.TextBody = "PFA Thanks Anshika"
.AddAttachment "F:\Corporate\Anshika\Due Dates\sent\test.txt"
End With

Mail.Send
MsgBox "MailSent"
Set Mail = Nothing

End Sub