(Delphi DLL) Load .eml and Examine the Structure, Attachments, and Related Items

Demonstrates how to load examine the MIME structure of a .eml, and also examine the attachment and related item filenames, attached messages, and multipart/report and DSN information.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Mime, StringArray, Email;

...

procedure TForm1.Button1Click(Sender: TObject);
var
emlPath: PWideChar;
mime: HCkMime;
success: Boolean;
email: HCkEmail;
i: Integer;
numAttach: Integer;
numRelated: Integer;
numAttachedMessages: Integer;
em: HCkEmail;
numReports: Integer;
sa: HCkStringArray;
numFinalRecipients: Integer;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

emlPath := 'C:/AAWorkarea/beatrix/roesner.eml';

mime := CkMime_Create();

success := CkMime_LoadMimeFile(mime,emlPath);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

Memo1.Lines.Add('---- MIME structure ----');
Memo1.Lines.Add(CkMime__getStructure(mime,'text'));
Memo1.Lines.Add('------------------------');

email := CkEmail_Create();
success := CkEmail_LoadEml(email,emlPath);

// Was this a signed and/or encrypted email?
// If so, then loading the .eml automatically unwraps
// (i.e. verifies signatures and decrypts) and the resultant
// email is what existed prior to signing/encrypting.
Memo1.Lines.Add('Email was Signed: ' + IntToStr(CkEmail_getReceivedSigned(email)));
Memo1.Lines.Add('Email was Encrypted: ' + IntToStr(CkEmail_getReceivedEncrypted(email)));
if (CkEmail_getReceivedSigned(email) = True) then
  begin
    Memo1.Lines.Add('Signature(s) valid = ' + IntToStr(CkEmail_getSignaturesValid(email)));
  end;
if (CkEmail_getReceivedEncrypted(email) = True) then
  begin
    Memo1.Lines.Add('Decrypted successfully = ' + IntToStr(CkEmail_getDecrypted(email)));
  end;

i := 0;
numAttach := CkEmail_getNumAttachments(email);
Memo1.Lines.Add('Number of attachments = ' + IntToStr(numAttach));

while i < numAttach do
  begin
    Memo1.Lines.Add('---- Attachment ' + IntToStr(i));

    // Examine the filename (if any)
    Memo1.Lines.Add('filename: ' + CkEmail__getAttachmentFilename(email,i));
    // Examine the content-ID (if any)
    Memo1.Lines.Add('Content-ID: ' + CkEmail__getAttachmentContentID(email,i));
    // Examine the content-type
    Memo1.Lines.Add('Content-Type: ' + CkEmail__getAttachmentContentType(email,i));
    // Examine the content-disposition
    Memo1.Lines.Add('Content-Disposition' + CkEmail__getAttachmentHeader(email,i,'content-disposition'));
    // Examine the attachment size:
    Memo1.Lines.Add('Size (in bytes) of the attachment: ' + IntToStr(CkEmail_GetAttachmentSize(email,i)));

    i := i + 1;
  end;

Memo1.Lines.Add('--');

// Now for the related items.

// Note: A MIME sub-part can potentially be both a related item AND an attachment.
// The typical case is when the item is contained under the multipart/related enclosure and 
// the item also has a "Content-Disposition" header indicating "attachment".
// The location within multipart/related makes it a "related item", yet the Content-Disposition can also make it semantically an attachment.
// Related items and attachments are not necessarily mutually exclusive.

numRelated := CkEmail_getNumRelatedItems(email);
Memo1.Lines.Add('Number of related items = ' + IntToStr(numRelated));
i := 0;
while i < numRelated do
  begin
    Memo1.Lines.Add('---- Related Item ' + IntToStr(i));

    // Examine the filename (if any)
    Memo1.Lines.Add('filename: ' + CkEmail__getRelatedFilename(email,i));
    // Examine the content-ID (if any)
    Memo1.Lines.Add('Content-ID: ' + CkEmail__getRelatedContentID(email,i));
    // Examine the content-type
    Memo1.Lines.Add('Content-Type: ' + CkEmail__getRelatedContentType(email,i));
    // Examine the content-location (if any)
    Memo1.Lines.Add('Content-Location' + CkEmail__getRelatedContentLocation(email,i));

    i := i + 1;
  end;

// The email could also have attached messages.
// An attached message is another email that was attached to this email.
numAttachedMessages := CkEmail_getNumAttachedMessages(email);
Memo1.Lines.Add('Number of attached messages = ' + IntToStr(numAttachedMessages));
i := 0;
while i < numAttachedMessages do
  begin
    Memo1.Lines.Add('---- Attached message ' + IntToStr(i));

    // Examine the attached email
    em := CkEmail_GetAttachedMessage(email,i);
    Memo1.Lines.Add('from: ' + CkEmail__from(em));
    Memo1.Lines.Add('subject: ' + CkEmail__subject(em));
    CkEmail_Dispose(em);
    i := i + 1;
  end;

// An email could also be a multipart/report email. 
// This is a DSN (Delivery Status Notification)
// The NumReports property indicates how many "reports" exist.
numReports := CkEmail_getNumReports(email);
i := 0;
Memo1.Lines.Add('Number of reports = ' + IntToStr(numReports));
i := 0;
while i < numReports do
  begin
    Memo1.Lines.Add('---- Report ' + IntToStr(i));
    // Get the raw report data...
    Memo1.Lines.Add(CkEmail__getReport(email,i));
    i := i + 1;
  end;

// If the email is a multipart/report, then the information
// from the message/delivery-status part of the email can be retrieved:
if (CkEmail_IsMultipartReport(email) = True) then
  begin

    Memo1.Lines.Add('--- Delivery Status Information:');
    Memo1.Lines.Add('Status: ' + CkEmail__getDeliveryStatusInfo(email,'Status'));
    Memo1.Lines.Add('Action: ' + CkEmail__getDeliveryStatusInfo(email,'Action'));
    Memo1.Lines.Add('Reporting-MTA: ' + CkEmail__getDeliveryStatusInfo(email,'Reporting-MTA'));

    sa := CkEmail_GetDsnFinalRecipients(email);
    numFinalRecipients := CkStringArray_getCount(sa);
    i := 0;
    while i < numFinalRecipients do
      begin
        Memo1.Lines.Add('final recipient: ' + CkStringArray__getString(sa,i));
        i := i + 1;
      end;

    CkStringArray_Dispose(sa);
  end;

CkMime_Dispose(mime);
CkEmail_Dispose(email);

end;