Cómo ahorrar cuerpo del correo electrónico con formato de MS Outlook con elementos HTML en la tabla de MS Access?

votos
0

Probé este código simple:

Sub sendOutlookEmail()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject(Outlook.application)

Set oMail = oApp.ActiveExplorer.Selection.Item(1)

Dim HTMLBody As String
HTMLBody = oMail.HTMLBody

HTMLBody = Replace(HTMLBody, Chr(34), Chr(34) & Chr(34), 1)

Dim sql As String
sql = UPDATE email_body set email_body =  & Chr(34) & HTMLBody & Chr(34)

Debug.Print sql
CurrentDb.Execute sql

Set oMail = Nothing
Set oApp = Nothing

End Sub

Este código simple guarda el cuerpo del correo electrónico a mi mesa de MS Access con todos los elementos HTML. Más adelante, quiero ejecutar este código:

Sub sendOutlookEmail()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject(Outlook.application)

Set oMail = oApp.CreateItem(olMailItem)

Dim sql As String
sql = Select email_body from email_body

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(sql)

oMail.Body = rs(email_body)
oMail.Subject = email sent from ms access using vba 2
oMail.To = receiver@somthing.com

oMail.Display

Set oMail = Nothing
Set oApp = Nothing

End Sub

Ese código debería tener todo lo que se almacena en mi mesa de MS Access y crear un nuevo correo electrónico. Lo que hace embargo, copia el código HTML literal en el cuerpo del correo electrónico que obviamente no es lo que quiero. ¿Hay una manera de conseguir que se muestre la forma correcta?

Publicado el 19/09/2018 a las 17:09
fuente por usuario
En otros idiomas...                            


1 respuestas

votos
1

Utilice la MailItem.HTMLBodypropiedad , a diferencia de la MailItem.Bodypropiedad .

[Las HTMLBodypropiedades] Devuelve o establece una cadena que representa el cuerpo HTML del elemento especificado. [Es a la vez] lectura / escritura.

Respondida el 19/09/2018 a las 17:58
fuente por usuario

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more