PowerBuilder

Add a Related String Addressed by Name

Demonstrates the Chilkat Email.AddRelatedString2 method, which adds a related item from an in-memory string, addressed by the name used in the HTML rather than by a generated Content-ID. The first argument should match the filename used in an HTML img src or a stylesheet link href; the second is the Unicode content; the third is the charset it is converted to. Related items are images and style sheets embedded to support the HTML display — they are not attachments. This example embeds a CSS style sheet referenced as styles.css.

Background: This is the string-based, Content-Location counterpart to AddRelatedString. Instead of the HTML pointing at a cid: URL, it keeps a natural reference like href="styles.css", and the related part is matched to it by name. That makes it a good fit when you are turning existing web content into email and want the original relative references to keep working without rewriting them.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
oleobject loo_Email

//  Demonstrates the AddRelatedString2 method, which adds a related item to the email from
//  an in-memory string, addressed by the name used in the HTML (Content-Location).  The first
//  argument is the filename used in the HTML reference, the second is the content, and 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 (by name)"

//  The HTML references the style sheet by the same name used for the related item.
loo_Email.SetHtmlBody("<html><head><link rel=~"stylesheet~" href=~"styles.css~"/></head><body>Styled.</body></html>")

//  Add the style sheet as a related item addressed by the name used in the HTML.
loo_Email.AddRelatedString2("styles.css","body { color: navy; }","utf-8")

Write-Debug "NumRelatedItems = " + string(loo_Email.NumRelatedItems)


destroy loo_Email