John's Tech Tips

Code: Select all

logtext "email_logo_base64.txt",convertImageToBase64("email_logo.png")

Function convertImageToBase64(filePath)
  Dim inputStream
  Set inputStream = CreateObject("ADODB.Stream")
  inputStream.Open
  inputStream.Type = 1  ' adTypeBinary
  inputStream.LoadFromFile filePath
  Dim bytes: bytes = inputStream.Read
  Dim dom: Set dom = CreateObject("Microsoft.XMLDOM")
  Dim elem: Set elem = dom.createElement("tmp")
  elem.dataType = "bin.base64"
  elem.nodeTypedValue = bytes
  convertImageToBase64 = "data:image/png;base64," & Replace(elem.text, vbLf, "")
End Function


Sub logtext (fName,wText)
 Dim f, fs

Set fs=CreateObject("Scripting.FileSystemObject")

Set f=fs.OpenTextFile(fName,8,True) ' 8 - for appending - create if not present
 f.Write(wText) & vbcrlf
f.Close

End Sub