Visual FoxPro

IMAP LastResponse and LastResponseCode

Demonstrates the IMAP LastResponse and LastResponseCode properties. Visual FoxPro

LOCAL lnSuccess
LOCAL loImap

lnSuccess = 0

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

loImap = CreateObject('Chilkat.Imap')

*  Use TLS
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("imap.gmail.com")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

*  Authenticate, but with an intentionally incorrect password
*  so we can see the contents of the LastErrorText, and also
*  the LastResponse and LastResponseCode properties.
lnSuccess = loImap.Login("my_login","my_intentionally incorrect_password")
IF (lnSuccess = 1) THEN
    ? "Successfull login, but this example is meant to demonstrate an error, such as a failed login."
    RELEASE loImap
    CANCEL
ENDIF

*  Let's look at the LastErrorText, and also the LastResponse and LastResponseCode.
? "LastResponseCode = " + loImap.LastResponseCode
? "LastReponse = " + loImap.LastResponse
? "LastErrorText = " + loImap.LastErrorText

*  Sample output:

*  LastResponseCode = AUTHENTICATIONFAILED
*  LastReponse = aaab NO [AUTHENTICATIONFAILED] Invalid credentials (Failure)
*  LastErrorText = ChilkatLog:
*    Login:
*      DllDate: Oct 28 2023
*      ChilkatVersion: 9.5.0.96
*      UnlockPrefix: EXCODE
*      UnlockStatus: 2
*      Architecture: Little Endian; 64-bit
*      Language: .NET 4.5 / x64 / VS2012
*      VerboseLogging: 0
*      imapServer: imap.gmail.com
*      loginX(47ms):
*        login: my_login
*        greeting: * OK Gimap ready for requests from 98.213.102.119 w5mb285327441qtc
*  
*        authenticateLogin(47ms):
*          loginImap(47ms):
*            ConnectionType: SSL/TLS
*            ImapCmdSent: aaab LOGIN "my_login"
*            getCompleteResponse(47ms):
*              ImapCmdResp: aaab NO [AUTHENTICATIONFAILED] Invalid credentials (Failure)
*            --getCompleteResponse
*          --loginImap
*          isOK:
*            serverResponse: aaab NO [AUTHENTICATIONFAILED] Invalid credentials (Failure)
*          --isOK
*        --authenticateLogin
*      --loginX
*      Failed.
*    --Login
*  --ChilkatLog

*  Disconnect from the IMAP server.
lnSuccess = loImap.Disconnect()

RELEASE loImap