Save HTML Email Embedded Images

Saves HTML embedded items to files in a subdirectory. Images, style sheets, and anything else embedded within HTML, are not considered to be attachments. Instead, these items are "related items". The Chilkat email object provides a set of methods/properties for accessing the related items within an email.

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    CHILKATIMAPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
imap: TChilkatImap;
email: CHILKATIMAPLib_TLB.IChilkatEmail2;
success: Integer;
i: Integer;

begin
//  Create a MailMan or Imap object first for the purpose
//  of unlocking the component. (Only one is necessary)
mailman := TChilkatMailMan2.Create(Self);
mailman.UnlockComponent('anything for 30-day trial');
imap := TChilkatImap.Create(Self);
imap.UnlockComponent('anything for 30-day trial');

email := CoChilkatEmail2.Create();

//  Load an email object containing HTML with embedded images.
//  This .eml can be downloaded from:
//  http://www.example-code.com/testData/HtmlEmail.eml

success := email.LoadEml('HtmlEmail.eml');
if (success <> 1) then
  begin
    ShowMessage(email.LastErrorText);

  end;

//  Iterate over the related items.
//  Print the file name and save each to a file.

for i := 0 to email.NumRelatedItems - 1 do
  begin

    Memo1.Lines.Add(email.GetRelatedFilename(i));

    success := email.SaveRelatedItem(i,'myRelatedItems');
    if (success <> 1) then
      begin
        ShowMessage(email.LastErrorText);

      end;
  end;

end;