Xbase++

IMAP NOOP Command

Demonstrates how to send an IMAP NOOP command using SendRawCommand. Xbase++

LOCAL nSuccess
LOCAL oImap
LOCAL cResp

nSuccess := 0

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

oImap := CreateObject("Chilkat.Imap")

//  Connect to an IMAP server.
//  Use TLS
oImap:Ssl := 1
oImap:Port := 993
nSuccess := oImap:Connect("imap.example.com")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

//  Login
nSuccess := oImap:Login("****", "****")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

//  Send a NOOP command
cResp := oImap:SendRawCommand("NOOP")
? cResp

//  Disconnect from the IMAP server.
nSuccess := oImap:Disconnect()

oImap:destroy()