I am having issues with sending an email through chrome. I receive an error with ".Send" displaying: "The 'SendUsing' configuration value is invalid."
Do I need to have a specific reference that needs to be added? It does not seem that CDO is an object in my library.
If it helps, my work domain is "@brp.com" and not "@gmail.com"... not sure if that makes a difference with the /sendusing configuration.
Current code:
Code:
Function sendemail()
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/connection/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xx@xx.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xx"
.Update
End With
' build email parts
With cdomsg
.To = "xx@xx.com"
.From = "xx@xx.com"
.Subject = "subject"
.TextBody = "read"
.Send
End With
Set cdomsg = Nothing
End Function