Extracción de correos de Outlook: extraiga información clave como nombres, empresas, números y Dirección de correo electrónico

En la comunicación por correo electrónico actual, marcada por su ritmo acelerado, es fundamental extraer rápidamente información clave de los mensajes —como nombres, direcciones de correo electrónico, números (por ejemplo, precios o números de teléfono) y nombres de empresas—. Esto resulta especialmente relevante al trabajar con correos extensos, ya que extraer dicha información no solo permite comprender el contenido con mayor rapidez, sino que también mejora notablemente la eficiencia y la precisión en el trabajo. Este tutorial presenta tres métodos para extraer información de correos electrónicos: Extracción manual, Extracción semiautomática con VBA y Extracción totalmente automatizada con KUTOOLS AI, ayudándole a elegir el enfoque más adecuado para sus necesidades.

Extracción tradicional – Manual

Copie y pegue manualmente los datos desde los correos: sencillo, pero lento y propenso a errores.

KUTOOLS AI para extracción – Totalmente automatizada

Extraiga datos automáticamente con un solo clic gracias al Asistente de IA de Kutools para Outlook: rápido, preciso y fácil de usar.

VBA para extracción – Semiautomatizada

Utilice scripts de VBA para automatizar parcialmente la extracción. Requiere conocimientos de programación y ofrece una personalización limitada.

---

Extracción tradicional – Manual

---

La extracción manual es el método más básico, que requiere que el usuario abra los correos, identifique manualmente la información clave (por ejemplo, nombres, direcciones de correo electrónico y números de teléfono) y la copie y pegue en Excel u otros documentos.

Paso 1. Abra el correo objetivo y revise su contenido.

Paso 2. Localice manualmente y seleccione la información clave (por ejemplo, nombres, dirección de correo electrónico, número de teléfono) y pulse Ctrl+C para copiarla.

Paso 3. Vaya a Excel u otro documento y pulse Ctrl+V para pegar.

---

KUTOOLS AI para extracción – Totalmente automatizada

---

Kutools para Outlook’s Asistente de IA ofrece una solución totalmente automatizada. Gracias a su avanzada tecnología de inteligencia artificial, extrae información clave (por ejemplo, nombres, nombre de la empresa, número de teléfono y dirección de correo electrónico) con un solo clic.

Paso 1. Instale Kutools para Outlook y, a continuación, abra Outlook. Haga clic en Kutools > IA para activar la función de KUTOOLS AI.

Paso 2. Vaya al panel de KUTOOLS AI activado, haga clic en la pestaña Extraer y, a continuación, pulse el botón Generar para que la IA extraiga la información del correo actual.

Podrá ver toda la información clave extraída y organizada en el panel.

Paso 3 - 1. Si el contenido no está bien estructurado, haga clic en el botón Regenerar para que la IA extraiga nueva información clave para usted.

Paso 3 - 2. Si el contenido le satisface, haga clic en el botón Copiar para copiar el contenido extraído y pegarlo donde desee.

Personalización

Los usuarios pueden personalizar los tipos de información que desean extraer, como nombres, nombre de la empresa o número de teléfono.

Haga clic en el botón Gestión de la biblioteca de habilidades, localice la habilidad Extraer y pulse el botón Agregar para introducir sus solicitudes personalizadas y guardarlas.

---

VBA para extracción – Semiautomatizada

---

VBA (Visual Basic for Applications) es un método semiautomatizado que permite a los usuarios extraer información específica de sus correos mediante la creación de scripts.

Nota: El código VBA proporcionado aquí solo puede extraer direcciones de correo electrónico y números, mostrando el contenido extraído en un cuadro de diálogo sin posibilidad de copiarlo.

Paso 1. Abra el correo objetivo y revise su contenido.

Paso 2. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. A continuación, haga clic en Insertar > Módulo para crear un nuevo módulo.

Paso 3. Copie el código VBA que aparece a continuación y péguelo en el nuevo módulo.

VBA: extrae Extraer direcciones de correo electrónico y números Agregar desde correo actual

