如何将.htm文件的内容添加到string？

我想将默认签名添加到从Excel中的用户窗体发送的电子邮件的末尾。 但是，由于身体是HTML（因为我不能改变）的签名，它不显示。

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

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

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

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

它只是将文本forms的位置path添加到电子邮件。

我如何获得它插入的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

您需要先从path中读取文件内容。

 Dim ff As Integer, sigTxt as String ff = FreeFile Open strSig For Input As #ff sigTxt = Input$(LOF(1), 1) Close .HTMLBody = sigTxt