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 cometart, accedi all'editor VBA di Outlook in base a "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 oggetto Library Riferimento 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