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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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:
my $imap = Chilkat2::Imap->new;

$imap->Ssl(1);
$imap->Port(993);

my $success = $imap->Connect('imap.gmail.com');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

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

print "IMAP Success!\n";

# For SMTP..

my $mailman = Chilkat2::MailMan->new;

$mailman->SmtpHost('smtp.gmail.com');

$mailman->SmtpUsername('user@gmail.com');
$mailman->SmtpPassword('srnyyvqajocnsvdp');

$mailman->SmtpSsl(1);
$mailman->SmtpPort(465);

$success = $mailman->SmtpConnect();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

$success = $mailman->SmtpAuthenticate();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

print "SMTP Success!\n";