VBScript

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 VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  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.

set imap = CreateObject("Chilkat.Imap")

imap.Ssl = 1
imap.Port = 993

success = imap.Connect("imap.example.com")
If (success = 0) Then
    outFile.WriteLine(imap.LastErrorText)
    WScript.Quit
End If

success = imap.Login("user@example.com","myPassword")
If (success = 0) Then
    outFile.WriteLine(imap.LastErrorText)
    WScript.Quit
End If

'  Populate a Mailboxes object with the full list of mailboxes.  The first argument requests
'  all mailboxes (not subscribed-only) and "*" matches any name.
subscribedOnly = 0
set mailboxes = CreateObject("Chilkat.Mailboxes")
success = imap.MbxList(subscribedOnly,"","*",mailboxes)
If (success = 0) Then
    outFile.WriteLine(imap.LastErrorText)
    WScript.Quit
End If

'  Loop over each mailbox in the returned collection.
n = mailboxes.Count
outFile.WriteLine("Number of mailboxes: " & n)

For i = 0 To n - 1
    name = mailboxes.GetName(i)
    outFile.WriteLine("Mailbox: " & name)

    '  Whether the mailbox can be selected or examined for message access.
    If (mailboxes.IsSelectable(i)) Then
        outFile.WriteLine("  Selectable: yes")
    Else
        outFile.WriteLine("  Selectable: no")
    End If

    '  Whether the server marked the mailbox as possibly having new messages.
    If (mailboxes.IsMarked(i)) Then
        outFile.WriteLine("  Marked: yes")
    End If

    '  Whether the mailbox has, or may contain, child mailboxes.
    If (mailboxes.HasInferiors(i)) Then
        outFile.WriteLine("  May have child mailboxes")
    End If

    '  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")) Then
        outFile.WriteLine("  Has child mailboxes")
    End If

    '  Get all of the mailbox's flags as a comma-separated string.
    flags = mailboxes.GetFlags(i)
    outFile.WriteLine("  Flags: " & flags)

    '  Iterate the flags individually.
    numFlags = mailboxes.GetNumFlags(i)

    For j = 0 To numFlags - 1
        flag = mailboxes.GetNthFlag(i,j)
        outFile.WriteLine("    Flag " & j & ": " & flag)
    Next
Next

'  Look up a mailbox by name.  Returns -1 if no mailbox with that name is present.
sentIndex = mailboxes.GetMailboxIndex("Sent")
If (sentIndex >= 0) Then
    outFile.WriteLine("The Sent mailbox is at index " & sentIndex)
End If

success = imap.Disconnect()
If (success = 0) Then
    outFile.WriteLine(imap.LastErrorText)
    WScript.Quit
End If


outFile.Close