Sub ExtractDataFromCurrentEmail()
'UpdateByKutools
    Dim xCurEmail As Object
    Dim xEmailBody As String
    Dim xEmailPattern As String
    Dim xPhonePattern As String
    Dim xMatches As Object
    Dim xMatch As Variant
    Dim xExtractedData As String
    On Error Resume Next
    'Get the currently selected email
    If Application.ActiveWindow = Inspector Then
        Set xCurEmail = Application.ActiveInspector.CurrentItem
    Else
        Set xCurEmail = Application.ActiveExplorer.Selection.Item(1)
    End If
    'Check if the selected item is an email
    If xCurEmail.Class <> olMail Then
        MsgBox "Please select an email to extract data.", vbExclamation
        Exit Sub
    End If
    'Extract the email body
    xEmailBody = xCurEmail.Body
    'Define regex patterns for email addresses, and phone numbers
    xEmailPattern = "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b"
    xPhonePattern = "\d+"
    'Initialize the extracted data string
    xExtractedData = "Extracted Data:" & vbCrLf & vbCrLf
    'Extract email addresses using regex
    Set xMatches = ExtractUsingRegex(xEmailBody, xEmailPattern)
    If xMatches.Count > 0 Then
        xExtractedData = xExtractedData & "Email Addresses:" & vbCrLf
        For Each xMatch In xMatches
            xExtractedData = xExtractedData & xMatch & vbCrLf
        Next xMatch
        xExtractedData = xExtractedData & vbCrLf
    Else
        xExtractedData = xExtractedData & "No email addresses found." & vbCrLf & vbCrLf
    End If
    'Extract phone numbers using regex
    Set xMatches = ExtractUsingRegex(xEmailBody, xPhonePattern)
    If xMatches.Count > 0 Then
        xExtractedData = xExtractedData & "Numbers:" & vbCrLf
        For Each xMatch In xMatches
            xExtractedData = xExtractedData & xMatch & vbCrLf
        Next xMatch
    Else
        xExtractedData = xExtractedData & "No numbers found." & vbCrLf
    End If
    'Display the extracted data in a message box
    MsgBox xExtractedData, vbInformation, "Extracted Data"
End Sub

Function ExtractUsingRegex(Text As String, Pattern As String) As Object
    Dim xRegex As Object
    Set xRegex = CreateObject("VBsrcipt.RegExp")
    With xRegex
        .Global = True
        .IgnoreCase = True
        .Pattern = Pattern
    End With
    Set ExtractUsingRegex = xRegex.Execute(Text)
End Function

Paso 4. Haga clic en el botón Ejecutar o pulse la tecla F5 y, a continuación, pulse el botón Ejecutar para ejecutar el código.

Aparece un cuadro de diálogo con la información extraída.

---

Comparación de métodos

---

Método	Extracción manual	Kutools	VBA
Facilidad de uso	Sencillo	Muy fácil	Moderado
Ideal para	Uso ocasional	Tareas frecuentes o a gran escala	Usuarios avanzados
Personalización	Ninguna	Altamente personalizable	Limitada (requiere programación)
Velocidad de extracción	Lenta	Rápida	Moderado
Precisión	Baja	Alta	Moderado

Tanto si necesita extraer información de forma ocasional como si gestiona grandes volúmenes de correos con frecuencia, los tres métodos que se presentan en este tutorial cubrirán todas sus necesidades. Si busca una solución rápida, precisa y sin necesidad de programar, el Asistente de IA de Kutools para Outlook es su mejor opción.¡Descárguelo ahora y disfrute de una prueba gratuita para experimentar la comodidad de extraer correos con un solo clic!

Artículos relacionados

• Corrector gramatical de Outlook: asegure correos electrónicos sin errores
• Responda correos electrónicos en Outlook sin esfuerzo gracias al poder de la IA
• Simplifique la redacción de correos: usar IA en Outlook nunca fue tan fácil
• Resumen mediante IA para correos electrónicos de Outlook