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

【问题标题】：How do I add the contents of a .htm file to a string?如何将 .htm 文件的内容添加到字符串？
【发布时间】：2014-02-25 10:08:08
【问题描述】：

我想将默认签名添加到从 Excel 中的用户表单发送的电子邮件的末尾。但是，由于正文是 HTML（出于我无法更改的原因）它没有显示的签名。

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

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

我现在需要做的（并且遇到问题）是将这个 default.htm 文件的内容添加到电子邮件正文的末尾。但是，做

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

它只是将文本形式的位置路径添加到电子邮件中。

如何让它插入 HTML 文件的内容？

【问题讨论】：

标签： excel vba outlook

【解决方案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

【讨论】：

【解决方案2】：

需要先从路径中读取文件内容。

Dim ff As Integer, sigTxt as String

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

.HTMLBody = sigTxt

【讨论】：