(Tcl) GMail App Password

See more GMail SMTP/IMAP/POP Examples

Demonstrates how to authenticate using an app password with GMail for IMAP and SMTP.

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.

# For example:
set imap [new_CkImap]

CkImap_put_Ssl $imap 1
CkImap_put_Port $imap 993

set success [CkImap_Connect $imap "imap.gmail.com"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

set success [CkImap_Login $imap "user@gmail.com" "srnyyvqajocnsvdp"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

puts "IMAP Success!"

# For SMTP..

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_CkImap $imap
    delete_CkMailMan $mailman
    exit
}

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

puts "SMTP Success!"

delete_CkImap $imap
delete_CkMailMan $mailman