Convert HTML Web Page to Email and Send

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

Download Chilkat Email ActiveX

Download Chilkat MHT ActiveX

LOCAL loMailman
LOCAL loMht
LOCAL lnSuccess
LOCAL loEmail

*  The mailman object is used for receiving (POP3)
*  and sending (SMTP) email.
loMailman = CreateObject('Chilkat.MailMan2')

*  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.
loMht = CreateObject('Chilkat.Mht')

*  Note: This example requires licenses to both "Chilkat Email" and "Chilkat MHT".

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    QUIT
ENDIF

lnSuccess = loMht.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loMht.LastErrorText
    QUIT
ENDIF

*  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.
loMht.UseCids = 1

loEmail = loMht.GetEmail("http://www.bonairefishing.com/")
IF (loEmail = NULL ) THEN
    ? loMht.LastErrorText
    QUIT
ENDIF

loEmail.Subject = "Test HTML email"

*  This example is tested in:
*  Outlook 2000, Eudora 7, Mozilla Thunderbird 1.5.0.9, Outlook Express 6, GMail, Yahoo Mail
loEmail.AddTo("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
loEmail.AddTo("Chilkat on Yahoo","chilkat_software@yahoo.com")
loEmail.AddTo("Chilkat on GMail","chilkat.support@gmail.com")

loEmail.From = "chilkat@live.com"

*  Send email using smtp.live.com
loMailman.SmtpHost = "smtp.live.com"
loMailman.SmtpUsername = "chilkat@live.com"
loMailman.SmtpPassword = "myPassword"
loMailman.SmtpPort = 587
loMailman.StartTLS = 1

lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loEmail
    QUIT
ENDIF

lnSuccess = loMailman.CloseSmtpConnection()
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loEmail
    QUIT
ENDIF

RELEASE loEmail

=MESSAGEBOX("HTML Email Sent!")