PowerBuilder
Send HTML Email with Attachments

Demonstrates how to send an HTML email with file attachments.
Chilkat PowerBuilder Downloads

PowerBuilder
integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_Email
string ls_ContentIdStarfish
oleobject loo_SbHtml
integer li_NumReplacements
string ls_Content

li_Success = 0

// This example requires 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

loo_Mailman.SmtpHost = "smtp.my-starttls-mail-server.com"

loo_Mailman.SmtpUsername = "MY-SMTP-USERNAME"
loo_Mailman.SmtpPassword = "MY-SMTP-PASSWORD"

loo_Mailman.StartTLS = 1
loo_Mailman.SmtpPort = 587

// Create a new email object
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

loo_Email.Subject = "Test SMTP API to Send HTML Email with Attachments"
loo_Email.From = "Joe Programmer <joe@my-starttls-mail-server.com>"
loo_Email.AddTo("Chilkat Support","support@chilkatsoft.com")

// Add a plain-text alternative body, which will likely never be seen.
// (It is shown if the receiving email client is incapable of displaying HTML email.)
loo_Email.AddPlainTextAlternativeBody("This is a plain-text alternative body...")

// Our HTML will include an image, so add the related image here.
ls_ContentIdStarfish = loo_Email.AddRelatedFile("qa_data/jpg/starfish.jpg")
if loo_Email.LastMethodSuccess <> 1 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Mailman
    destroy loo_Email
    return
end if

// The src attribute for the image tag is set to the contentIdStarfish:
loo_SbHtml = create oleobject
li_rc = loo_SbHtml.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbHtml.Append("<html><body><p>This is an HTML email with an embedded image.</p>")
loo_SbHtml.Append("<p><img src=~"cid:CONTENT_ID_STARFISH~" /></p></body></html>")
li_NumReplacements = loo_SbHtml.Replace("CONTENT_ID_STARFISH",ls_ContentIdStarfish)

loo_Email.AddHtmlAlternativeBody(loo_SbHtml.GetAsString())

// Finally, add some attachments to the email.
// Add a file attachment.
li_Success = loo_Email.AddFileAttachment2("qa_data/pdf/fishing.pdf","application/pdf")
if li_Success <> 1 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Mailman
    destroy loo_Email
    destroy loo_SbHtml
    return
end if

// Add an attachment where the content is contained in a string.
ls_Content = "This is the content of the 2nd attached file."
loo_Email.AddStringAttachment("someText.txt",ls_Content)

// Send the HTML email.
li_Success = loo_Mailman.SendEmail(loo_Email)
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_Email
    destroy loo_SbHtml
    return
end if

li_Success = loo_Mailman.CloseSmtpConnection()
if li_Success <> 1 then
    Write-Debug "Connection to SMTP server not closed cleanly."
end if

Write-Debug "HTML email with attachments sent!"


destroy loo_Mailman
destroy loo_Email
destroy loo_SbHtml