¿Cómo enviar un correo electrónico con el cuerpo en formato HTML en Excel?
Si desea enviar un correo electrónico con contenido del cuerpo en formato HTML en Excel, un método en este artículo puede ayudarle.
Enviar correo electrónico con cuerpo en formato HTML mediante código VBA
Enviar correo electrónico con cuerpo en formato HTML mediante código VBA
Por favor, siga los siguientes pasos para enviar un correo electrónico con contenido del cuerpo en formato HTML en Excel.
1. Presione simultáneamente Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. Luego copie el siguiente código VBA en la ventana del Módulo.
Código VBA: Enviar correo electrónico con cuerpo en formato HTML en Excel
Sub SendEmailformattext()
'Update by Extendoffice.com
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.Display
.To = xRgVal
.Subject = "Test"
.HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Notas:
…
;
…
.3. Haga clic en Herramientas > Referencias, marque la casilla de la Biblioteca de Objetos de Microsoft Outlook en el cuadro de diálogo Referencias – VAProject, y luego haga clic en el botón Aceptar. Ver captura de pantalla:
4. Presione la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente Kutools para Excel, seleccione las direcciones de correo electrónico de los destinatarios y luego haga clic en el botón Aceptar.
Luego se crea el correo electrónico con los campos especificados y el cuerpo en formato HTML. Por favor, haga clic en el botón Enviar para enviarlo.
Enviar fácilmente correos electrónicos a través de Outlook basado en una lista de correo creada:
El Enviar correo electrónico utilidad de Kutools para Excel ayuda a los usuarios a enviar correos electrónicos a través de Outlook basado en una lista de correo creada en Excel como se muestra en la siguiente captura de pantalla.
¡Descárguelo y pruébelo ahora! (30-día de prueba gratuita)
Artículos relacionados:
- ¿Cómo enviar automáticamente un correo electrónico basado en el valor de una celda en Excel?
- ¿Cómo insertar una firma en un correo electrónico de Outlook al enviarlo mediante vba en Excel?
- ¿Cómo enviar un correo electrónico con formato de texto en negrita/tamaño/color/subrayado específico en Excel?
- ¿Cómo enviar un correo electrónico sin Outlook en Excel?
- ¿Cómo enviar un gráfico específico en un correo electrónico con vba en Excel?
- ¿Cómo enviar un correo electrónico a una hora específica del día en Excel?
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!