Kā automātiski atvērt visas iegultās hipersaites, lasot konkrētus e-pasta ziņojumus programmā Outlook

Daži lietotāji vēlas, lai programma Outlook varētu automātiski atvērt e-pasta ziņojumā ievietotās hipersaites, kad viņi atver un lasa konkrētus e-pasta ziņojumus. Tagad šajā rakstā mēs dalīsimies ar metodi, kas to var viegli realizēt.

Atverot un lasot konkrētus e-pastus, piemēram, vitāli svarīgus e-pastus no priekšnieka, ja e-pastos ir vairākas hipersaites, jūs noteikti atvērsiet šīs saites. Salīdzinot ar iegulto hipersaišu manuālu atvēršanu, Outlook automātiski tās atvēršana noteikti būs daudz ērtāka. Šeit mēs detalizēti iemācīsim, kā to sasniegt.

Automātiski atveriet visas iegultās hipersaites, lasot konkrētus e-pasta ziņojumus

1. Lai sāktu, palaidiet programmu Outlook.
2. Pēc ieiešanas Outlook logā nospiediet taustiņu Alt + F11 īsinājumtaustiņus.
3. Nākamajā VBA redaktora logā ir jāiespējo objekts “Microsoft VBScript Regular Expressions”. Noklikšķiniet uz “Rīki” un atlasiet “Atsauces”, lai to sasniegtu.
4. Pēc tam atveriet projektu ThisOutlookSession.
5. Pēc tam kopējiet šo VBA kodu šajā 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. Pēc tam jums jāparaksta šis makro. Noklikšķiniet uz “Rīki” > “Digitālais paraksts”, lai to paveiktu.
7. Pēc tam izejiet no pašreizējā loga un mainiet Outlook makro iestatījumus.
8. Visbeidzot, lai iespējotu jauno VBA projektu, ir jārestartē programma Outlook.
9. Kopš tā laika katru reizi, kad veicat dubultklikšķi uz konkrētajiem e-pasta ziņojumiem, lai tos izlasītu savā ziņojumu logā, programma Outlook automātiski atpazīs e-pasta ziņojuma pamattekstā esošās hipersaites un nekavējoties atvērs tās pārlūkprogrammā Internet Explorer.

Nekad neapiet Outlook kļūdas

Iespējams, jums ir bijušas dažādas Outlook kļūdas. Lai gan Outlook problēmu novēršana ir sarežģīta, jūs arī nevarat tās ignorēt. Uzkrātās kļūdas programmā Outlook var izraisīt nopietnas katastrofas, piemēram, PST bojājumus. Tāpēc labāk ir sagatavot milzīgu ārējo Outlook labojums lietderība, piemēram DataNumen Outlook Repair. Tas var samazināt korupciju, tādējādi bez problēmām iegūstot maksimālo PST datu.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar