(Xojo Plugin) Demonstrates IMAP Session Logging

Demonstrates how to enable IMAP session logging and examine the session log.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim imap As New Chilkat.Imap

// Turn on session logging:
imap.KeepSessionLog = True

// Connect to GMail
// Use TLS
imap.Ssl = True
imap.Port = 993
Dim success As Boolean
success = imap.Connect("imap.gmail.com")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Login
// Your login is typically your GMail email address.
success = imap.Login("username@gmail.com","myPassword")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Show the session log.
System.DebugLog(imap.SessionLog)

// The session log will look like this:

// ----INFO----
// Connecting to IMAP server at imap.gmail.com:993
// ----IMAP RESPONSE----
// * OK Gimap ready for requests from ...
// ----IMAP REQUEST----
// aaab LOGIN "chilkat.support@gmail.com"
// ----IMAP RESPONSE----
// * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1 UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT LIST-EXTENDED LIST-STATUS LITERAL- SPECIAL-USE APPENDLIMIT=35651584
// aaab OK chilkat.support@gmail.com authenticated (Success)
// ----IMAP REQUEST----
// aaac SELECT "Inbox"
// ----IMAP RESPONSE----
// * FLAGS (\Answered \Flagged \Draft \Deleted \Seen $Forwarded $MDNSent $NotPhishing $Phishing $label1 $label2 $label3 $label4 $label5 Junk NonJunk)
// * OK [PERMANENTFLAGS (\Answered \Flagged \Draft \Deleted \Seen $Forwarded $MDNSent $NotPhishing $Phishing $label1 $label2 $label3 $label4 $label5 Junk NonJunk \*)] Flags permitted.
// * OK [UIDVALIDITY 3] UIDs valid.
// * 29 EXISTS
// * 0 RECENT
// * OK [UIDNEXT 6286] Predicted next UID.
// * OK [HIGHESTMODSEQ 813897]
// aaac OK [READ-WRITE] Inbox selected. (Success)

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