Kako paketno odpreti vse hiperpovezave z določeno domeno v Outlookovi e-pošti

Ko si ogledujete Outlookovo e-pošto, ki vsebuje veliko hiperpovezav v telesu, boste morda želeli hitro odpreti samo hiperpovezave z določeno domeno. Tukaj bomo delili metodo za množično odpiranje takšnih hiperpovezav.

Glede na več hiperpovezav v enem e-poštnem sporočilu lahko upate, da boste preverili nekatere od njih, namesto vseh. Na primer, želite samo paketno odpreti hiperpovezave z določeno domeno. Na splošno morate klikniti enega za drugim, da jih odprete. To je zelo težavno. Zato vas bomo v nadaljevanju naučili bolj priročnega načina.

Paketno odprite vse hiperpovezave z določeno domeno v e-pošti

1. Kajti kottart, dostopite do urejevalnika Outlook VBA v skladu z “Kako zagnati kodo VBA v Outlooku".
2. Nato v oknu »Microsoft Visual Basic for Applications« omogočite sklic na »MS Word Object Library "s sklicevanjem na"Kako dodati Lib predmetarary Referenca v VBA".
3. Nato kopirajte naslednjo kodo VBA v neuporabljen modul ali projekt.

Sub BatchOpenHyperlinksWithSpecificDomain()
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
    Dim objDictionary As Object
    Dim i As Integer
    Dim varHyperlinks As Variant
    Dim varHyperlink As Variant
    Dim objInternetExplorer As Object
 
    'Get the source email
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    Set objMailDocument = objMail.GetInspector.WordEditor
    For Each objHyperlink In objMailDocument.Hyperlinks
        If InStr(1, objHyperlink.Address, "www.datanumen.com") > 0 Then
           'Add Hyperlinks to Dictionary
           If objDictionary.Exists(objHyperlink.Address) = False Then
              objDictionary.Add objHyperlink.Address, 1
           End If
        End If
    Next
 
    'Batch Open Hyperlinks on different tabs in same Internet Explorer window
    Set objInternetExplorer = CreateObject("InternetExplorer.Application")
    varHyperlinks = objDictionary.Keys
    For i = LBound(varHyperlinks) To UBound(varHyperlinks)
        varHyperlink = varHyperlinks(i)
 
        If i = 0 Then
           objInternetExplorer.Visible = True
           objInternetExplorer.navigate varHyperlink
        Else
           objInternetExplorer.navigate varHyperlink, CLng(2048)
        End If
    Next
End Sub

4. Nato dodajte ta makro v orodno vrstico ali trak za hitri dostop.
5. Nazadnje naredite naslednje korake, da poskusite.

• Najprej izberite ali odprite Outlookovo e-pošto.
• Nato kliknite gumb makra.
• Hiperpovezave z vnaprej določeno domeno v e-pošti bodo takoj odprte v Internet Explorerju, kot je prikazano na naslednji sliki:

Znebite se moteče pokvarjenosti Outlooka

Čeprav je Outlook dovzeten za napake in pokvarjenost, se jim lahko z lahkoto izognete, dokler ste pozorni na vsa tveganja. Na primer, redno morate izdelovati varnostne kopije podatkov za Outlook. Poleg tega morate biti pozorni na sumljiva e-poštna sporočila, ki lahko vsebujejo viruse. Nenazadnje si raje pripravite Outlook popravilo uporabnost, kot je DataNumen Outlook Repair. Lahko vam pomaga v primeru pokvarjenega Outlooka.

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 pokvarjena SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com