Removing  from Email Signature in VBA

Question

I made an excel macro to send multiple emails at once based off user data. I changed the .body to .htmlbody to allow the use of bolding, etc.; however, when I call the email signature, it's placing  before the actual signature in the email. I found out that it's due to UTF-BOM encoding, however, in this instance, I'm not able to simply update the encoding of the file. I need the script to actually open the file with the updated (UTF-8) encoding, but not altering the file at all. Here's my code so far. I left most of the code out since I believe the only update will be done on the "GetBoiler" function.

Dim SigString As String
Dim Signature As String


SigString = Environ("appdata") & _
    "\Microsoft\Signatures\Default English - Main.htm"

If Dir(SigString) <> "" Then
    Signature = GetBoiler(SigString)
Else
    Signature = ""
End If

Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

Answer 1

FSO can't read UTF-8

From the documentation:

The FSO can read only ASCII text files. You cannot use the FSO to read Unicode files or to read binary file formats such as Microsoft Word or Microsoft Excel.

Since you got weird characters, I guess that's somewhat incorrect and the file was read in some 8-bit windows code page because if it really could read only ASCII, you would have seen ????

Anyway, if you can use ADO, you can do this:

Dim objStream, strData

Set objStream = CreateObject("ADODB.Stream")

objStream.CharSet = "utf-8"
objStream.Open
objStream.LoadFromFile("C:\Users\admin\Desktop\ArtistCG\folder.txt")

strData = objStream.ReadText()

objStream.Close
Set objStream = Nothing

(Source)

---

Outlook Signatures

• Ron de Bruin : Working with Outlook signatures
• Stack Overflow : How to add default signature in Outlook