(VBScript) Read Gmail POP3 Mailbox

Reads the header for each email in a GMail POP3 mailbox and displays the FROM and SUBJECT header fields. In your GMail "Forwarding and POP" settings, be sure to select "When messages are accessed with POP keep Gmail's copy in the Inbox".

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.

' The mailman object is used for receiving (POP3) 
' and sending (SMTP) email.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan")
set mailman = CreateObject("Chilkat.MailMan")

' Set the GMail account POP3 properties.
mailman.MailHost = "pop.gmail.com"
mailman.PopUsername = "myLogin"
mailman.PopPassword = "myPassword"
mailman.PopSsl = 1
mailman.MailPort = 995

' Read mail headers and one line of the body.
' To get the full emails, call CopyMail instead (no arguments)
' bundle is a Chilkat.EmailBundle
Set bundle = mailman.GetAllHeaders(1)

If (mailman.LastMethodSuccess <> 1) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

i = 0

Do While i < bundle.MessageCount - 1
    ' email is a Chilkat.Email
    Set email = bundle.GetEmail(i)

    ' Display the From email address and the subject.
    outFile.WriteLine("From: " & email.From)
    outFile.WriteLine("Subject: " & email.Subject)

    i = i + 1
Loop


outFile.Close