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

我想将默认签名添加到从Excel中的Userform发送的电子邮件的末尾。但是，由于body是HTML（因为我无法更改）它没有显示的签名。如何将.htm文件的内容添加到字符串？

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

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

我现在需要做的（和上午有有问题）是添加此Default.htm文件的内容到电子邮件正文的末尾。但是，做

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

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

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

来源

2014-02-25 Petay87

这里有一个办法做到这一点

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

来源

2014-02-25 10:18:37

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

Dim ff As Integer, sigTxt as String 

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

.HTMLBody = sigTxt

来源

2014-02-25 10:17:11

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

回答

相关问题