La plupart du temps, pour afficher les adresses des liens hypertextes, il faut survoler le texte avec le curseur. Cet article vous apprendra à utiliser VBA pour afficher toutes les adresses d'un e-mail en un seul clic.
Comme vous le savez, en plus d'ajouter directement une URL dans le corps de l'e-mail, vous êtes autorisé à insérer un lien hypertexte vers des textes. Dans ce cas, vous ne pourrez pas afficher directement les adresses des liens hypertexte. Vous devez placer le curseur sur le texte affiché. Mais, ce sera assez fastidieux s'il y a trop d'hyperliens de ce type dans l'e-mail actuel car vous devez vérifier les adresses une par une.
En réponse à ce problème, nous allons exposer ici une méthode rapide qui utilise VBA pour vous aider à extraire et afficher directement toutes les adresses de liens hypertexte. De cette façon, ce que vous devez faire est simplement un clic. Maintenant, lisez la suite pour obtenir les étapes élaborées et le code VBA.
Extraire et afficher toutes les adresses de lien hypertexte dans un e-mail
- En premier lieu, lancez votre application Outlook.
- Appuyez ensuite sur les touches "Alt + F11" dans la fenêtre principale d'Outlook.
- Ensuite, vous aurez accès à l'éditeur Outlook VBA avec succès.
- Par la suite, vous devrez ouvrir un module qui n'est pas utilisé.
- Après cela, copiez et collez les codes VBA suivants dans ce module.
Sub ShowAllHyperlinkAddresses()
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objWordApp As Word.Application
Dim objWordSelection As Word.Selection
Dim objHyperlinks As Word.Hyperlinks
Dim objHyperlink As Word.Hyperlink
Dim strLink As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objWordDocument = objMail.GetInspector.WordEditor
Set objWordApp = objWordDocument.Application
Set objHyperlinks = objWordDocument.Hyperlinks
If objHyperlinks.Count > 0 Then
For Each objHyperlink In objHyperlinks
strLink = objHyperlink.Address
strLink = vbTab & "<" & strLink & ">"
objHyperlink.Range.InsertAfter strLink
objHyperlink.Delete
With objWordApp.Options
.AutoFormatReplaceHyperlinks = True
.AutoFormatApplyOtherParas = False
.AutoFormatApplyHeadings = False
.AutoFormatApplyBulletedLists = False
.AutoFormatApplyLists = False
.AutoFormatApplyFirstIndents = False
End With
Set objWordSelection = objWordApp.Selection
objWordSelection.Range.AutoFormat
Next
End If
End Sub
- Plus tard, pour plus de commodité, vous feriez mieux d'ajouter la nouvelle macro à la barre d'outils d'accès rapide de la fenêtre de message.
- En outre, vous devez vous assurer que vos paramètres de macro Outlook autorisent les macros.
- Enfin, vous pouvez essayer.
- Tout d'abord, ouvrez un e-mail contenant de nombreux liens hypertexte.
- Passez ensuite en mode modifiable. Cliquez simplement sur "Actions" > "Modifier le message".
- Cliquez ensuite sur le bouton macro dans la barre d'outils d'accès rapide.
- En même temps, toutes les adresses de liens hypertexte seront extraites et affichées comme la capture d'écran suivante :
Pas à l'abri des problèmes d'Outlook
Bien qu'Outlook offre aux utilisateurs de nombreuses fonctions flexibles, il ne peut toujours pas être exempt d'erreurs et de plantages. Par conséquent, si vous souhaitez protéger vos données Outlook contre la corruption ou la perte, vous devez faire de gros efforts. Par exemple, vous devez persister à effectuer régulièrement des sauvegardes de données Outlook. Bien sûr, ce sera bien meilleur si vous préparez un puissant Récupération d'Outlook outil, tel que DataNumen Outlook Repair.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris sql corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com