Come aggiungo il contenuto di un file .htm a una stringa?

Question

Voglio aggiungere la firma predefinita alla fine di un'e-mail inviata da un utente utente in Excel.Tuttavia, a causa del corpo essendo HTML (per il motivo che non posso cambiare) la firma che non viene visualizzata.

Ho il seguente codice che è la posizione della firma predefinita.htm:

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

.

Quello che ho ora bisogno di fare (e sto avendo problemi con) è aggiungere il contenuto di questo file predefinito.htm fino alla fine del corpo dell'email.Tuttavia, fare

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

.

Aggiunge solo il percorso della posizione nel modulo di testo all'e-mail.

Come posso ottenere per inserire il contenuto del file HTML?

Answer 1

Ecco un modo per farlo

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

È necessario leggere prima il contenuto del file dal percorso.

Dim ff As Integer, sigTxt as String

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

.HTMLBody = sigTxt

.