(Perl) Find the "Sent" IMAP Mailbox

Find the "Sent" IMAP mailbox. Also finds the Junk and Trash mailboxes..

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

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

$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.yourmailserver.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Login or authenticate in some way..
$success = $imap->Login("your_login","your_password");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Get the list of mailboxes.
$refName = "";
$wildcardedMailbox = "*";

# mboxes is a Mailboxes
$mboxes = $imap->ListMailboxes($refName,$wildcardedMailbox);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# The mailbox with the "/Sent" flag is the "Sent" mailbox.
# Likewise for Junk and Trash..
$i = 0;
while ($i < $mboxes->get_Count()) {
    if ($mboxes->HasFlag($i,"\\Sent") == 1) {
        print "Sent mailbox: " . $mboxes->getName($i) . "\r\n";
    }

    if ($mboxes->HasFlag($i,"\\Junk") == 1) {
        print "Junk mailbox: " . $mboxes->getName($i) . "\r\n";
    }

    if ($mboxes->HasFlag($i,"\\Trash") == 1) {
        print "Trash mailbox: " . $mboxes->getName($i) . "\r\n";
    }

    $i = $i + 1;
}

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