Perl

List and Inspect IMAP Mailboxes

Demonstrates the Chilkat Mailboxes class, a read-only result collection populated by Imap.MbxList. This example connects to an IMAP server, lists all mailboxes into a Mailboxes object, then loops from 0 to Count - 1 and inspects each mailbox: its name (GetName), whether it is selectable (IsSelectable) or marked (IsMarked), whether it may have child mailboxes (HasInferiors), a specific flag (HasFlag), and all of its flags both as a string (GetFlags) and individually (GetNumFlags with GetNthFlag). Finally it looks up a mailbox by name with GetMailboxIndex.

Background: Mailboxes is how an application renders an IMAP folder tree. Because it is read-only, you never construct it directly — you receive it from MbxList and read its entries by index. Mailbox names come back as normal Unicode text (Chilkat handles the modified UTF-7 / IMAP UTF-8 encoding at the protocol level), so a name from GetName can be passed straight to methods like SelectMailbox. Note that HasInferiors is often true: it means children exist or may be created, which is not the same as \HasChildren.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates using Chilkat.Imap to populate a Mailboxes object (via MbxList), then looping
# over the collection to inspect each mailbox's name and attributes.  Mailboxes is a read-only
# result collection -- applications inspect the entries but do not add, remove, or modify them.

my $imap = Chilkat2::Imap->new;

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

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

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

# Populate a Mailboxes object with the full list of mailboxes.  The first argument requests
# all mailboxes (not subscribed-only) and "*" matches any name.
my $subscribedOnly = 0;
my $mailboxes = Chilkat2::Mailboxes->new;
$success = $imap->MbxList($subscribedOnly, '', '*', $mailboxes);
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Loop over each mailbox in the returned collection.
my $n = $mailboxes->Count;
print 'Number of mailboxes: ', $n, "\n";

for my $i (0 .. $n - 1) {
    my $name = $mailboxes->GetName($i);
    print 'Mailbox: ', $name, "\n";

    # Whether the mailbox can be selected or examined for message access.
    if ($mailboxes->IsSelectable($i)) {
        print "  Selectable: yes\n";
    } else {
        print "  Selectable: no\n";
    }

    # Whether the server marked the mailbox as possibly having new messages.
    if ($mailboxes->IsMarked($i)) {
        print "  Marked: yes\n";
    }

    # Whether the mailbox has, or may contain, child mailboxes.
    if ($mailboxes->HasInferiors($i)) {
        print "  May have child mailboxes\n";
    }

    # Check for a specific flag by name.  Include the leading backslash for a system flag;
    # in CkScript a literal backslash in a string is written as "\\".
    if ($mailboxes->HasFlag($i, '\HasChildren')) {
        print "  Has child mailboxes\n";
    }

    # Get all of the mailbox's flags as a comma-separated string.
    my $flags = $mailboxes->GetFlags($i);
    print '  Flags: ', $flags, "\n";

    # Iterate the flags individually.
    my $numFlags = $mailboxes->GetNumFlags($i);
    for my $j (0 .. $numFlags - 1) {
        my $flag = $mailboxes->GetNthFlag($i, $j);
        print '    Flag ', $j, ': ', $flag, "\n";
    }
}

# Look up a mailbox by name.  Returns -1 if no mailbox with that name is present.
my $sentIndex = $mailboxes->GetMailboxIndex('Sent');
if ($sentIndex >= 0) {
    print 'The Sent mailbox is at index ', $sentIndex, "\n";
}

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