(Delphi ActiveX) Embed Image in HTML Email

Demonstrates how to create and send an HTML email with an embedded image.

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
mailman: TChilkatMailMan;
email: TChilkatEmail;
fileOnDisk: WideString;
filePathInHtml: WideString;
success: Integer;
htmlBody: WideString;

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

// The mailman object is used for sending and receiving email.
mailman := TChilkatMailMan.Create(Self);

// Set the SMTP server.
mailman.SmtpHost := 'smtp.comcast.net';

// Create a new email object
email := TChilkatEmail.Create(Self);

// Add an embedded image to the HTML email.
fileOnDisk := 'images/dude2.gif';
filePathInHtml := 'dudeAbc.gif';

// Embed the GIF image in the email.
success := email.AddRelatedFile2(fileOnDisk,filePathInHtml);
if (success <> 1) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

// The src attribute for the image tag is set to the filePathInHtml:
htmlBody := '<html><body>Embedded Image:<br><img src="dudeAbc.gif"></body></html>';

// Set the basic email stuff: HTML body, subject, "from", "to"
email.SetHtmlBody(htmlBody);
email.Subject := 'Delphi ActiveX HTML email with an embedded image.';
success := email.AddTo('Admin','admin@chilkatsoft.com');
email.From := 'Chilkat Support <support@chilkatsoft.com>';

success := mailman.SendEmail(email.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Mail Sent!');
  end;
end;