Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Sep 9, 2021 4:37:03 AM
Sonja_Bauernfeind
Jul 6, 2012 1:01:08 AM
Attempting to connect to Gmail SMTP server over port 465 using SSL, but get a connection error.
The problem is that gmail-smtp port 465 requires SSL to work (http://support.google.com/mail/bin/answer.py?hl=en&answer=13287).
Sub SendGMail() ' Object creation Set objMsg = CreateObject("CDO.Message") Set msgConf = CreateObject("CDO.Configuration") ' Server Configuration msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 msgConf.Fields.Update ' Email objMsg.To = "user@gmail.com" objMsg.From = "fromuser@domain.com" objMsg.Subject = "Test send with Gmail account" objMsg.HTMLBody = "HTML/Plain text message." objMsg.Sender = "Mr. Name" Set objMsg.Configuration = msgConf ' Send objMsg.Send ' Clear Set objMsg = nothing Set msgConf = nothing End Sub