Tcl

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. Tcl

load ./chilkat.dll

set success 0

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

set mailman [new_CkMailMan]

# 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.
set mht [new_CkMht]

set email [new_CkEmail]

# 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_put_UseCids $mht 1

set emlStr [CkMht_getEML $mht "http://www.bonairefishing.com/"]
if {[CkMht_get_LastMethodSuccess $mht] != 1} then {
    puts [CkMht_lastErrorText $mht]
    delete_CkMailMan $mailman
    delete_CkMht $mht
    delete_CkEmail $email
    exit
}

set success [CkEmail_SetFromMimeText $email $emlStr]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkMailMan $mailman
    delete_CkMht $mht
    delete_CkEmail $email
    exit
}

CkEmail_put_Subject $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
set 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
set success [CkEmail_AddTo $email "Chilkat on Yahoo" "chilkat_software@yahoo.com"]
set success [CkEmail_AddTo $email "Chilkat on GMail" "chilkat.support@gmail.com"]

CkEmail_put_From $email "chilkat@live.com"

# Send email using smtp.live.com
CkMailMan_put_SmtpHost $mailman "smtp.live.com"
CkMailMan_put_SmtpUsername $mailman "chilkat@live.com"
CkMailMan_put_SmtpPassword $mailman "myPassword"
CkMailMan_put_SmtpPort $mailman 587
CkMailMan_put_StartTLS $mailman 1

set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkMht $mht
    delete_CkEmail $email
    exit
}

set success [CkMailMan_CloseSmtpConnection $mailman]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkMht $mht
    delete_CkEmail $email
    exit
}

puts "HTML Email Sent!"

delete_CkMailMan $mailman
delete_CkMht $mht
delete_CkEmail $email