Fetch One POP3 Message by UIDL

See more POP3 Examples

Demonstrates the Chilkat MailMan.FetchByUidl method, which retrieves one message by UIDL and stores it in an Email object. The arguments are the UIDL, headerOnly, numBodyLines, and the Email. The message remains on the POP3 server. This example fetches a specific message by its UIDL.

integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_Email

li_Success = 0

//  Demonstrates the MailMan.FetchByUidl method, which retrieves one message by UIDL and
//  stores it in an Email object.  The arguments are the UIDL, headerOnly, numBodyLines, 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 a specific message by UIDL 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.FetchByUidl("0000000123abcdef",0,0,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

//  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