Perl Requires Chilkat v11.0.0+

POP3 STARTTLS

Demonstrates how to do POP3 STARTTLS. 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.

# The mailman object is used for receiving (POP3)
# and sending (SMTP) email.
my $mailman = Chilkat2::MailMan->new;

# Set the POP3 server's hostname
$mailman->MailHost('pop.gmail.com');

# Set the POP3 login/password.
$mailman->PopUsername('****@gmail.com');
$mailman->PopPassword('****');

# Indicate that we want TLS/SSL.  Also, set the port to 995:
$mailman->MailPort(995);
$mailman->PopSsl(1);

my $bundle = Chilkat2::EmailBundle->new;
my $keepOnServer = 1;
my $headersOnly = 0;
# Irrelevent because we are NOT downloading headers-only
my $numBodyLines = 0;
my $success = $mailman->FetchAll($keepOnServer, $headersOnly, $numBodyLines, $bundle);
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

my $email = Chilkat2::Email->new;
my $i = 0;
while ($i < $bundle->MessageCount) {
    $bundle->EmailAt($i, $email);

    # Display the From email address and the subject.
    print 'From: ', $email->From, "\n";
    print 'Subject: ', $email->Subject, "\n";
    $i = $i + 1;
}