如何將.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文件的內容添加到字符串？

回答

相關問題