Как добавить содержимое файла .htm в строку?

Question

Я хочу добавить подпись по умолчанию на конец электронного письма, которое отправляется из пользовательской формы в Excel.Однако из-за тела, являющегося HTML (по причине я не могу изменить) подпись она не отображается.

У меня есть следующий код, который является местоположением подписи по умолчанию. HTM:

strSig = Environ("AppData") & "\Microsoft\Signatures\Default.htm"

.

Что мне теперь нужно сделать (и у меня есть проблемы) - добавить содержимое этого файла по умолчанию .htm в конец тела электронной почты.Тем не менее, делать

.HTMLBody =  "some text <br>" & strSig

.

Это просто добавляет путь местоположения в текстовой форме на электронную почту.

Как получить его, чтобы вставить содержимое файла HTML?

Answer 1

Вот способ сделать это

Dim FSO As Object : Set FSO = CreateObject("Scripting.FileSystemObject")

Dim strSig As String
Dim pthSig As String

pthSig = Environ("AppData") & "\Microsoft\Signatures\Default.htm"
strSig = FSO.OpenTextFile(pthSig).ReadAll ' signature content

.HTMLBody =  "some text <br>" & strSig

.

Answer 2

Вам нужно сначала прочитать содержимое файла с пути.

Dim ff As Integer, sigTxt as String

ff = FreeFile
Open strSig For Input As #ff
    sigTxt = Input$(LOF(1), 1)
Close

.HTMLBody = sigTxt

.