PowerBuilder

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

integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_Mht
oleobject loo_Email
string ls_EmlStr

li_Success = 0

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

loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.
loo_Mht = create oleobject
li_rc = loo_Mht.ConnectToNewObject("Chilkat.Mht")

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("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.
loo_Mht.UseCids = 1

ls_EmlStr = loo_Mht.GetEML("http://www.bonairefishing.com/")
if loo_Mht.LastMethodSuccess <> 1 then
    Write-Debug loo_Mht.LastErrorText
    destroy loo_Mailman
    destroy loo_Mht
    destroy loo_Email
    return
end if

li_Success = loo_Email.SetFromMimeText(ls_EmlStr)
if li_Success <> 1 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Mailman
    destroy loo_Mht
    destroy loo_Email
    return
end if

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

loo_Email.From = "chilkat@live.com"

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

li_Success = loo_Mailman.SendEmail(loo_Email)
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_Mht
    destroy loo_Email
    return
end if

li_Success = loo_Mailman.CloseSmtpConnection()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_Mht
    destroy loo_Email
    return
end if

Write-Debug "HTML Email Sent!"


destroy loo_Mailman
destroy loo_Mht
destroy loo_Email