Pascal (Lazarus/Delphi)

Get the Content-ID of an Attachment

Demonstrates the Chilkat Email.GetAttachmentContentID method, which returns the Content-ID header field for the Nth attachment. The index is zero-based, so the first attachment is 0. This example adds an attachment and reads its Content-ID (which may be empty when none was assigned).

Background: A Content-ID is a unique identifier for a MIME part. It is essential for inline "related" resources, where HTML references an image by cid:, but ordinary file attachments usually have none. Reading it is useful when inspecting how a message is assembled, or when distinguishing parts that are referenced from the body versus those meant purely as downloadable attachments.

Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Email;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  email: TEmail;
  cid: string;

begin
  //  Demonstrates the GetAttachmentContentID method, which returns the Content-ID header
  //  field for the Nth attachment.  The index is zero-based (the first attachment is 0).

  email := TEmail.Create;
  email.Subject := 'Attachment Content-ID';

  email.AddStringAttachment('notes.txt','Some notes.');

  //  Get the Content-ID of the first attachment (may be empty if none was assigned).
  cid := email.GetAttachmentContentID(0);
  WriteLn('Attachment 0 Content-ID: ' + cid);


  email.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.