Xbase++

Get the Content-Location of a Related Item

Demonstrates the Chilkat Email.GetRelatedContentLocation method, which returns the Content-Location of a related item (typically an image or style sheet embedded within an HTML email). The index is zero-based. This example loads an image from a file into a BinData object and adds it as a related item addressed by Content-Location using AddRelatedBd2, then reads it back.

Background: Content-Location is the alternative to Content-ID for linking HTML to its embedded resources. Instead of a cid: reference, the HTML keeps an ordinary-looking src="logo.png", and the matching part carries a Content-Location of logo.png. Since the image is binary, it is loaded into a BinData object and added with AddRelatedBd2. This approach is common when an existing web page is turned into an email, since the original relative URLs can stay unchanged.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oEmail
LOCAL oBdImage
LOCAL cLoc

nSuccess := 0

//  Demonstrates the GetRelatedContentLocation method, which returns the Content-Location of
//  a related item.  Related items are typically images and style sheets embedded within
//  HTML emails.  The index is zero-based.

oEmail := CreateObject("Chilkat.Email")
oEmail:Subject := "GetRelatedContentLocation example"

//  The HTML references the image by the same name used as the Content-Location.
oEmail:SetHtmlBody('<html><body><img src="logo.png"/></body></html>')

//  Load the image data from a file into a BinData object.
oBdImage := CreateObject("Chilkat.BinData")
nSuccess := oBdImage:LoadFile("qa_data/images/logo.png")
IF (nSuccess == 0)
    ? oBdImage:LastErrorText
    oEmail:destroy()
    oBdImage:destroy()
    RETURN
ENDIF

//  Add the image as a related item addressed by Content-Location "logo.png".
nSuccess := oEmail:AddRelatedBd2(oBdImage, "logo.png")
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    oEmail:destroy()
    oBdImage:destroy()
    RETURN
ENDIF

//  Read the Content-Location of the first related item (index 0).
cLoc := oEmail:GetRelatedContentLocation(0)
? "Related item 0 Content-Location: " + cLoc

//  Note: The path "qa_data/images/logo.png" is a relative local filesystem path,
//  relative to the current working directory of the running application.

oEmail:destroy()
oBdImage:destroy()