PowerBuilder

Fetch One POP3 Message by Message Number

Demonstrates the Chilkat MailMan.FetchOne method, which retrieves one message by POP3 message number and stores it in an Email object. The arguments are headerOnly, numBodyLines, the message number (the first message is 1), and the Email. The message remains on the server. This example fetches message 1 in full.

Background: POP3 message numbers are simple 1-based positions valid only for the current session. FetchOne is the way to pull a single message straight into an Email object (rather than a bundle) when you know its position — for example after listing the mailbox. Because numbers can shift between sessions, FetchByUidl is the stabler choice when a message must be identified reliably over time.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_Email

li_Success = 0

//  Demonstrates the MailMan.FetchOne method, which retrieves one message by POP3 message
//  number and stores it in an Email object.  The arguments are headerOnly, numBodyLines, the
//  message number (the first message is 1), and the Email.  The message remains on the server.

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

//  Configure the POP3 server connection.
loo_Mailman.MailHost = "pop.example.com"
loo_Mailman.MailPort = 995
loo_Mailman.PopSsl = 1
loo_Mailman.PopUsername = "user@example.com"
loo_Mailman.PopPassword = "myPassword"

//  Fetch message number 1 in full.  headerOnly=0 (fetch the entire message).
//  Note: numBodyLines only applies when headersOnly is 1 (it sets how many lines of the
//  body to include along with the headers).  When headersOnly is 0, the entire message
//  is fetched and numBodyLines is ignored.
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

li_Success = loo_Mailman.FetchOne(0,0,1,loo_Email)
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_Email
    return
end if

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

//  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
//  connects and authenticates -- using the property settings above -- whenever a server
//  operation requires it.  Calling the explicit connect/authenticate methods can still be
//  helpful to determine whether a failure occurs while connecting or while authenticating.


destroy loo_Mailman
destroy loo_Email