PowerBuilder

GMail App Password

See more GMail SMTP/IMAP/POP Examples

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

integer li_rc
integer li_Success
oleobject loo_Imap
oleobject loo_Mailman

li_Success = 0

// 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:
loo_Imap = create oleobject
li_rc = loo_Imap.ConnectToNewObject("Chilkat.Imap")
if li_rc < 0 then
    destroy loo_Imap
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Imap.Ssl = 1
loo_Imap.Port = 993

li_Success = loo_Imap.Connect("imap.gmail.com")
if li_Success = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

li_Success = loo_Imap.Login("user@gmail.com","srnyyvqajocnsvdp")
if li_Success = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

Write-Debug "IMAP Success!"

// For SMTP..

loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")

loo_Mailman.SmtpHost = "smtp.gmail.com"

loo_Mailman.SmtpUsername = "user@gmail.com"
loo_Mailman.SmtpPassword = "srnyyvqajocnsvdp"

loo_Mailman.SmtpSsl = 1
loo_Mailman.SmtpPort = 465

li_Success = loo_Mailman.SmtpConnect()
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Imap
    destroy loo_Mailman
    return
end if

li_Success = loo_Mailman.SmtpAuthenticate()
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Imap
    destroy loo_Mailman
    return
end if

Write-Debug "SMTP Success!"


destroy loo_Imap
destroy loo_Mailman