Classic ASP
POP3 GMail XOAUTH2 Authentication

Demonstrates using OAuth2 authentication with pop.gmail.com.
Note: This example requires Chilkat v9.5.0.83 or greater.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

set mailman = Server.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
set jsonToken = Server.CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/gmail_pop3.json")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( jsonToken.LastErrorText) & "</pre>"
    Response.End
End If

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

'  Make the TLS connection to the POP3 server.
success = mailman.Pop3Connect()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
    Response.End
End If

'  Authenticate..
success = mailman.Pop3Authenticate()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
    Response.End
End If

'  Find out how many emails are on the server..
numEmails = mailman.CheckMail()
If (numEmails < 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
    Response.End
End If

'  Examine the POP3 session log:
Response.Write "<pre>" & Server.HTMLEncode( mailman.Pop3SessionLog) & "</pre>"

'  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
    Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "-- Finished.") & "</pre>"

%>
</body>
</html>