IMAP Sub-Folders and Mailboxes

How to select an IMAP sub-folder.

Download Chilkat Perl Module

use chilkat;

$imap = new chilkat::CkImap();

#  Anything unlocks the component and begins a fully-functional 30-day trial.
$success = $imap->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Connect to an IMAP server.
$success = $imap->Connect("mail.chilkatsoft.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Login
$success = $imap->Login('admin@chilkatsoft.com',"****");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  The default value of the mailbox hierarchy separator char
#  is a period '.' char.
print "Separator Char: " . $imap->get_SeparatorChar() . "\n";

#  If you know your IMAP server's separator char, you may
#  explicitly set it.  For example:
$imap->put_SeparatorChar("/");
print "Separator Char: " . $imap->get_SeparatorChar() . "\n";

#  If you don't know the value of the separator char, the
#  Chilkat IMAP component sets it automatically during
#  a ListMailboxes call.  (The reason is that the IMAP separator
#  char is specified in the IMAP list mailboxes response.)

$mboxes = $imap->ListMailboxes("","*");

print "Separator Char: " . $imap->get_SeparatorChar() . "\n";

#  To select a sub-folder, start with the top-level mailbox
#  and build a path using the separator char.  The top-level
#  mailbox should be named "Inbox":

$s = $imap->get_SeparatorChar();
$folderPath = "Inbox" . $s . "oldEmail";

$success = $imap->SelectMailbox($folderPath);
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

print "Number of messages in " . $folderPath . ": " . $imap->get_NumMessages() . "\r\n";