Send Email with Inline Attachment

Create an send an email with an inline attachment.

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;
contentType: 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.chilkatsoft.com';

//  You may need a login/password.  In many cases,
//  authentication is not required when sending local email
//  (i.e. to email addresses having the same domain as the
//  SMTP server), but is required when sending to non-local
//  recipients.
mailman.SmtpUsername := 'myLogin';
mailman.SmtpPassword := 'myPassword';

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

email.Subject := 'This is a test';
email.Body := 'This is a test';
email.From := 'Chilkat Support <support@chilkatsoft.com>';
email.AddTo('Chilkat Admin','admin@chilkatsoft.com');

//  Add any number of attachments:

contentType := email.AddFileAttachment('c:/temp/dude.gif');
if (contentType = NULL ) then
  begin
    ShowMessage(email.LastErrorText);

  end;

//  Update the content-disposition header field for the attachment
//  so that it's sent inline:
//  AddAttachmentHeader replaces the header field if it already
//  exists.
email.AddAttachmentHeader(0,'content-disposition','inline; filename="dude.gif"');

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