Delphi DLL

Download the Full Version of a Partial Email

Demonstrates the Chilkat MailMan.FetchFull method, which downloads the complete version of a header-only or partial Email and stores it in a second Email. The full result includes the complete body and any attachments, and the partial email must retain its UIDL. This example previews message 1 (headers only) and then downloads it in full.

Background: A common pattern is to download headers first — cheap and fast — show the user a message list, and only pull the full content when a message is actually opened. FetchFull completes that "download on demand" flow: given a partial email (which carries its UIDL), it fetches the rest from the server. This keeps bandwidth and latency low when browsing a large mailbox.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mailman: HCkMailMan;
partialEmail: HCkEmail;
fullEmail: HCkEmail;

begin
success := False;

//  Demonstrates the MailMan.FetchFull method, which downloads the complete version of a
//  header-only or partial Email and stores it in a second Email.  The full result includes
//  the complete body and any attachments.  The partial email must retain its UIDL.

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');

//  First fetch message 1 as headers only (a fast preview).  headerOnly=1.
partialEmail := CkEmail_Create();

success := CkMailMan_FetchOne(mailman,True,0,1,partialEmail);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;
Memo1.Lines.Add('Preview subject: ' + CkEmail__subject(partialEmail));

//  Now download the complete message (body and attachments).
fullEmail := CkEmail_Create();
success := CkMailMan_FetchFull(mailman,partialEmail,fullEmail);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;
Memo1.Lines.Add('Full email NumAttachments: ' + IntToStr(CkEmail_getNumAttachments(fullEmail)));

//  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);
CkEmail_Dispose(partialEmail);
CkEmail_Dispose(fullEmail);