Visual Basic 6.0

Find the "Sent" IMAP Mailbox

See more IMAP Examples

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

Dim success As Long
success = 0

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

Dim imap As New ChilkatImap

imap.Ssl = 1
imap.Port = 993
success = imap.Connect("imap.yourmailserver.com")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' Login or authenticate in some way..
success = imap.Login("your_login","your_password")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' Get the list of mailboxes.
Dim refName As String
refName = ""
Dim wildcardedMailbox As String
wildcardedMailbox = "*"
Dim subscribed As Long
subscribed = 0

Dim mboxes As New Mailboxes
success = imap.MbxList(subscribed,refName,wildcardedMailbox,mboxes)
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' The mailbox with the "/Sent" flag is the "Sent" mailbox.
' Likewise for Junk and Trash..
Dim i As Long
i = 0
Do While i < mboxes.Count
    If (mboxes.HasFlag(i,"\Sent") = 1) Then
        Debug.Print "Sent mailbox: " & mboxes.GetName(i)
    End If

    If (mboxes.HasFlag(i,"\Junk") = 1) Then
        Debug.Print "Junk mailbox: " & mboxes.GetName(i)
    End If

    If (mboxes.HasFlag(i,"\Trash") = 1) Then
        Debug.Print "Trash mailbox: " & mboxes.GetName(i)
    End If

    i = i + 1
Loop

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