¿Cómo enviar un correo electrónico desde Excel con un hipervínculo en el cuerpo del correo electrónico?
¿Alguna vez ha intentado enviar un correo electrónico con código VBA en Excel? ¿Y cómo agregar hipervínculos al texto del cuerpo del correo electrónico al enviar un correo electrónico? Este artículo ayudará a resolver este problema.
Insertar hipervínculo en el cuerpo del correo electrónico con código VBA
Insertar hipervínculo en el cuerpo del correo electrónico con código VBA
El siguiente código de VBA puede ayudar a enviar correos electrónicos desde Excel e insertar un hipervínculo específico en el cuerpo del correo electrónico. Haz lo siguiente.
1. Inicie su libro de trabajo, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, y luego copie el siguiente código VBA en el editor de módulos.
Código de VBA: inserte un hipervínculo en el cuerpo del correo electrónico
Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "Hi there:" & "<br>" _
& "Please click " & "<a href=" & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
& "Thank you."
On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "Email Address"
.CC = "Email Address "
.BCC = " Email Address "
.Subject = "Subject line"
.HTMLBody = .HTMLBody & xStrBody
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub
Notas:
- Cambie el contenido del cuerpo y el hipervínculo en el xStrCuerpo la línea.
- Reemplace la "Correo electrónico"En el . Para, .cc y.BCC líneas con las direcciones de correo electrónico reales a las que enviará el correo electrónico. Si no necesita las líneas CC y BCC, simplemente elimínelas de todo el código o agregue una sola comilla antes de las líneas, como 'CC = ”Dirección de correo electrónico”.
- Reemplace la "Línea de asunto"En el .Tema línea con su propio asunto de correo electrónico.
3. presione el F5 clave para ejecutar el código. Luego, el correo electrónico se crea con los campos y el cuerpo especificados con el hipervínculo en el interior, haga clic en el botón Enviar para enviarlo.
Artículos relacionados
Envíe correos electrónicos automáticamente según el valor de la celda en Excel
Supongamos que desea enviar un correo electrónico a través de Outlook a un destinatario determinado en función de un valor de celda específico en Excel. Por ejemplo, cuando el valor de la celda D7 en una hoja de trabajo es mayor que 200, se crea automáticamente un correo electrónico. Este artículo presenta un método VBA para que pueda resolver rápidamente este problema.
Enviar correo electrónico si se hace clic en el botón en Excel
Suponiendo que necesita enviar un correo electrónico a través de Outlook haciendo clic en un botón en la hoja de cálculo de Excel, ¿cómo puede hacerlo? Este artículo presentará un método VBA para lograrlo en detalle.
Envíe un correo electrónico si se ha cumplido la fecha de vencimiento en Excel
Suponiendo que la fecha de vencimiento en la columna C es menor o igual a 7 días (la fecha actual es 2017/9/13), luego envíe un recordatorio por correo electrónico al destinatario especificado en la columna A con el contenido especificado en la columna B. ¿Cómo lograrlo? El método de este artículo puede hacerte un favor.
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!