Xbase++

Convert HTML Web Page to Email and Send

See more MHT / HTML Email Examples

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

LOCAL nSuccess
LOCAL oMailman
LOCAL oMht
LOCAL oEmail
LOCAL cEmlStr

nSuccess := 0

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

oMailman := CreateObject("Chilkat.MailMan")

//  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.
oMht := CreateObject("Chilkat.Mht")

oEmail := CreateObject("Chilkat.Email")

//  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.
oMht:UseCids := 1

cEmlStr := oMht:GetEML("http://www.bonairefishing.com/")
IF (oMht:LastMethodSuccess != 1)
    ? oMht:LastErrorText
    oMailman:destroy()
    oMht:destroy()
    oEmail:destroy()
    RETURN
ENDIF

nSuccess := oEmail:SetFromMimeText(cEmlStr)
IF (nSuccess != 1)
    ? oEmail:LastErrorText
    oMailman:destroy()
    oMht:destroy()
    oEmail:destroy()
    RETURN
ENDIF

oEmail: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
nSuccess := oEmail: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
nSuccess := oEmail:AddTo("Chilkat on Yahoo", "chilkat_software@yahoo.com")
nSuccess := oEmail:AddTo("Chilkat on GMail", "chilkat.support@gmail.com")

oEmail:From := "chilkat@live.com"

//  Send email using smtp.live.com
oMailman:SmtpHost := "smtp.live.com"
oMailman:SmtpUsername := "chilkat@live.com"
oMailman:SmtpPassword := "myPassword"
oMailman:SmtpPort := 587
oMailman:StartTLS := 1

nSuccess := oMailman:SendEmail(oEmail)
IF (nSuccess != 1)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oMht:destroy()
    oEmail:destroy()
    RETURN
ENDIF

nSuccess := oMailman:CloseSmtpConnection()
IF (nSuccess != 1)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oMht:destroy()
    oEmail:destroy()
    RETURN
ENDIF

? "HTML Email Sent!"

oMailman:destroy()
oMht:destroy()
oEmail:destroy()