Lianja

IMAP Session Logging

Demonstrates how to use session logging with IMAP. Lianja

llSuccess = .F.

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

loImap = createobject("CkImap")

// Set the KeepSessionLog property to enable IMAP session logging
loImap.KeepSessionLog = .T.

// Connect to an IMAP server.
// Use TLS
loImap.Ssl = .T.
loImap.Port = 993
llSuccess = loImap.Connect("imap.example.com")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Login
llSuccess = loImap.Login("mylogin","mypassword")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Select an IMAP mailbox
llSuccess = loImap.SelectMailbox("Inbox")
if (llSuccess <> .T.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// We're not really doing anything in this example
// other than to show how to examine the IMAP component's session log...

// Disconnect from the IMAP server.
llSuccess = loImap.Disconnect()

// Display the session log...
? loImap.SessionLog


release loImap