Visual FoxPro

Add a Related Item from BinData by Content-Location

Demonstrates the Chilkat Email.AddRelatedBd2 method, which adds a related item using the binary data in a BinData object, addressed by Content-Location. The second argument specifies the filename, path, or URL used by the corresponding HTML reference. This example embeds an image referenced as logo.png.

Background: This is the binary counterpart of AddRelatedString2 and the Content-Location sibling of AddRelatedBd. Instead of a generated cid: reference, the HTML keeps an ordinary src="logo.png" and the related part is matched to it by name — convenient when turning an existing web page into an email so its original relative URLs keep working.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loBdImage

lnSuccess = 0

*  Demonstrates the AddRelatedBd2 method, which adds a related item using the binary data in
*  a BinData object, addressed by Content-Location.  The second argument specifies the filename/path/URL
*  used by the corresponding HTML reference.

loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "Related image from BinData (Content-Location)"

*  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

? "NumRelatedItems = " + STR(loEmail.NumRelatedItems)

*  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