Perl

GMail App Password

See more GMail SMTP/IMAP/POP Examples

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

use chilkat();

$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:
$imap = chilkat::CkImap->new();

$imap->put_Ssl(1);
$imap->put_Port(993);

$success = $imap->Connect("imap.gmail.com");
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

$success = $imap->Login('user@gmail.com',"srnyyvqajocnsvdp");
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

print "IMAP Success!" . "\r\n";

# For SMTP..

$mailman = chilkat::CkMailMan->new();

$mailman->put_SmtpHost("smtp.gmail.com");

$mailman->put_SmtpUsername('user@gmail.com');
$mailman->put_SmtpPassword("srnyyvqajocnsvdp");

$mailman->put_SmtpSsl(1);
$mailman->put_SmtpPort(465);

$success = $mailman->SmtpConnect();
if ($success == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

$success = $mailman->SmtpAuthenticate();
if ($success == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

print "SMTP Success!" . "\r\n";