Comment ouvrir automatiquement tous les hyperliens intégrés lors de la lecture d'e-mails spécifiques dans Outlook

Certains utilisateurs souhaitent qu'Outlook puisse ouvrir automatiquement les liens hypertexte insérés dans le corps de l'e-mail lorsqu'ils ouvrent et lisent des e-mails spécifiques. Maintenant, dans cet article, nous allons partager une méthode qui peut le réaliser facilement.

Lorsque vous ouvrez et lisez des e-mails spécifiques, tels que des e-mails d'une importance vitale de votre patron, si les e-mails contiennent plusieurs hyperliens, vous ouvrirez certainement ces liens. En comparaison avec l'ouverture manuelle des hyperliens intégrés, faire en sorte qu'Outlook les ouvre automatiquement sera sûrement beaucoup plus pratique. Ici, nous vous apprendrons comment y parvenir en détail.

Ouvrir automatiquement tous les hyperliens intégrés lors de la lecture d'e-mails spécifiques

1. Pour commencer, lancez l'application Outlook.
2. Après être entré dans la fenêtre Outlook, appuyez sur les raccourcis clavier "Alt + F11".
3. Dans la fenêtre de l'éditeur VBA suivante, vous devez activer l'objet "Microsoft VBScript Regular Expressions". Appuyez sur "Outils" et sélectionnez "Références" pour y parvenir.
4. Ensuite, ouvrez le projet "ThisOutlookSession".
5. Ensuite, copiez le code VBA suivant dans ce projet.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
 Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
 If Inspector.CurrentItem.Class = olMail Then
 Set objMail = Inspector.CurrentItem
 End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim objRegExp As RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As match
    Dim strURL As String
 
    'When opening specific emails
    'From specific persons or marked as important
    If objMail.SenderEmailAddress = "boss@datanumen.com" And objMail.Importance = olImportanceHigh Then
       Set objRegExp = New RegExp
 
       With objRegExp
            .Pattern = "(([0-9a-z=\?:/\.&-^!#$;_])*)"
            .Global = True
            .IgnoreCase = True
       End With

       If objRegExp.Test(objMail.Body) Then

          Set objMatches = objRegExp.Execute(objMail.Body)
          For Each objMatch In objMatches
              strURL = objMatch.SubMatches(0)
 
              'Exclude hyperlinks of email addresses
              If InStr(strURL, "@") = 0 Then
 
                 'Get the Internet Explorer
                 'Change the path as per your own case
                 Shell (Chr(34) & "C:\Program Files\Internet Explorer\iexplore.exe" & Chr(34) & strURL)
                 DoEvents
              End If
          Next
       End If
    End If
End Sub

6. Après cela, vous devez signer cette macro. Cliquez sur "Outils"> "Signature numérique" pour l'accomplir.
7. Ensuite, quittez la fenêtre actuelle et modifiez les paramètres de votre macro Outlook.
8. Enfin, vous devez redémarrer Outlook pour activer le nouveau projet VBA.
9. Depuis lors, chaque fois que vous double-cliquez sur les e-mails spécifiques pour les lire dans sa propre fenêtre de message, Outlook reconnaît automatiquement les hyperliens dans le corps de l'e-mail et les ouvre immédiatement dans Internet Explorer.

Ne jamais contourner les erreurs Outlook

Peut-être avez-vous été sujet à diverses erreurs Outlook. Bien qu'il soit difficile d'éliminer les problèmes d'Outlook, vous ne pouvez pas non plus les ignorer. Les erreurs accumulées peuvent entraîner de graves catastrophes dans Outlook, telles que des dommages PST. Par conséquent, vous feriez mieux de préparer un formidable externe Correctif Outlook utilitaire, comme DataNumen Outlook Repair. Il peut minimiser la corruption, extrayant ainsi un maximum de données PST sans problème.

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