Как добавить содержимое файла .htm в строку?
-
21-12-2019 - |
Вопрос
Я хочу добавить подпись по умолчанию на конец электронного письма, которое отправляется из пользовательской формы в Excel.Однако из-за тела, являющегося HTML (по причине я не могу изменить) подпись она не отображается.
У меня есть следующий код, который является местоположением подписи по умолчанию. HTM:
strSig = Environ("AppData") & "\Microsoft\Signatures\Default.htm"
.
Что мне теперь нужно сделать (и у меня есть проблемы) - добавить содержимое этого файла по умолчанию .htm в конец тела электронной почты.Тем не менее, делать
.HTMLBody = "some text <br>" & strSig
.
Это просто добавляет путь местоположения в текстовой форме на электронную почту.
Как получить его, чтобы вставить содержимое файла HTML?
Решение
Вот способ сделать это
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
. Другие советы
Вам нужно сначала прочитать содержимое файла с пути.
Dim ff As Integer, sigTxt as String
ff = FreeFile
Open strSig For Input As #ff
sigTxt = Input$(LOF(1), 1)
Close
.HTMLBody = sigTxt
. Не связан с StackOverflow