VBScript

Convert Inline Data-URL Images to Related Parts

Demonstrates the Chilkat Email.ConvertInlineImages method, which converts images embedded inline within HTML (as base64 data URLs) into multipart/related MIME parts referenced from the HTML by cid:. This example sets an HTML body containing a data-URL image and converts it.

Background: HTML can embed an image two ways: as a data: URL (the base64 bytes sit right in the src attribute) or as a related part referenced by cid:. Many email clients don't render data: URLs for security reasons, so converting them to proper multipart/related parts — the traditional email way to embed images — greatly improves how reliably the images display.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the ConvertInlineImages method, which converts images embedded inline within
'  HTML (as base64 data URLs) into multipart/related MIME parts referenced from the HTML by
'  CID.

set email = CreateObject("Chilkat.Email")
email.Subject = "Convert inline images"

'  An HTML body with a base64 data-URL image (a 1x1 PNG).
email.SetHtmlBody "<html><body><img src=""data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAQAAAC1HAwCAAAAC0lEQVR42mP8z8BQDwAEhQGAhKmMIQAAAABJRU5ErkJggg==""/></body></html>"

outFile.WriteLine("NumRelatedItems before = " & email.NumRelatedItems)

'  Convert the inline data-URL image(s) to multipart/related parts referenced by CID.

success = email.ConvertInlineImages()
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("NumRelatedItems after = " & email.NumRelatedItems)

outFile.Close