¿Cómo agrego el contenido de un archivo .HTM a una cadena?

Question

Quiero agregar la firma predeterminada al final de un correo electrónico que se envía desde un formulario de usuario en Excel.Sin embargo, debido al cuerpo que es HTML (por la razón, no puedo cambiar) la firma que no muestra.

Tengo el siguiente código que es la ubicación de la firma predeterminada.htm:

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

Lo que ahora necesito hacer (y tengo problemas con los problemas) es agregar los contenidos de este archivo predeterminado.htm al final del cuerpo del correo electrónico.Sin embargo, haciendo

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

Simplemente agrega la ruta de ubicación en el formulario de texto al correo electrónico.

¿Cómo lo entiendo para insertar los contenidos del archivo HTML?

Answer 1

Aquí hay una manera de hacerlo

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

Debe leer primero el contenido del archivo desde la ruta.

Dim ff As Integer, sigTxt as String

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

.HTMLBody = sigTxt