(VBScript) 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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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")
set mailman = CreateObject("Chilkat.MailMan")

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

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

' Make the TLS connection to the POP3 server.
success = mailman.Pop3Connect()
If (success <> 1) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

' Authenticate..
success = mailman.Pop3Authenticate()
If (success <> 1) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

' Find out how many emails are on the server..
numEmails = mailman.CheckMail()
If (numEmails < 0) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

' Examine the POP3 session log:
outFile.WriteLine(mailman.Pop3SessionLog)

' End the POP3 session and close the connection to the POP3 server.
success = mailman.Pop3EndSession()
If (success <> 1) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("-- 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.
' 

outFile.Close