(DataFlex) Test HotMail POP3 (pop3.live.com or pop-mail.outlook.com)

Demonstrates connecting and authenticating to pop3.live.com. Make sure to enable POP3 access, as shown here:

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMailman
    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

    // Connection settings for pop3.live.com (or pop-mail.outlook.com, both should work)
    Set ComMailHost Of hoMailman To "pop-mail.outlook.com"
    Set ComMailHost Of hoMailman To "pop3.live.com"

    Set ComPopUsername Of hoMailman To "my_account@live.com"
    Set ComPopPassword Of hoMailman To "my_live.com_password"
    Set ComMailPort Of hoMailman To 995
    Set ComPopSsl Of hoMailman To True

    // 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

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

    Showln "-- Finished."

    // The output of this program:

    // 	**** Connected to pop3.live.com:995
    // 	< +OK DUB006-POP206 POP3 server ready
    // 	> USER chilkat@live.com
    // 	< +OK password required
    // 	> PASS ****
    // 	< +OK User successfully authenticated. [AuthResult=0 Proxy=CY1PR17MB0630.namprd17.prod.outlook.com:1995:SSL]
    // 	> STAT
    // 	< +OK 46 3980488
    // 
    // 	-- Finished.
    // 


End_Procedure