Comment envoyer un email depuis Excel avec un lien hypertexte dans le corps du message ?

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

Insérer un lien hypertexte dans le corps de l'email avec du code VBA

Insérer un lien hypertexte dans le corps de l'email avec du code VBA

Le code VBA ci-dessous peut vous aider à envoyer un email depuis Excel et insérer un lien hypertexte spécifique dans le corps de l'email. Veuillez suivre les étapes ci-dessous.

1. Ouvrez votre classeur, appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, 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'email

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

Remarques :

• Veuillez modifier le contenu du corps du message et le lien hypertexte dans la ligne xStrBody.
• Remplacez « Adresse e-mail » dans les lignes .À, .CC et .CCI par les adresses e-mail réelles auxquelles vous enverrez l'email. Si vous n'avez pas besoin des lignes CC et CCI, supprimez-les simplement de tout le code, ou ajoutez une apostrophe avant les lignes, comme 'CC ="Adresse e-mail".
• Remplacez « Objet » dans la ligne .Objet par votre propre objet d'email.

3. Appuyez sur la touche F5 pour exécuter le code. Ensuite, l'email est créé avec les champs spécifiés et le corps contenant le lien hypertexte listé à l'intérieur, cliquez sur le bouton Envoyer pour l'envoyer.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes