Kā paketē atvērt visas hipersaites ar noteiktu domēnu jūsu Outlook e-pastā

Skatot Outlook e -pastu, kura pamattekstā ir daudz hipersaites, dažkārt jūs varat tikai ātri atvērt hipersaites ar noteiktu domēnu. Šeit mēs dalīsimies ar metodi, kā atvērt šādas hipersaites vairumā.

Saskaroties ar vairākām hipersaitēm vienā e -pastā, varat cerēt pārbaudīt dažas no tām, nevis visas. Piemēram, jūs vēlaties tikai sērijveidā atvērt hipersaites ar noteiktu domēnu. Parasti, lai tos atvērtu, jums ir jānoklikšķina pa vienam. Tas ir ļoti apgrūtinoši. Tāpēc turpmāk mēs jums iemācīsim ērtāku veidu.

Partijā atveriet visas hipersaites ar noteiktu domēnu e -pastā

1. Par kātart, piekļūstiet Outlook VBA redaktoram atbilstoši “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam logā “Microsoft Visual Basic for Applications” iespējojiet atsauci uz “MS Word Object Library "ar norādi"Kā pievienot objektu Library Atsauce VBA".
3. Pēc tam nokopējiet šo VBA kodu neizmantotā modulī vai 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. Pēc tam pievienojiet šo makro ātrās piekļuves rīkjoslai vai lentei.
5. Visbeidzot, veiciet tālāk norādītās darbības, lai izmēģinātu.

• Vispirms atlasiet vai atveriet Outlook e -pastu.
• Pēc tam noklikšķiniet uz makro pogas.
• Tūlīt hipersaites ar iepriekš definētu domēnu e -pastā tiks atvērtas pārlūkprogrammā Internet Explorer, kā parādīts šajā attēlā:

Atbrīvojieties no kairinošas Outlook korupcijas

Lai gan programma Outlook ir pakļauta kļūdām un korupcijai, patiesībā, kamēr jūs uzmanāties no visiem riskiem, varat no tiem viegli izvairīties. Piemēram, jums regulāri jāveic datu dublējumi programmai Outlook. Turklāt jums vajadzētu uzmanīties no aizdomīgiem e -pastiem, kas var saturēt vīrusus. Visbeidzot, jums vajadzētu sagatavoties Outlook remonts lietderība, piemēram, DataNumen Outlook Repair. Tas var jums palīdzēt Outlook korupcijas gadījumā.

Autora ievads:

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