PowerBuilder

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". PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_Bundle
integer li_KeepOnServer
integer li_HeadersOnly
integer li_NumBodyLines
integer i
oleobject loo_Email

li_Success = 0

// 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.
loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

// Read mail headers and one line of the body.
// To get the full emails, set headersOnly = 0
loo_Bundle = create oleobject
li_rc = loo_Bundle.ConnectToNewObject("Chilkat.EmailBundle")

li_KeepOnServer = 1
li_HeadersOnly = 1
li_NumBodyLines = 1
li_Success = loo_Mailman.FetchAll(li_KeepOnServer,li_HeadersOnly,li_NumBodyLines,loo_Bundle)
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_Bundle
    return
end if

i = 0
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

do while i < loo_Bundle.MessageCount
    loo_Bundle.EmailAt(i,loo_Email)

    // Display the From email address and the subject.
    Write-Debug "From: " + loo_Email.From
    Write-Debug "Subject: " + loo_Email.Subject

    i = i + 1
loop


destroy loo_Mailman
destroy loo_Bundle
destroy loo_Email