Comment ouvrir un lien hypertexte dans Outlook directement au lieu d'une nouvelle fenêtre de navigateur

Lorsque vous cliquez sur un lien hypertexte dans un e-mail Outlook, le lien s'ouvre dans votre navigateur Internet par défaut. Mais en fait, vous pouvez également utiliser la méthode présentée dans cet article pour ouvrir un lien hypertexte directement dans Outlook.

Vous devez savoir que lorsque vous cliquez sur un lien hypertexte dans un e-mail Outlook, la page Web du lien s'ouvre par votre navigateur Internet par défaut. Cependant, de nombreux utilisateurs souhaitent ouvrir directement le lien hypertexte dans Outlook. Dans les versions antérieures d'Outlook, il existait un outil Web visible et évident. Mais maintenant, cette fonctionnalité est masquée. Malgré tout, Outlook peut toujours fonctionner comme un navigateur Web. Vous pouvez appliquer la méthode suivante qui utilise Outlook VBA pour y parvenir rapidement.

Ouvrir le lien hypertexte dans Outlook directement au lieu de la nouvelle fenêtre du navigateur

1. En premier lieu, lancez votre application Outlook.
2. Appuyez ensuite sur les touches "Alt + F11".
3. Par la suite, vous entrerez avec succès dans la fenêtre de l'éditeur Outlook VBA.
4. Ensuite, copiez et collez les codes VBA suivants dans un module non utilisé.

Public Sub OpenHyperlinkswithinOutlook()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
    Dim i As Long
    Dim objHyperlink As Word.Hyperlink
    Dim strHyperlinkList As String
    Dim strNumber As String
    Dim strURL As String
    Dim objExplorer As Explorer
    Dim objWebBrowser As Object
    Dim nAlert As Integer
 
    On Error Resume Next
    Select Case TypeName(Outlook.Application.ActiveWindow)
           Case "Inspector"
                Set objMail = ActiveInspector.CurrentItem
           Case "Explorer"
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select

    Set objWordDocument = objMail.GetInspector.WordEditor
    Set objHyperlinks = objWordDocument.Hyperlinks
 
    If objHyperlinks.Count < 1 Then
       nAlert = MsgBox("There is no hyperlink in this email!", vbExclamation)
 
       'Get the URL of the only hyperlink
    ElseIf objHyperlinks.Count = 1 Then
       Set objHyperlink = objWordDocument.Hyperlinks.Item(1)
       strURL = objHyperlink.Address
 
       'Select which hyperlink to open
    ElseIf objHyperlinks.Count > 1 Then
       For i = 1 To objHyperlinks.Count
           strHyperlinkList = strHyperlinkList & i & ": " & objHyperlinks.Item(i).Address & vbCrLf
       Next i
 
       For i = 1 To objHyperlinks.Count
           strNumber = InputBox("You have " & objHyperlinks.Count & " hyperlinks in this email as follows. " & vbCrLf & vbCrLf & "Please enter the number to select which one to be opened within your Outlook (format: 1)." & vbCrLf & vbCrLf & strHyperlinkList, "Select Hyperlink")
           Set objHyperlink = objWordDocument.Hyperlinks.Item(strNumber)
           strURL = objHyperlink.Address
           Exit For
       Next i
    End If
 
    'Open the selected hyperlink
    Set objExplorer = Application.ActiveExplorer
    Set objWebBrowser = objExplorer.CommandBars.FindControl(, 1740)

    objWebBrowser.Text = strURL
    objWebBrowser.Execute
End Sub

5. Après cela, ajoutez la nouvelle macro à la barre d'outils d'accès rapide ou au ruban comme d'habitude.
6. Modifiez ultérieurement le niveau de sécurité de votre macro Outlook sur faible.
7. Enfin, vous pouvez essayer. Tout d'abord, sélectionnez ou ouvrez un e-mail, puis appuyez sur le bouton macro. Voici 3 cas en fonction du nombre total d'hyperliens dans l'e-mail.

• S'il n'y a pas de lien hypertexte dans l'e-mail, vous recevrez un avertissement, illustré par la capture d'écran suivante :
• S'il n'y a qu'un seul lien hypertexte dans l'e-mail, le lien sera ouvert immédiatement, comme l'image ci-dessous :
• S'il y a plusieurs hyperliens dans l'e-mail, vous devrez sélectionner un hyperlien, comme l'image ci-dessous. Après avoir entré le numéro de l'hyperlien sélectionné, la page Web correspondante s'ouvrira immédiatement.

Ne craignez jamais les problèmes PST

De nombreux utilisateurs paniqueront dès qu'ils rencontreront des problèmes inattendus Fichier PST corrompu. C'est parce qu'ils n'ont pas pris suffisamment de précautions, telles que les sauvegardes de données PST à jour et un outil de réparation expérimenté comme DataNumen Outlook Repair. En fait, tant que vous restez bien préparé, vous n'aurez pas à craindre les problèmes de PST.

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 corruption mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com