Visual Basic 6.0

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 Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 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.

Dim email As New ChilkatEmail
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 ChilkatBinData
success = bdImage.LoadFile("qa_data/images/logo.png")
If (success = 0) Then
    Debug.Print bdImage.LastErrorText
    Exit Sub
End If

'  Add the image as a related item addressed by Content-Location "logo.png".
success = email.AddRelatedBd2(bdImage,"logo.png")
If (success = 0) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

Debug.Print "NumRelatedItems = " & 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.