(PowerBuilder) Download POP3 Email using UIDLs

Demonstrates how to download POP3 email by first getting the complete set of UIDLs and then downloading email by calling FetchEmail for each UIDL. This is equivalent to calling CopyMail, except your application can process each email as it arrives instead of waiting for the entire bundle to be downloaded. Also, it's better protection against potential out-of-memory issues if your mailbox has a very large number of messages. There is no performance difference between fetching emails individually vs. calling CopyMail.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Mailman
oleobject loo_Sa
integer i
integer n
string ls_Uidl
oleobject loo_Email

// 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
// Use "Chilkat_9_5_0.MailMan" for versions of Chilkat < 10.0.0
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 POP3 server's hostname
loo_Mailman.MailHost = "pop.someMailServer.com"

// Set the POP3 login/password.
loo_Mailman.PopUsername = "myLogin"
loo_Mailman.PopPassword = "myPassword"

loo_Sa = loo_Mailman.GetUidls()
if loo_Mailman.LastMethodSuccess <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    return
end if

i = 0
n = loo_Sa.Count

do while i < n

    ls_Uidl = loo_Sa.GetString(i)

    loo_Email = loo_Mailman.FetchEmail(ls_Uidl)
    if loo_Mailman.LastMethodSuccess <> 1 then
        Write-Debug loo_Mailman.LastErrorText
        destroy loo_Sa
        destroy loo_Mailman
        return
    end if

    Write-Debug "From: " + loo_Email.From
    Write-Debug "Subject: " + loo_Email.Subject
    destroy loo_Email

    i = i + 1
loop

destroy loo_Sa

loo_Mailman.Pop3EndSession()


destroy loo_Mailman