Ako automaticky otvoriť všetky vložené hypertextové odkazy pri čítaní konkrétnych e-mailov v programe Outlook

Niektorí používatelia si želajú, aby program Outlook mohol automaticky otvárať hypertextové prepojenia vložené do tela e-mailu, keď otvoria a prečítajú konkrétne e-maily. Teraz sa v tomto článku podelíme o metódu, ktorá to môže ľahko realizovať.

Pri otváraní a čítaní konkrétnych e-mailov, ako sú životne dôležité e-maily od vášho šéfa, ak e-maily obsahujú niekoľko hypertextových odkazov, tieto odkazy určite otvoríte. V porovnaní s ručným otváraním vložených hypertextových odkazov bude automatické otváranie v programe Outlook určite oveľa pohodlnejšie. Tu vás podrobne naučíme, ako to dosiahnuť.

Automaticky otvárať všetky vložené hypertextové odkazy pri čítaní konkrétnych e-mailov

1. Ak chcete začať, spustite aplikáciu Outlook.
2. Po vstupe do okna programu Outlook stlačte klávesové skratky „Alt + F11“.
3. V nasledujúcom okne editora VBA musíte povoliť objekt „Microsoft VBScript Regular Expressions“. Kliknite na „Nástroje“ a vyberte „Referencie“, aby ste to dosiahli.
4. Ďalej otvorte projekt „ThisOutlookSession“.
5. Potom skopírujte nasledujúci kód VBA do tohto 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. Potom by ste mali toto makro podpísať. Ak to chcete urobiť, kliknite na „Nástroje“ > „Digitálny podpis“.
7. Potom zatvorte aktuálne okno a zmeňte nastavenia makra programu Outlook.
8. Nakoniec musíte reštartovať Outlook, aby ste povolili nový projekt VBA.
9. Odvtedy zakaždým, keď dvakrát kliknete na konkrétny e-mail, aby ste si ho prečítali vo vlastnom okne správy, Outlook automaticky rozpozná hypertextové odkazy v tele e-mailu a okamžite ich otvorí v programe Internet Explorer.

Nikdy neobíďte chyby programu Outlook

Možno ste boli vystavení rôznym chybám programu Outlook. Aj keď je odstránenie problémov s Outlookom ťažké, nemôžete ich ignorovať. Nahromadené chyby môžu viesť k vážnym katastrofám v programe Outlook, ako je poškodenie PST. Preto si radšej pripravte impozantný exteriér Oprava programu Outlook užitočnosť, ako DataNumen Outlook Repair. Môže minimalizovať poškodenie, čím sa bez problémov extrahuje maximum údajov PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S