Exportar tabla como html en correo electrónico

Con el código que copio a continuación, estoy intentando exportar una tabla de access a html e insertarla en el cuerpo de un email, para que el receptor vea la tabla ya formateada. Pero al recibir el mensaje, se visualiza el código html, no la tabla formateada.

El código primero abre la tabla, la convierte a html y luego usando CDO de access envía un email.

Public Sub SendSimpleCDOMail()
Dim NúmeroArchivo
Dim fs, f, ts
DoCmd.OpenTable "tabla1", acViewPreview
archivo = "d:\bases de datos\webtemp.HTML"
DoCmd.OutputTo acOutputTable, tabla1, acFormatHTML, archivo, False
NúmeroArchivo = FreeFile
                Set fs = CreateObject("Scripting.FileSystemObject")
                Set f = fs.GetFile(archivo)
                Set ts = f.OpenAsTextStream(1, -2)
                s = ts.readall
                ts.Close
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "servidordecorreo.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXX"
.Update
End With
' build email parts
With cdomsg
.To = "[email protected]"
.From = "[email protected]"
.Subject = "Prueba envío tabla por CDO"
.TextBody = s
.Send
End With
Set cdomsg = Nothing
End Sub

1 Respuesta

Respuesta
1

Solucionado, hay que sustituir

.TextBody = s

por 

.HtmlBody = s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas