Cómo abrir por lotes todos los hipervínculos con un dominio específico en su correo electrónico de Outlook

Al ver un correo electrónico de Outlook que contiene muchos hipervínculos en el cuerpo, a veces, es posible que solo desee abrir rápidamente los hipervínculos con un dominio específico. Aquí compartiremos un método para abrir dichos hipervínculos de forma masiva.

Frente a múltiples hipervínculos en un correo electrónico, es posible que desee verificar algunos de ellos, en lugar de todos. Por ejemplo, solo le gustaría abrir por lotes los hipervínculos con un dominio específico. En general, debes hacer clic uno por uno para abrirlos. Es muy molesto. Por lo tanto, a continuación, le enseñaremos una forma más conveniente.

Abrir por lotes todos los hipervínculos con un dominio específico en el correo electrónico

1. Porque comotart, acceda al editor de Outlook VBA de acuerdo con "Cómo ejecutar código VBA en su Outlook".
2. Posteriormente, en la ventana "Microsoft Visual Basic para Aplicaciones", habilite la referencia a "MS Word Object Library "con referencia a"Cómo agregar una biblioteca de objetosrary Referencia en VBA".
3. Luego, copie el siguiente código VBA en un módulo o proyecto no utilizado.

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. A continuación, agregue esta macro a la barra de herramientas de acceso rápido o cinta.
5. Finalmente, siga los siguientes pasos para intentarlo.

• En primer lugar, seleccione o abra un correo electrónico de Outlook.
• Luego, haga clic en el botón de macro.
• De inmediato, los hipervínculos con el dominio predefinido en el correo electrónico se abrirán por lotes en Internet Explorer, como se muestra en la siguiente imagen:

Deshágase de la irritante corrupción de Outlook

Aunque Outlook es susceptible a errores y corrupción, en realidad, siempre que esté atento a todos los riesgos, puede escapar de ellos con facilidad. Por ejemplo, debe realizar copias de seguridad de datos para Outlook de forma regular. Además, debe estar atento a los correos electrónicos sospechosos que pueden contener virus. Por último, pero no menos importante, será mejor que prepare un Reparación de Outlook utilidad, como DataNumen Outlook Repair. Es capaz de ayudarlo en caso de corrupción de Outlook.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupto SQL Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com