Hello
I have been using CDo for years to send email via gmail without the need for Outlook. CDO has been discontinued and although it was working on my Windows 10 machine without Outlook 2007 installed, it has suddenly stopped.
I would like to find a way to send email from Access via Google Apps (or gmail). Fro my searching nothing seems to exist.
Can you help?
Here is my old CDo code that worked.
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465
.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") = "me@myemaillogin.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "WpasswordW"
.Update
End With
With cdomsg
.To = toaddress
.From = "'Me' <me@myemail.com>"
.Replyto = "'Me' <me@myemail.com>"
.subject = subject
.HTMLBody = emailbody
.send
End With
Set cdomsg = Nothing