Kako samodejno odpreti vse vdelane hiperpovezave pri branju določenih e-poštnih sporočil v Outlooku

Nekateri uporabniki želijo, da lahko Outlook samodejno odpre hiperpovezave, vstavljene v telo e-pošte, ko odprejo in preberejo določena e-poštna sporočila. Zdaj bomo v tem članku delili metodo, ki jo lahko z lahkoto uresniči.

Ko odpirate in berete določena e-poštna sporočila, kot so življenjsko pomembna e-poštna sporočila vašega šefa, če e-poštna sporočila vsebujejo več hiperpovezav, boste te povezave zagotovo odprli. V primerjavi z ročnim odpiranjem vdelanih hiperpovezav bo zagotovo veliko bolj priročno, da jih Outlook samodejno odpre. Tukaj vas bomo podrobno naučili, kako to doseči.

Samodejno odpri vse vdelane hiperpovezave med branjem določenih e-poštnih sporočil

1. Za začetek zaženite aplikacijo Outlook.
2. Ko odprete Outlookovo okno, pritisnite bližnjične tipke »Alt + F11«.
3. V naslednjem oknu urejevalnika VBA morate omogočiti objekt »Microsoft VBScript Regular Expressions«. Kliknite »Orodja« in izberite »Reference«, da to dosežete.
4. Nato odprite projekt »ThisOutlookSession«.
5. Nato kopirajte naslednjo kodo VBA v ta projekt.

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. Po tem bi morali podpisati ta makro. Kliknite »Orodja« > »Digitalni podpis«, da to storite.
7. Nato zapustite trenutno okno in spremenite nastavitve makra Outlook.
8. Na koncu morate znova zagnati Outlook, da omogočite nov projekt VBA.
9. Od takrat bo Outlook vsakič, ko dvokliknete določena e-poštna sporočila, da jih preberete v lastnem oknu za sporočila, samodejno prepoznal hiperpovezave v telesu e-poštnega sporočila in jih takoj odprl v Internet Explorerju.

Nikoli ne obidite Outlookovih napak

Morda ste bili izpostavljeni različnim napakam Outlooka. Čeprav je odpravljanje težav z Outlookom težko, jih tudi ne morete zanemariti. Nakopičene napake lahko povzročijo resne katastrofe v Outlooku, kot je poškodba PST. Zato raje pripravite mogočno zunanjost Outlook popravek uporabnost, kot DataNumen Outlook Repair. Lahko zmanjša korupcijo in tako brez težav izvleče največ podatkov PST.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com