PowerBuilder

Add a Related String Resource to an Email

Demonstrates the Chilkat Email.AddRelatedString method, which adds a text-based related MIME resource, such as a style sheet, from an in-memory string and returns the generated Content-ID. The first argument is the MIME resource name, the second is the text content, and the third is the charset used to encode it. Because the Content-ID is generated by the call, this example adds the style sheet first, then builds an HTML body in a StringBuilder that references the style sheet by that cid:, and passes the result to SetHtmlBody.

Background: Related items are not always images loaded from disk — sometimes the resource is text you already have in memory, like a generated CSS style sheet or an SVG. AddRelatedString lets you embed such content directly without writing a temporary file first. As with other related items, it lives in the multipart/related enclosure and is referenced from the HTML by the Content-ID the method returns.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
oleobject loo_Email
string ls_Cid
oleobject loo_SbHtml
integer li_NumReplaced

//  Demonstrates the AddRelatedString method, which adds a text-based related MIME resource
//  (such as a style sheet) from an in-memory string and returns the generated Content-ID.
//  The first argument is the resource name, the second is the text content, the third is the charset.

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Email.Subject = "Email with a related style sheet"

//  Add the text-based related resource first; capture the generated Content-ID.
ls_Cid = loo_Email.AddRelatedString("styles.css","body { color: navy; }","utf-8")
if loo_Email.LastMethodSuccess = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    return
end if

//  Build the HTML body, referencing the related style sheet by its Content-ID.  A
//  placeholder is used and then replaced with the actual Content-ID.
loo_SbHtml = create oleobject
li_rc = loo_SbHtml.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbHtml.Append("<html><head><link rel=~"stylesheet~" href=~"cid:PLACEHOLDER_CID~"/></head><body>Styled content.</body></html>")
li_NumReplaced = loo_SbHtml.Replace("PLACEHOLDER_CID",ls_Cid)
loo_Email.SetHtmlBody(loo_SbHtml.GetAsString())

Write-Debug "Related Content-ID = " + ls_Cid
Write-Debug "NumRelatedItems = " + string(loo_Email.NumRelatedItems)


destroy loo_Email
destroy loo_SbHtml