Jak automaticky otevřít všechny vložené hypertextové odkazy při čtení konkrétních e -mailů v aplikaci Outlook

Někteří uživatelé si přejí, aby aplikace Outlook mohla automaticky otevřít hypertextové odkazy vložené do těla e -mailu, když otevírají a čtou konkrétní e -maily. Nyní v tomto článku budeme sdílet metodu, která ji může snadno realizovat.

Pokud při otevírání a čtení konkrétních e -mailů, například životně důležitých e -mailů od vašeho šéfa, tyto e -maily obsahují několik hypertextových odkazů, tyto odkazy rozhodně otevřete. Ve srovnání s ručním otevíráním vložených hypertextových odkazů bude automatické otevírání aplikací Outlook určitě mnohem pohodlnější. Zde vás podrobně naučíme, jak toho dosáhnout.

Automaticky otevřít všechny vložené hypertextové odkazy při čtení konkrétních e -mailů

1. Start spusťte aplikaci Outlook.
2. Po vstupu do okna aplikace Outlook stiskněte klávesové zkratky „Alt + F11“.
3. V následujícím okně editoru VBA musíte povolit objekt „Microsoft VBScript Regular Expressions“. K dosažení toho klikněte na „Nástroje“ a vyberte „Reference“.
4. Dále otevřete projekt „ThisOutlookSession“.
5. Potom zkopírujte následující kód VBA do tohoto projektu.

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. Poté byste měli toto makro podepsat. Toho dosáhnete kliknutím na „Nástroje“> „Digitální podpis“.
7. Poté ukončete aktuální okno a změňte nastavení maker aplikace Outlook.
8. Nakonec musíte restarV aplikaci Outlook povolte nový projekt VBA.
9. Od té doby pokaždé, když dvakrát kliknete na konkrétní e -maily a přečtete si je ve vlastním okně Zpráva, aplikace Outlook automaticky rozpozná hypertextové odkazy v těle e -mailu a okamžitě je otevře v aplikaci Internet Explorer.

Nikdy neobcházejte chyby aplikace Outlook

Možná jste byli vystaveni různým chybám aplikace Outlook. Přestože je odstranění problémů s aplikací Outlook obtížné, nemůžete je také ignorovat. Hromadné chyby mohou v aplikaci Outlook vést k vážným katastrofám, například k poškození PST. Proto si raději připravte impozantní externí Oprava aplikace Outlook nástroj, jako DataNumen Outlook Repair. Může minimalizovat poškození, a tím bez problémů extrahovat maximální data PST.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com