(Delphi DLL) Convert HTML Web Page to Email and Send

Converts an HTML page at a URL into an email with embedded images and sends it.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: HCkMailMan;
mht: HCkMht;
email: HCkEmail;
emlStr: PWideChar;
success: Boolean;

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

mailman := CkMailMan_Create();

// The MHT component can be used to convert an HTML page
// from a URL, file, or in-memory HTML into an email
// with embedded images and style sheets.
mht := CkMht_Create();

email := CkEmail_Create();

// There are two ways of embedding images in emails: with CIDs
// and without.  When using CIDs, the IMG SRC attributes use
// urls that begin with "cid:" and the corresponding image
// embedded within the email includes a Content-ID header field.
// When not using CIDs, the IMG SRC attribute can have a URL,
// path, etc. and the corresponding image embedded within
// the email has a matching Content-Location header field.

// When testing with GMail, if CIDs are used the email will
// be displayed with images blocked (by default) unless
// the user allows them to be displayed.  Without CIDs,
// the images are automatically displayed.

// When testing with Eudora, Mozilla Thunderbird, and Outlook Express, 
// embedded images display correctly with our without CIDs.

// When testing with Yahoo! Mail, embedded images display OK.
// However, the Yahoo! Mail user has the option of blocking
// images.  If this is turned on, the CID images will still 
// display correctly even though images are blocked.  Why?
// It's because when viewing the email there is no external
// HTTP request to fetch an image.  Therefore, a spammer 
// cannot get an indication that you've read the email. 
// However, if CIDs are not used, the images are blocked by 
// any Yahoo! Mail user that has image blocking turned on --
// even though the images are embedded.

// I haven't tested Hotmail yet...
// Regardless, there is no perfect solution.  If CIDs are used,
// GMail users may block your embedded images, if CIDs are not
// used, Yahoo! Mail users may block your embedded images.

// I recommend setting using CIDs.  This is what Mozilla Thunderbird
// does by default, and it's the more clear an unambiguous way
// to indicate that images are indeed embedded.
CkMht_putUseCids(mht,True);

emlStr := CkMht__getEML(mht,'http://www.bonairefishing.com/');
if (CkMht_getLastMethodSuccess(mht) <> True) then
  begin
    Memo1.Lines.Add(CkMht__lastErrorText(mht));
    Exit;
  end;

success := CkEmail_SetFromMimeText(email,emlStr);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

CkEmail_putSubject(email,'Test HTML email');

// This example is tested in:
// Outlook 2000, Eudora 7, Mozilla Thunderbird 1.5.0.9, Outlook Express 6, GMail, Yahoo Mail
success := CkEmail_AddTo(email,'Chilkat Support','support@chilkatsoft.com');

// Note: Chilkat does not regularly check our GMail and Yahoo
// email accounts.  Please send support email to support@chilkatsoft.com
success := CkEmail_AddTo(email,'Chilkat on Yahoo','chilkat_software@yahoo.com');
success := CkEmail_AddTo(email,'Chilkat on GMail','chilkat.support@gmail.com');

CkEmail_putFrom(email,'chilkat@live.com');

// Send email using smtp.live.com
CkMailMan_putSmtpHost(mailman,'smtp.live.com');
CkMailMan_putSmtpUsername(mailman,'chilkat@live.com');
CkMailMan_putSmtpPassword(mailman,'myPassword');
CkMailMan_putSmtpPort(mailman,587);
CkMailMan_putStartTLS(mailman,True);

success := CkMailMan_SendEmail(mailman,email);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;

success := CkMailMan_CloseSmtpConnection(mailman);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;

Memo1.Lines.Add('HTML Email Sent!');

CkMailMan_Dispose(mailman);
CkMht_Dispose(mht);
CkEmail_Dispose(email);

end;