.htmファイルの内容を文字列に追加する方法

Question

ExcelのUserformから送信されている電子メールの末尾にデフォルトの署名を追加したい。ただし、身体がHTMLのため（変更できません）が表示されていません。

デフォルトの場所である次のコードがあります。

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

.

今すぐ行う必要があるのは、このdefault.htmファイルの内容を電子メールの本文の末尾に追加することです。しかし、

をやる

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

.

テキストフォームにLocation 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

最初にパスからファイルの内容を読む必要があります。

Dim ff As Integer, sigTxt as String

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

.HTMLBody = sigTxt

.