Kako automatski otvoriti sve ugrađene hiperveze prilikom čitanja određenih e-poruka u Outlooku

Neki korisnici žele da Outlook može automatski otvoriti hiperveze umetnute u tijelo e-pošte kada otvore i pročitaju određene e-poruke. Sada ćemo u ovom članku podijeliti metodu kojom se to može lako realizirati.

Prilikom otvaranja i čitanja određenih e-poruka, kao što su vitalno važne e-poruke vašeg šefa, ako e-poruke sadrže nekoliko hiperveza, sigurno ćete otvoriti ove veze. U poređenju sa ručnim otvaranjem ugrađenih hiperveza, da ih Outlook automatski otvara sigurno će biti mnogo praktičnije. Ovdje ćemo vas detaljno naučiti kako to postići.

Automatsko otvaranje svih ugrađenih hiperveza prilikom čitanja određenih e-poruka

1. Za početak, pokrenite Outlook aplikaciju.
2. Nakon što uđete u Outlook prozor, pritisnite tasterske prečice “Alt + F11”.
3. U sledećem prozoru VBA editora potrebno je da omogućite objekat “Microsoft VBScript Regular Expressions”. Pritisnite "Alati" i odaberite "Reference" da to postignete.
4. Zatim otvorite projekat “ThisOutlookSession”.
5. Zatim kopirajte sljedeći VBA kod u ovaj projekat.

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. Nakon toga, trebali biste potpisati ovaj makro. Kliknite na "Alati" > "Digitalni potpis" da to postignete.
7. Zatim izađite iz trenutnog prozora i promijenite postavke Outlook makroa.
8. Na kraju, morate ponovo pokrenuti Outlook da biste omogućili novi VBA projekat.
9. Od tada, svaki put kada dvaput kliknete na određenu e-poštu da biste je pročitali u svom prozoru poruke, Outlook će automatski prepoznati hiperveze u tijelu e-pošte i odmah ih otvoriti u Internet Exploreru.

Nikada nemojte zaobići Outlook greške

Možda ste bili podložni raznim Outlook greškama. Iako je otklanjanje problema sa Outlookom teško, ni njih ne možete zanemariti. Nagomilane greške mogu dovesti do ozbiljnih katastrofa u Outlooku, kao što je PST oštećenje. Stoga je bolje da pripremite zastrašujuću eksternu Outlook popravka korisnost, kao DataNumen Outlook Repair. Može minimizirati korupciju, izvlačeći na taj način maksimalne PST podatke bez muke.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com