PureBasic
PureBasic
Test HotMail POP3 (pop3.live.com or pop-mail.outlook.com)
See more POP3 Examples
Demonstrates connecting and authenticating to pop3.live.com. Make sure to enable POP3 access, as shown here:
Chilkat PureBasic Downloads
IncludeFile "CkMailMan.pb"
Procedure ChilkatExample()
success.i = 0
; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
mailman.i = CkMailMan::ckCreate()
If mailman.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
; Connection settings for pop3.live.com (or pop-mail.outlook.com, both should work)
CkMailMan::setCkMailHost(mailman, "pop-mail.outlook.com")
CkMailMan::setCkMailHost(mailman, "pop3.live.com")
CkMailMan::setCkPopUsername(mailman, "my_account@live.com")
CkMailMan::setCkPopPassword(mailman, "my_live.com_password")
CkMailMan::setCkMailPort(mailman, 995)
CkMailMan::setCkPopSsl(mailman, 1)
; Make the TLS connection to the POP3 server.
success = CkMailMan::ckPop3Connect(mailman)
If success <> 1
Debug CkMailMan::ckLastErrorText(mailman)
CkMailMan::ckDispose(mailman)
ProcedureReturn
EndIf
; Authenticate..
success = CkMailMan::ckPop3Authenticate(mailman)
If success <> 1
Debug CkMailMan::ckLastErrorText(mailman)
CkMailMan::ckDispose(mailman)
ProcedureReturn
EndIf
; Find out how many emails are on the server..
numEmails.i = CkMailMan::ckCheckMail(mailman)
If numEmails < 0
Debug CkMailMan::ckLastErrorText(mailman)
CkMailMan::ckDispose(mailman)
ProcedureReturn
EndIf
; Examine the POP3 session log:
Debug CkMailMan::ckPop3SessionLog(mailman)
; End the POP3 session and close the connection to the POP3 server.
success = CkMailMan::ckPop3EndSession(mailman)
If success <> 1
Debug CkMailMan::ckLastErrorText(mailman)
CkMailMan::ckDispose(mailman)
ProcedureReturn
EndIf
Debug "-- 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.
;
CkMailMan::ckDispose(mailman)
ProcedureReturn
EndProcedure