Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loBdImage
LOCAL lcLoc

lnSuccess = 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.

loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "GetRelatedContentLocation example"

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

*  Load the image data from a file into a BinData object.
loBdImage = CreateObject('Chilkat.BinData')
lnSuccess = loBdImage.LoadFile("qa_data/images/logo.png")
IF (lnSuccess = 0) THEN
    ? loBdImage.LastErrorText
    RELEASE loEmail
    RELEASE loBdImage
    CANCEL
ENDIF

*  Add the image as a related item addressed by Content-Location "logo.png".
lnSuccess = loEmail.AddRelatedBd2(loBdImage,"logo.png")
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loBdImage
    CANCEL
ENDIF

*  Read the Content-Location of the first related item (index 0).
lcLoc = loEmail.GetRelatedContentLocation(0)
? "Related item 0 Content-Location: " + lcLoc

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

RELEASE loEmail
RELEASE loBdImage