(DataFlex) POP3 GMail XOAUTH2 Authentication

Demonstrates using OAuth2 authentication with pop.gmail.com.

Note: This example requires Chilkat v9.5.0.83 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMailman
    Handle hoJsonToken
    Boolean iSuccess
    Integer iNumEmails
    String sTemp1

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

    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    Set ComMailHost Of hoMailman To "pop.gmail.com"
    Set ComMailPort Of hoMailman To 995
    Set ComPopSsl Of hoMailman To True

    Set ComPopUsername Of hoMailman To "my_account@gmail.com"

    // If using OAuth2 authentication, leave the password empty.
    Set ComPopPassword Of hoMailman To ""

    // Load our previously obtained OAuth2 access token.
    // See Getting a GMail POP3 OAuth2 Access Token
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
    If (Not(IsComObjectCreated(hoJsonToken))) Begin
        Send CreateComObject of hoJsonToken
    End
    Get ComLoadFile Of hoJsonToken "qa_data/tokens/gmail_pop3.json" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoJsonToken To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Set ComOAuth2AccessToken Of hoMailman To sTemp1

    // Make the TLS connection to the POP3 server.
    Get ComPop3Connect Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Authenticate..
    Get ComPop3Authenticate Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Find out how many emails are on the server..
    Get ComCheckMail Of hoMailman To iNumEmails
    If (iNumEmails < 0) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Examine the POP3 session log:
    Get ComPop3SessionLog Of hoMailman To sTemp1
    Showln sTemp1

    // The POP3 session log will look something like this:

    // **** Connected to pop.gmail.com:995
    // < +OK Gpop ready for requests from 87.9.200.42 l16mb86351205iok
    // > AUTH XOAUTH2 dXNlcj1....VaMDJFAQE=
    // < +OK Welcome.
    // > STAT
    // < +OK 301 1627357
    // 
    // -- Finished.

    // End the POP3 session and close the connection to the GMail server.
    Get ComPop3EndSession Of hoMailman To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "-- Finished."


End_Procedure