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 de salvaleuven
1