Send MHTML Email

Simple example to send MHTML email. If you have a .mht file, this example show how to send it as an email.

MHTML stands for MIME HTML (Multipurpose Internet Mail Extension HTML). It is a standard for including resources that in usual HTTP pages are linked externally, such as images and sound files, in the same file as the HTML code, based on RFC 2557. The included data files are encoded using MIME. This format is sometimes referred to as MHT, after the suffix .mht given to such files by default when created by Microsoft Word, Internet Explorer or Opera.

Download Chilkat Email ActiveX for POP3 / SMTP

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;

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

//  You may or may not need SMTP authentication -- it depends
//  on your SMTP server...
mailman.SmtpUsername := 'mylogin';
mailman.SmtpPassword := 'mypassword';

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

//  Note: .mht files are MIME, and are really no different
//  than .eml.  The only difference is the file extension
//  and the intended use.  You can load any .mht into
//  an email object by calling LoadEml:
success := email.LoadEml('myMhtml.mht');
if (success <> 1) then
  begin
    ShowMessage(email.LastErrorText);

  end;

//  To complete the email, add a subject, From address,
//  and recipients...
email.Subject := 'This is an MHTML email test';
email.From := 'Chilkat <admin@chilkatsoft.com>';
email.AddTo('Chilkat Support','support@chilkatsoft.com');

//  Send the MHTML mail.
success := mailman.SendEmail(email);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);
  end
else
  begin
    ShowMessage('Mail Sent!');
  end;
end;