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

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")

mailman.MailHost = "pop.gmail.com"
mailman.MailPort = 995
mailman.PopSsl = 1

mailman.PopUsername = "my_account@gmail.com"

' If using OAuth2 authentication, leave the password empty.
mailman.PopPassword = ""

' Load our previously obtained OAuth2 access token.
' See Getting a GMail POP3 OAuth2 Access Token
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jsonToken = CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/gmail_pop3.json")
If (success = 0) Then
    outFile.WriteLine(jsonToken.LastErrorText)
    WScript.Quit
End If

mailman.OAuth2AccessToken = jsonToken.StringOf("access_token")

' 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)

' 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.
success = mailman.Pop3EndSession()
If (success <> 1) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("-- Finished.")

outFile.Close