Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Excel
  • Comment envoyer un e-mail depuis Excel avec un lien hypertexte dans le corps de l'e-mail?

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

Envoyer automatiquement un e-mail en fonction de la valeur de la cellule dans Excel
Supposons que vous souhaitiez envoyer un e-mail via Outlook à un certain destinataire en fonction d'une valeur de cellule spécifiée dans Excel. Par exemple, lorsque la valeur de la cellule D7 dans une feuille de calcul est supérieure à 200, un e-mail est créé automatiquement. Cet article présente une méthode VBA pour vous permettre de résoudre rapidement ce problème.

Envoyer un e-mail si le bouton est cliqué dans Excel
Supposons que vous deviez envoyer un e-mail via Outlook en cliquant sur un bouton dans la feuille de calcul Excel, comment pouvez-vous faire? Cet article présentera une méthode VBA pour y parvenir en détail.

Envoyer un e-mail si la date d'échéance a été respectée dans Excel
En supposant que la date d'échéance dans la colonne C soit inférieure ou égale à 7 jours (la date actuelle est le 2017/9/13), envoyez un e-mail de rappel au destinataire spécifié dans la colonne A avec le contenu spécifié dans la colonne B. Comment y parvenir? La méthode décrite dans cet article peut vous rendre service.


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité en
80 %

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus que
    300
    Caractéristiques puissantes
    . Prend en charge Office/Excel
    2007-2019 et 365
    . Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes
    30
    -jour d'essai gratuit. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité en
    50 %
    , et réduit chaque jour des centaines de clics de souris !
bas de cabine
Commentaires (7)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
ce code est génial, mais comment envoyer la feuille excel actuelle dans l'e-mail ?
Ce commentaire a été minimisé par le modérateur sur le site
vous pouvez utiliser la partie "xStrBody" dans un autre code de messagerie, que vous utilisez actuellement. sinon recherchez "excel to outlook email code".
Ce commentaire a été minimisé par le modérateur sur le site
vous utilisez la partie "xStrBody" dans votre code existant, une autre recherche Excel vers le code de messagerie Outlook en ligne et utilisez "xStrBody" cette partie.
Ce commentaire a été minimisé par le modérateur sur le site
s'il vous plaît j'ai besoin d'aide, cela ne fonctionne pas lorsque le lien contient des espaces pour le chemin du fichier ex MsgBox "C:\Users\Desktop\fs caché\Fusion fichier\TENDERING.xlsm"
xstrbody = "Demande d'approbation, Vous pouvez accéder au fichier depuis " & " ici "
le lien sera dans ce cas : C:\Users\Desktop\fs une idée ?
Ce commentaire a été minimisé par le modérateur sur le site
Vous pouvez utiliser : xstrbody = "Demande d'approbation, Vous pouvez accéder au fichier depuis " & " ici "
Ce commentaire a été minimisé par le modérateur sur le site
mon lien n'est pas cliquable et je ne sais pas pourquoi.

"Veuillez imprimer " et "Codes de téléphone "

Le lien apparaît mais je dois faire un clic droit sur l'e-mail pour qu'il s'ouvre. Aucune suggestion? De plus, je n'y connais pas grand chose en VBA. C'est quelque chose de nouveau que j'apprends par moi-même.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Maryanne,
Par défaut, lorsque vous rédigez un e-mail, les liens hypertexte sont ouverts en cliquant tout en appuyant sur la touche Ctrl ou en la maintenant enfoncée.
Si vous souhaitez ouvrir un lien hypertexte en un seul clic, veuillez désactiver cette fonction comme suit.
1. Dans votre Outlook, cliquez sur Déposez le > Options.
2. dans le Options d'Outlook boîte de dialogue, cliquez sur Courrier dans le volet gauche, puis cliquez sur le Options de l'éditeur bouton dans le Composer des messages section;
3. dans le Options de l'éditeur boîte de dialogue, cliquez sur Avancé dans le volet gauche, puis décochez la case Utilisez CTRL + Cliquez pour suivre le lien hypertexte case à cocher. Voir la capture d'écran:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/hyperlink.png
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL