¿Cómo enviar un correo electrónico desde Excel con un hipervínculo en el cuerpo del correo?

¿Alguna vez has intentado enviar un correo electrónico con código VBA en Excel? ¿Y cómo agregar hipervínculos al texto del cuerpo del correo al enviarlo? Este artículo te ayudará a resolver este problema.

Insertar hipervínculo en el cuerpo del correo con código VBA

Insertar hipervínculo en el cuerpo del correo con código VBA

El siguiente código VBA puede ayudarte a enviar un correo electrónico desde Excel e insertar un hipervínculo específico en el cuerpo del correo. Por favor, sigue los siguientes pasos.

1. Abre tu libro de trabajo, presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo, y luego copia el siguiente código VBA en el editor de Módulo.

Código VBA: Insertar hipervínculo en el cuerpo del correo

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:

• Por favor, cambia el contenido del cuerpo y el hipervínculo en la línea xStrBody.
• Reemplaza la “Dirección de Correo” en las líneas .To, .CC y .BCC con las direcciones de correo reales a las que enviarás el correo. Si no necesitas las líneas CC y BCC, simplemente elimínalas de todo el código, o agrega una comilla simple antes de las líneas, como 'CC =”Dirección de Correo”.
• Reemplaza la “Línea de Asunto” en la línea .Subject con tu propio asunto del correo.

3. Presiona la tecla F5 para ejecutar el código. Luego, el correo se crea con los campos especificados y el cuerpo con el hipervínculo listado dentro; haz clic en el botón Enviar para enviarlo.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados