B4X

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. B4X

Dim success As Boolean = False

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

Dim imap As ChilkatImap
imap.Initialize("imap")

'  Use TLS
imap.Ssl = True
imap.Port = 993
success = imap.Connect("MY-IMAP-DOMAIN")
If success <> True Then
    Log(imap.LastErrorText)
    Return
End If


'  Authenticate
success = imap.Login("MY-IMAP-LOGIN", "MY-IMAP-PASSWORD")
If success <> True Then
    Log(imap.LastErrorText)
    Return
End If


'  Get the list of capabilities:
Dim caps As String = imap.Capability
Log("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
    Log("IMAP server supports the QUOTA extension.")
End If


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


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