Come aprire in batch tutti i collegamenti ipertestuali con un dominio specifico nell'e-mail di Outlook

Quando visualizzi un'e-mail di Outlook che contiene molti collegamenti ipertestuali nel corpo, a volte potresti voler aprire rapidamente i collegamenti ipertestuali solo con un dominio specifico. Qui condivideremo un metodo per aprire tali collegamenti ipertestuali in blocco.

Di fronte a più collegamenti ipertestuali in un'e-mail, potresti sperare di controllarne alcuni, invece di tutti. Ad esempio, si desidera solo aprire in batch i collegamenti ipertestuali con un dominio specifico. In generale, devi fare clic uno per uno per aprirli. È molto fastidioso. Pertanto, nel seguito, ti insegneremo un modo più conveniente.

Batch Apri tutti i collegamenti ipertestuali con un dominio specifico nella posta elettronica

1. Per cominciare, accedi all'editor VBA di Outlook secondo "Come eseguire il codice VBA in Outlook".
2. Successivamente, nella finestra “Microsoft Visual Basic for Applications”, abilitare il riferimento a “MS Word Object Library” con riferimento a “Come aggiungere un riferimento a una libreria di oggetti in VBA".
3. Quindi, copia il seguente codice VBA in un modulo o progetto inutilizzato.

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. Successivamente, aggiungi questa macro alla barra degli strumenti di accesso rapido o alla barra multifunzione.
5. Infine, procedi come segue per provare.

• Prima di tutto, seleziona o apri un'e-mail di Outlook.
• Quindi, fai clic sul pulsante macro.
• Immediatamente, i collegamenti ipertestuali con il dominio predefinito nell'e-mail verranno aperti in batch in Internet Explorer, come mostrato nell'immagine seguente:

Sbarazzati dell'irritante corruzione di Outlook

Sebbene Outlook sia suscettibile di errori e corruzione, in realtà, fintanto che fai attenzione a tutti i rischi, puoi evitarli facilmente. Ad esempio, è necessario eseguire regolarmente backup dei dati per Outlook. Inoltre, dovresti fare attenzione alle e-mail sospette che potrebbero contenere virus. Ultimo ma non meno importante, faresti meglio a preparare un Riparazione di Outlook utilità, come ad es DataNumen Outlook Repair. È in grado di aiutarti in caso di danneggiamento di Outlook.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corrotto SQL Server e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com