Embed Image in HTML Email

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

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;
fileOnDisk: String;
filePathInHtml: String;
htmlBody: String;

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

//  Any string argument automatically begins the 30-day trial.
success := mailman.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Component unlock failed');

  end;

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

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

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

//  Embed the GIF image in the email.
success := email.AddRelatedFile2(fileOnDisk,filePathInHtml);
if (success <> 1) then
  begin
    ShowMessage(email.LastErrorText);

  end;

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

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

success := mailman.SendEmail(email As CHILKATMAILLib2_TLB.IChilkatEmail2);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);
  end
else
  begin
    ShowMessage('Mail Sent!');
  end;
end;

Need a specific example? Send a request to support@chilkatsoft.com

Mail Component · .NET Email Component · XML Parser