Pascal (Lazarus/Delphi)

Get the Filename of an Attached Message

Demonstrates the Chilkat Email.GetAttachedMessageFilename method, which returns the filename of the Nth attached (embedded) email. The filename is the filename attribute of the attached message's Content-Disposition header, and the index is zero-based. This example attaches an email and reads the attached message's filename.

Background: When an email forwards another message as an attachment, the nested message is a message/rfc822 part — a complete email tucked inside the carrier. Mail clients often give that part a filename (like forwarded.eml) via its Content-Disposition header so it can be saved to disk. This method reads that filename directly. Attached messages are counted separately from ordinary attachments (see NumAttachedMessages).

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
  success: Boolean;
  innerEmail: TEmail;
  email: TEmail;
  fname: string;

begin
  success := False;

  //  Demonstrates the GetAttachedMessageFilename method, which returns the filename of the
  //  Nth attached (embedded) email.  The filename is the "filename" attribute of the
  //  attached message's Content-Disposition header.  The index is zero-based.

  //  Build an inner email to attach.
  innerEmail := TEmail.Create;
  innerEmail.Subject := 'Embedded message';
  innerEmail.From := 'alice@example.com';
  innerEmail.AddTo('Bob','bob@example.com');

  //  Attach it to an outer email as a message/rfc822 part.
  email := TEmail.Create;
  email.Subject := 'Has an attached message';
  success := email.AttachEmail(innerEmail);
  if (success = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  Get the filename of the first attached message (index 0).
  fname := email.GetAttachedMessageFilename(0);
  WriteLn('Attached message filename: ' + fname);


  innerEmail.Free;
  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.