Xojo Plugin

Add a Related Item from BinData by Content-Location

See more Email Object Examples

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 Xojo Plugin Downloads

Download Chilkat for Xojo Plugin

Xojo Plugin

Dim success As Boolean
success = False

//  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.

Dim email As New Chilkat.Email
email.Subject = "Related image from BinData (Content-Location)"

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

//  Load the image data from a file into a BinData object.
Dim bdImage As New Chilkat.BinData
success = bdImage.LoadFile("qa_data/images/logo.png")
If (success = False) Then
    System.DebugLog(bdImage.LastErrorText)
    Return
End If

//  Add the image as a related item addressed by Content-Location "logo.png".
success = email.AddRelatedBd2(bdImage,"logo.png")
If (success = False) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

System.DebugLog("NumRelatedItems = " + Str(email.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.