.htm 파일의 내용을 문자열에 추가하려면 어떻게합니까?

Question

Excel에서 사용자 폼에서 전송되는 전자 메일의 끝에 기본 서명을 추가하고 싶습니다.그러나 신체가 HTML이되는 것으로 인해 (이유로 나는 변경할 수 없기 때문에) 표시되지 않습니다.

기본값 인 Default.htm 서명 위치 인 코드가 있습니다.

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

.

이제 내가해야 할 일 (그리고 문제가 있는가) 은이 default.htm 파일의 내용을 전자 메일의 본문 끝에 추가하는 것입니다.그러나

를 수행합니다

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

.

텍스트 양식에 위치 경로를 전자 메일에 추가합니다.

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

.