Cum să deschideți automat toate hyperlinkurile încorporate când citiți anumite e-mailuri în Outlook

Unii utilizatori doresc ca Outlook să poată deschide automat hyperlinkurile inserate în corpul e-mailului atunci când deschid și citesc anumite e-mailuri. Acum, în acest articol, vom împărtăși o metodă care o poate realiza cu ușurință.

Când deschideți și citiți e-mailuri specifice, cum ar fi e-mailuri de importanță vitală de la șeful dvs., dacă e-mailurile conțin mai multe hyperlinkuri, veți deschide cu siguranță aceste link-uri. În comparație cu deschiderea manuală a hyperlink-urilor încorporate, ca Outlook să le deschidă automat va fi cu siguranță mult mai convenabil. Aici vă vom învăța cum să o realizați în detaliu.

Deschide automat toate hyperlinkurile încorporate când citești anumite e-mailuri

1. Pentru început, lansați aplicația Outlook.
2. După ce ați intrat în fereastra Outlook, apăsați comenzile rapide „Alt + F11”.
3. În fereastra ulterioară a editorului VBA, trebuie să activați obiectul „Microsoft VBScript Regular Expressions”. Apăsați pe „Instrumente” și selectați „Referințe” pentru a realiza acest lucru.
4. Apoi, deschideți proiectul „ThisOutlookSession”.
5. Apoi, copiați următorul cod VBA în acest proiect.

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. După aceea, ar trebui să semnați această macrocomandă. Faceți clic pe „Instrumente” > „Semnătură digitală” pentru a realiza acest lucru.
7. Apoi, ieșiți din fereastra curentă și modificați setările macrocomenzilor Outlook.
8. În cele din urmă, trebuie să reporniți Outlook pentru a activa noul proiect VBA.
9. De atunci, de fiecare dată când faceți dublu clic pe e-mailurile specifice pentru a le citi în propria fereastră de mesaje, Outlook va recunoaște automat hyperlinkurile din corpul e-mailului și le va deschide imediat în Internet Explorer.

Nu ocoli niciodată erorile Outlook

Poate că ați fost supus unor erori de Outlook asortate. Deși eliminarea problemelor Outlook este dificilă, nici nu le puteți ignora. Erorile acumulate pot duce la dezastre grave în Outlook, cum ar fi daune PST. Prin urmare, ar fi mai bine să pregătești un exterior formidabil Remediere Outlook utilitate, cum ar fi DataNumen Outlook Repair. Poate minimiza corupția, extragând astfel maximum de date PST fără probleme.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com