(Delphi ActiveX) Unpack HTML Email to Files

Unpacks an HTML email into an HTML file and related files (images and style sheets). The links within the HTML are updated to point to the files unpacked and saved to disk.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
email: TChilkatEmail;
success: Integer;
unpackDir: WideString;
partsSubdir: WideString;
htmlFilename: WideString;

begin
email := TChilkatEmail.Create(Self);

success := email.LoadEml('qa_data/eml/happyHour.eml');
if (success <> 1) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

// Is this an HTML email?
if (email.HasHtmlBody() = 1) then
  begin

    // Unpack the HTML to files.  The image and css URLs
    // in the HTML are modified to point to the files extracted to disk.
    unpackDir := 'qa_output/emails';
    partsSubdir := 'images';
    htmlFilename := 'happyHour.html';
    success := email.UnpackHtml(unpackDir,htmlFilename,partsSubdir);
    if (success <> 1) then
      begin
        Memo1.Lines.Add(email.LastErrorText);
        Exit;
      end;

    Memo1.Lines.Add('Success.');
  end;
end;