Sending Email via Google Workspace (Gmail) using CDOSYS

If you prefer to relay email through Google Workspace (formerly G Suite) or Gmail instead of using our local mail server, you can configure CDOSYS to connect to Google's SMTP servers.

Crucial Prerequisite: App Passwords

Google no longer supports "Less Secure Apps" using your standard account password. To use the code below, you must:

1. Enable 2-Step Verification on your Google Account.
2. Go to your Google Security settings and generate an App Password.
3. Use that 16-character App Password in the script below instead of your regular email password.

Classic ASP Example

The following VBScript configures CDOSYS to use Google's SMTP server on port 465 with SSL enabled.

<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")

'Configuration Constants
Const cdoSendUsingPort = 2
Const cdoBasicAuth = 1

'Get the configuration fields
Dim iConf
Set iConf = ObjSendMail.Configuration.Fields

'Set the configuration for GMAIL / Google Workspace
With iConf
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    'Authentication
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "yourname@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourAppPassword" ' Use App Password here!
    .Update
End With

'Create the message
With ObjSendMail
    .To = "recipient@external.com"
    .From = "yourname@gmail.com" 'Must match the authenticated account
    .Subject = "Test Email via Gmail"
    .TextBody = "This message was sent using CDOSYS and Google SMTP."
    .Send
End With

Set ObjSendMail = Nothing
%>