Hvordan batchåpne alle hyperkoblinger med et spesifikt domene i Outlook-e-posten din

Når du ser på en Outlook-e-post som inneholder mange hyperkoblinger i brødteksten, kan det til tider bare være ønskelig å raskt åpne hyperkoblingene med et spesifikt domene. Her vil vi dele en metode for å åpne slike hyperkoblinger i bulk.

I møte med flere hyperkoblinger i én e-post, håper du kanskje å sjekke noen av dem, i stedet for alle. For eksempel vil du bare batchåpne hyperkoblingene med et spesifikt domene. Generelt må du klikke én etter én for å åpne dem. Det er veldig plagsomt. Derfor vil vi i det følgende lære deg en mer praktisk måte.

Batch-åpne alle hyperkoblinger med et spesifikt domene i e-post

1. For somtart, få tilgang til Outlook VBA-editor i henhold til "Hvordan kjøre VBA-kode i Outlook".
2. Deretter, i "Microsoft Visual Basic for Applications"-vinduet, aktiver referansen til "MS Word Object Library" med referanse til "Hvordan legge til et objekt Library Referanse i VBA".
3. Deretter kopierer du følgende VBA-kode til en ubrukt modul eller et prosjekt.

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. Deretter legger du til denne makroen til hurtigtilgangsverktøylinjen eller båndet.
5. Til slutt, ta følgende trinn for å prøve.

• Først av alt, velg eller åpne en Outlook-e-post.
• Klikk deretter på makroknappen.
• Med en gang vil hyperkoblingene med det forhåndsdefinerte domenet i e-posten bli batchåpnet i Internet Explorer, som vist i følgende bilde:

Bli kvitt irriterende Outlook-korrupsjon

Selv om Outlook er utsatt for feil og korrupsjon, så lenge du ser etter alle risikoer, kan du faktisk unnslippe dem med letthet. For eksempel må du ta sikkerhetskopier av data for Outlook med jevne mellomrom. Dessuten bør du passe på de mistenkelige e-postene som kan inneholde virus. Sist, men ikke minst, bør du forberede en Outlook reparasjon nytte, som f.eks DataNumen Outlook Repair. Den er i stand til å hjelpe deg i tilfelle Outlook-korrupsjon.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert korrupt SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med