Comment envoyer un e-mail depuis Excel avec un lien hypertexte dans le corps de l'e-mail?

Avez-vous déjà essayé d'envoyer un e-mail avec du code VBA dans Excel ? Et comment ajouter des hyperliens au texte du corps de l'e-mail lors de l'envoi d'un e-mail ? Cet article vous aidera à résoudre ce problème.

Insérer un lien hypertexte dans le corps de l'e-mail avec le code VBA

Insérer un lien hypertexte dans le corps de l'e-mail avec le code VBA

Le code VBA ci-dessous peut aider à envoyer un e-mail à partir d'Excel et insérer un lien hypertexte spécifique dans le corps de l'e-mail. Veuillez faire comme suit.

1. Lancez votre classeur, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez le code VBA ci-dessous dans l'éditeur de module.

Code VBA: insérer un lien hypertexte dans le corps de l'e-mail

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

Notes:

• Veuillez modifier le contenu du corps et le lien hypertexte dans le xStrCorps ligne.
• Remplace le "Adresse courriel"Dans le . Pour, .CC et .BCC lignes avec les adresses e-mail réelles auxquelles vous enverrez un e-mail. Si vous n'avez pas besoin des lignes CC et BCC, supprimez-les simplement du code entier ou ajoutez un guillemet simple avant les lignes, comme "CC =" Adresse e-mail ".
• Remplace le "Ligne d'objet"Dans le .Matière en ligne avec le sujet de votre e-mail.

3. appuie sur le F5 clé pour exécuter le code. Ensuite, l'e-mail est créé avec les champs et le corps spécifiés avec un lien hypertexte à l'intérieur, cliquez sur le bouton Envoyer pour l'envoyer.

Articles connexes