Perl

Connecting to GMAIL using IMAP

Demonstrates how to connect to GMAIL using IMAP. Perl

use chilkat();

$success = 0;

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

$imap = chilkat::CkImap->new();

# Turn on session logging:
$imap->put_KeepSessionLog(1);

# Connect to GMail
# Use TLS
$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.gmail.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Login
# Your login is typically your GMail email address.
$success = $imap->Login('username@gmail.com',"myPassword");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Show the session log.
print $imap->sessionLog() . "\r\n";

# Disconnect from the IMAP server.
$success = $imap->Disconnect();