Como faço para adicionar o conteúdo de um .arquivo html para uma seqüência de caracteres?

Question

Eu quero adicionar a assinatura padrão para o fim de um e-mail que está sendo enviado de um formulário de usuário no Excel.No entanto, devido a um corpo de HTML (por motivo que não posso mudar) a assinatura é não exibir.

Eu tenho o seguinte código, que é o local do default.htm assinatura:

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

O que eu preciso fazer (e estou tendo problemas com) é adicionar o conteúdo de este default.htm ficheiro para o fim do corpo do e-mail.No entanto, fazendo

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

ele apenas adiciona o caminho da localização em forma de texto para o e-mail.

Como eu faço para inserir o conteúdo do arquivo HTML?

Answer 1

Aqui está uma maneira de fazê-lo

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

Você precisa ler o conteúdo do arquivo do caminho primeiro.

Dim ff As Integer, sigTxt as String

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

.HTMLBody = sigTxt