(Excel) IMAP Capability

Demonstrates how to send the CAPABILITY command to request a listing of capabilities that the IMAP server supports. A capability name which begins with "AUTH=" indicates that the server supports that particular authentication mechanism.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim imap As Chilkat.Imap
Set imap = Chilkat.NewImap

' Use TLS
imap.Ssl = True
imap.Port = 993

success = imap.Connect("MY-IMAP-DOMAIN")
If (success <> True) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' Authenticate
success = imap.Login("MY-IMAP-LOGIN","MY-IMAP-PASSWORD")
If (success <> True) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' Get the list of capabilities:

caps = imap.Capability()
Debug.Print "Capabilities: "; caps

' Here is an example of the string returned:
' * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1 
' UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT APPENDLIMIT=35882577
' LIST-EXTENDED LIST-STATUS

' Chilkat v9.5.0.58 introduces the HasCapability method to
' check to see if a particular capability exists:
If (imap.HasCapability("QUOTA",caps) = True) Then
    Debug.Print "IMAP server supports the QUOTA extension."
End If

If (imap.HasCapability("IDLE",caps) = True) Then
    Debug.Print "IMAP server supports IDLE."
End If

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