(Visual Basic 6.0) 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.

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.

Dim imap As New ChilkatImap

' Use TLS
imap.Ssl = 1
imap.Port = 993
Dim success As Long
success = imap.Connect("MY-IMAP-DOMAIN")
If (success <> 1) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

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

' Get the list of capabilities:
Dim caps As String
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) = 1) Then
    Debug.Print "IMAP server supports the QUOTA extension."
End If

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

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