(Xojo Plugin) Find the "Sent" IMAP Mailbox

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim imap As New Chilkat.Imap

imap.Ssl = True
imap.Port = 993
Dim success As Boolean
success = imap.Connect("imap.yourmailserver.com")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Login or authenticate in some way..
success = imap.Login("your_login","your_password")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Get the list of mailboxes.
Dim refName As String
refName = ""
Dim wildcardedMailbox As String
wildcardedMailbox = "*"

Dim mboxes As Chilkat.Mailboxes
mboxes = imap.ListMailboxes(refName,wildcardedMailbox)
If (imap.LastMethodSuccess = False) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// The mailbox with the "/Sent" flag is the "Sent" mailbox.
// Likewise for Junk and Trash..
Dim i As Int32
i = 0
While i < mboxes.Count
    If (mboxes.HasFlag(i,"\Sent") = True) Then
        System.DebugLog("Sent mailbox: " + mboxes.GetName(i))
    End If

    If (mboxes.HasFlag(i,"\Junk") = True) Then
        System.DebugLog("Junk mailbox: " + mboxes.GetName(i))
    End If

    If (mboxes.HasFlag(i,"\Trash") = True) Then
        System.DebugLog("Trash mailbox: " + mboxes.GetName(i))
    End If

    i = i + 1
Wend

// Disconnect from the IMAP server.
success = imap.Disconnect()