Delphi DLL

Fetch a Set of POP3 Messages by UIDL

Demonstrates the Chilkat MailMan.FetchUidlSet method, which retrieves the messages whose UIDLs are listed in a StringTable and appends them to an EmailBundle. The arguments are the UIDL StringTable, headersOnly, numBodyLines, and the EmailBundle. This example fetches two specific messages by UIDL.

Background: This is the efficient way to download a selected subset of a mailbox in one call — exactly the pattern for an incremental client: list the mailbox UIDLs, compare against the ones you've already stored, and fetch only the new UIDLs as a set. It avoids re-downloading messages you already have while still pulling everything new in a single operation.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mailman: HCkMailMan;
uidls: HCkStringTable;
bundle: HCkEmailBundle;
n: Integer;
email: HCkEmail;
i: Integer;

begin
success := False;

//  Demonstrates the MailMan.FetchUidlSet method, which retrieves the messages whose UIDLs are
//  listed in a StringTable and appends them to an EmailBundle.  The arguments are the UIDL
//  StringTable, headersOnly, numBodyLines, and the EmailBundle.  The messages remain on the
//  server.

mailman := CkMailMan_Create();

//  Configure the POP3 server connection.
CkMailMan_putMailHost(mailman,'pop.example.com');
CkMailMan_putMailPort(mailman,995);
CkMailMan_putPopSsl(mailman,True);
CkMailMan_putPopUsername(mailman,'user@example.com');
CkMailMan_putPopPassword(mailman,'myPassword');

//  Build the set of UIDLs to fetch.
uidls := CkStringTable_Create();
CkStringTable_Append(uidls,'0000000123abcdef');
CkStringTable_Append(uidls,'0000000124abcdef');

//  Fetch the listed messages (full bodies) into a bundle.
//  headersOnly=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.
bundle := CkEmailBundle_Create();

success := CkMailMan_FetchUidlSet(mailman,uidls,False,0,bundle);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;

n := CkEmailBundle_getMessageCount(bundle);
Memo1.Lines.Add('Fetched ' + IntToStr(n) + ' messages.');

email := CkEmail_Create();

for i := 0 to n - 1 do
  begin
    success := CkEmailBundle_EmailAt(bundle,i,email);
    Memo1.Lines.Add(CkEmail__subject(email));
  end;

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

CkMailMan_Dispose(mailman);
CkStringTable_Dispose(uidls);
CkEmailBundle_Dispose(bundle);
CkEmail_Dispose(email);