(Tcl) Embed Image in HTML Email

Demonstrates how to create and send an HTML email with an embedded image.

Chilkat Tcl Extension Downloads

Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# The mailman object is used for sending and receiving email.
set mailman [new_CkMailMan]

# Set the SMTP server.
CkMailMan_put_SmtpHost $mailman "smtp.comcast.net"

# Create a new email object
set email [new_CkEmail]

# Add an embedded image to the HTML email.
set fileOnDisk "images/dude2.gif"
set filePathInHtml "dudeAbc.gif"

# Embed the GIF image in the email.
set success [CkEmail_AddRelatedFile2 $email $fileOnDisk $filePathInHtml]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkEmail $email
    exit
}

# The src attribute for the image tag is set to the filePathInHtml:
set htmlBody "<html><body>Embedded Image:<br><img src=\"dudeAbc.gif\"></body></html>"

# Set the basic email stuff: HTML body, subject, "from", "to"
CkEmail_SetHtmlBody $email $htmlBody
CkEmail_put_Subject $email "Tcl HTML email with an embedded image."
set success [CkEmail_AddTo $email "Admin" "admin@chilkatsoft.com"]
CkEmail_put_From $email "Chilkat Support <support@chilkatsoft.com>"

set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
} else {
    puts "Mail Sent!"
}


delete_CkMailMan $mailman
delete_CkEmail $email