Delphi DLL
Embed Image in HTML Email

Demonstrates how to create and send an HTML email with an embedded image.
Chilkat Delphi DLL Downloads

Delphi DLL
uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MailMan, Email;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
mailman: HCkMailMan;
email: HCkEmail;
fileOnDisk: PWideChar;
filePathInHtml: PWideChar;
htmlBody: PWideChar;

begin
success := False;

// 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 := CkMailMan_Create();

// Set the SMTP server.
CkMailMan_putSmtpHost(mailman,'smtp.comcast.net');

// Create a new email object
email := CkEmail_Create();

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

// Embed the GIF image in the email.
success := CkEmail_AddRelatedFile2(email,fileOnDisk,filePathInHtml);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    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"
CkEmail_SetHtmlBody(email,htmlBody);
CkEmail_putSubject(email,'Delphi DLL HTML email with an embedded image.');
success := CkEmail_AddTo(email,'Admin','admin@chilkatsoft.com');
CkEmail_putFrom(email,'Chilkat Support <support@chilkatsoft.com>');

success := CkMailMan_SendEmail(mailman,email);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
  end
else
  begin
    Memo1.Lines.Add('Mail Sent!');
  end;

CkMailMan_Dispose(mailman);
CkEmail_Dispose(email);

end;