(Visual FoxPro) 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

LOCAL loMailman
LOCAL lnSuccess
LOCAL lnNumEmails

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan')
loMailman = CreateObject('Chilkat.MailMan')

* Connection settings for pop3.live.com (or pop-mail.outlook.com, both should work)
loMailman.MailHost = "pop-mail.outlook.com"
loMailman.MailHost = "pop3.live.com"

loMailman.PopUsername = "my_account@live.com"
loMailman.PopPassword = "my_live.com_password"
loMailman.MailPort = 995
loMailman.PopSsl = 1

* Make the TLS connection to the POP3 server.
lnSuccess = loMailman.Pop3Connect()
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

* Authenticate..
lnSuccess = loMailman.Pop3Authenticate()
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

* Find out how many emails are on the server..
lnNumEmails = loMailman.CheckMail()
IF (lnNumEmails < 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

* Examine the POP3 session log:
? loMailman.Pop3SessionLog

* End the POP3 session and close the connection to the POP3 server.
lnSuccess = loMailman.Pop3EndSession()
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

? "-- 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.
* 

RELEASE loMailman