(Tcl) SMTP GMail Send using App Password

See more GMail SMTP/IMAP/POP Examples

Demonstrates how to authenticate using an app password with GMail for SMTP (port 465 using implicit SSL/TLS).

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# Starting May 30, 2022, Google will no longer support the use of third-party apps or devices 
# which ask you to sign in to your Google Account using only your username and password.

# Instead of authenticating with your GMail username/password, a GMail user can create an App Password
# and then login using their username/app_password.   It's literally the same, except it allows a GMail
# account owner to isolate passwords to specific applications.

# The Gmail account owner would first need to make sure she has 2-Step Verification setup for her account.
# Note: The 2FA verification is not a factor when authenticating with an app password. The 2FA is required
# to setup app passwords in the Google account console.  See Sign in with App Passwords

# After the GMail account owner has setup his app password, he simply uses the app password instead of his GMail account password.

set mailman [new_CkMailMan]

CkMailMan_put_SmtpHost $mailman "smtp.gmail.com"

CkMailMan_put_SmtpUsername $mailman "user@gmail.com"
CkMailMan_put_SmtpPassword $mailman "srnyyvqajocnsvdp"

CkMailMan_put_SmtpSsl $mailman 1
CkMailMan_put_SmtpPort $mailman 465

set success [CkMailMan_SmtpConnect $mailman]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

set success [CkMailMan_SmtpAuthenticate $mailman]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

puts "SMTP Success!"

delete_CkMailMan $mailman