(AutoIt) Subscribe to Mailboxes and List Subscribed Mailboxes

Demonstrates how to list subscribed mailboxes, and unsubscribe/subscribe to a mailbox.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oImap = ObjCreate("Chilkat.Imap")

; Connect to an IMAP server.
; Use TLS
$oImap.Ssl = True
$oImap.Port = 993
Local $bSuccess = $oImap.Connect("imap.someMailServer.com")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Login
$bSuccess = $oImap.Login("myLogin","myPassword")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; First examine the already subscribed mailboxes.
Local $sRefName = ""
Local $sWildcardedMailbox = "*"

; Alternatively, the ListMailboxes method can be called to list all mailboxes (both subscribed and unsubscribed).
Local $oMboxes = $oImap.ListSubscribed($sRefName,$sWildcardedMailbox)
If ($oImap.LastMethodSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

Local $i
For $i = 0 To $oMboxes.Count - 1
    ConsoleWrite($oMboxes.GetName($i) & @CRLF)
Next
ConsoleWrite("----" & @CRLF)

; Sample output.

; INBOX
; INBOX/recent
; INBOX/misc
; INBOX/misc/solutions
; ...
; Outbox
; Deleted Items
; Sent Items
; Drafts
; Junk E-mail
; Trash
; Sent
; Templates

; Let's unsubscribe to "INBOX/misc/solutions".
$bSuccess = $oImap.Unsubscribe("INBOX/misc/solutions")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Get the list of subscribed mailboxes again to verify that "INBOX/misc/solutions" is missing.
$oMboxes = $oImap.ListSubscribed("","INBOX/misc*")
If ($oImap.LastMethodSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

For $i = 0 To $oMboxes.Count - 1
    ConsoleWrite($oMboxes.GetName($i) & @CRLF)
Next

ConsoleWrite("----" & @CRLF)

; Re-subscribe to "INBOX/misc/solutions".
$bSuccess = $oImap.Subscribe("INBOX/misc/solutions")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Get the list of subscribed mailboxes again to verify that "INBOX/misc/solutions" is back in the list.
$oMboxes = $oImap.ListSubscribed("","INBOX/misc*")
If ($oImap.LastMethodSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

For $i = 0 To $oMboxes.Count - 1
    ConsoleWrite($oMboxes.GetName($i) & @CRLF)
Next

ConsoleWrite("----" & @CRLF)

; Disconnect from the IMAP server.
$bSuccess = $oImap.Disconnect()