¿Cómo enviar correo electrónico con cuerpo de correo electrónico HTML en Excel?
Si desea enviar un correo electrónico con el contenido del cuerpo en formato HTML en Excel, un método en este artículo puede ayudarlo.
Enviar correo electrónico con cuerpo de correo electrónico HTML con código VBA
Enviar correo electrónico con cuerpo de correo electrónico HTML con código VBA
Haga lo siguiente para enviar un correo electrónico con el contenido del cuerpo en formato HTML en Excel.
1. presione el otro + F11 simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana del Módulo.
Código VBA: envíe un correo electrónico con el cuerpo del correo electrónico 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. Hacer clic en Herramientas > Referencias, comprueba la Biblioteca de objetos de Microsoft Outlook en el cuadro Referencias - VAProject cuadro de diálogo y luego haga clic en el OK botón. Ver captura de pantalla:
4. presione el F5 clave para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, seleccione las direcciones de correo electrónico de los destinatarios y luego haga clic en el OK del botón.
Luego, se crea el correo electrónico con los campos especificados y el cuerpo HTML. Haga clic en el Enviar botón para enviarlo.
Envíe fácilmente correos electrónicos a través de Outlook según la lista de correo creada:
La Enviar correos electrónicos utilidad de Kutools for Excel ayuda a los usuarios a enviar correo electrónico a través de Outlook según la lista de correo creada en Excel, como se muestra en la siguiente captura de pantalla.
¡Descárgalo y pruébalo ahora! (Pista gratuita de 30 días)
Artículos relacionados:
- ¿Cómo enviar correos electrónicos automáticamente según el valor de la celda en Excel?
- ¿Cómo insertar una firma en el correo electrónico de Outlook al enviar por vba en Excel?
- ¿Cómo enviar un correo electrónico con el formato de texto especificado en negrita / tamaño / color / subrayado en Excel?
- ¿Cómo enviar correos electrónicos 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 de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!