如何将.htm文件的内容添加到字符串？

Question

我想将默认签名添加到Excel中userform正在发送的电子邮件的末尾。但是，由于身体是HTML（由于我无法改变），它不显示的签名。

我有以下代码是default.htm签名的位置：

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

.

现在需要做什么（和我有问题）是将此DEFAULT.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

.