vba - Formatear texto específico en Outlook
outlook-vba (1)
Consulte Trabajar con HTMLBody de Outlook
Option Explicit
Sub CreateHTMLMail()
''Creates a new e-mail item and modifies its properties.
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
''Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)
Dim StrAgnt As String
StrAgnt = "<HTML><H2>The body HTML.</H2><BODY>Type the message text here. </BODY></HTML>" & vbCrLf & vbCrLf & _
"<P><FONT FACE=""Comic Sans MS"" size=""6"" color=""red""><B>TEST.</B></FONTt></P>" & vbCrLf & vbCrLf & _
"<P><FONT FACE=""Times New Roman"" size=""4"" color=""blue""><i>TEST</i></FONT></P>" & vbCrLf & vbCrLf & _
"<P><FONT FACE=""Arial"" size=""3"" color=""green"">TEST</FONT></P>" & vbCrLf & vbCrLf
With objMail
''Set body format to HTML
.BodyFormat = olFormatHTML
.HTMLBody = StrAgnt
.Display
End With
End Sub
Propiedad de MSDN HTMLBody
Necesito formatear el valor de cadena específico que se adquirió de Excel en Outlook.
Una vez que Excel proporciona el valor, macro agregará ese valor en el mensaje de correo electrónico.
Intenté probar y establecer el valor en BOLD, pero todos los contenidos del mensaje se volvieron BOLD. ¿Cómo puedo formatear el valor de tal manera que pueda usar el tipo de letra, el tamaño y el color a mi gusto?
obj.HTMLBody = "<b>" & StrAgnt & vbCrLf & obj.HTMLBody