Cómo extraer rápidamente todas las direcciones de correo electrónico de los cuerpos de varios correos electrónicos de Outlook

Muchos usuarios anhelan un método para extraer rápidamente todas las direcciones de correo electrónico del cuerpo de un correo electrónico de Outlook, o incluso varios correos electrónicos. Por lo tanto, este artículo analizará este problema y le compartirá un método rápido que utiliza VBA.

Cuando alguien le envía un correo electrónico cuyo cuerpo contiene una lista de direcciones de correo electrónico, si desea hacer uso de estas direcciones de correo electrónico por alguna razón, como agregar a su carpeta Contactos u otras, primero debe extraer todas las direcciones de correo electrónico en el cuerpo . Por lo tanto, a continuación, le mostraremos cómo lograrlo con VBA.

Extraiga todas las direcciones de correo electrónico del cuerpo de varios correos electrónicos de Outlook

1. Desde el principio, inicie su aplicación Outlook.
2. Luego, después de ingresar a la ventana principal de Outlook, puede presionar las teclas "Alt + F11".
3. A continuación, en la nueva ventana de "Microsoft Visual Basic para Aplicaciones", debe abrir un módulo no utilizado o simplemente insertar uno nuevo.
4. Más tarde, debe copiar y pegar el siguiente código VBA en este módulo.

Sub ExtractEmailAddresses_BodyofMultipleEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim i, n As Long
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strEmailAddresses As String
    Dim objFileSystem As Object
    Dim strTextFile As String
    Dim objTextFile As Object
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       i = 0
       n = 1
       On Error Resume Next
       For i = objSelection.count To 1 Step -1
           Set objMail = objSelection.Item(i)
 
           objMail.Display
 
           Set objWordDocument = objMail.GetInspector.WordEditor
           Set objWordApp = objWordDocument.Application
           Set objSearchRange = objWordDocument.Range

           'Find the email addresses via wildcards
           With objWordApp.Selection.Find
                .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
                .MatchWildcards = True
                .Execute
           End With
 
           While objWordApp.Selection.Find.Found
                 'Get a list of email addresses in the body
                 strEmailAddresses = strEmailAddresses & n & ": " & objWordApp.Selection.Text & vbCrLf
                 objWordApp.Selection.Find.Execute
                 n = n + 1
           Wend
           objMail.Close olDiscard
      Next
    End If
 
    'Create a new Text file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTextFile = "E:\Extracted Email Addresses-" & Format(Date, "YYYYMMDD") & ".txt"
    Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
 
    'Input the list of extracted email addresses into this Text file
    objTextFile.WriteLine (strEmailAddresses)
    objTextFile.Close
 
    MsgBox "Completed!", vbInformation, "Extract Email Addresses"
End Sub

5. Más tarde, puede salir de la ventana del editor de VBA actual y continuar agregando la nueva macro a la barra de herramientas de acceso rápido.
6. Después de eso, debe cambiar su nivel de seguridad macro de Outlook a bajo.
7. Finalmente, puedes intentarlo.

• En primer lugar, en la lista de correo electrónico, seleccione varios correos electrónicos de Outlook, de cuyo cuerpo necesita extraer las direcciones de correo electrónico.
• Luego haga clic en el botón nuevo en la barra de herramientas de acceso rápido.
• Cuando reciba un mensaje que le pregunte "Completado", puede ir a la carpeta predefinida en el código VBA para encontrar un nuevo archivo .TXT.
• Abra este archivo y verá que todas las direcciones de correo electrónico extraídas, como se muestra en la siguiente captura de pantalla:

Proteja Outlook contra macros maliciosas

Si ha configurado su Outlook para permitir todas las macros, debe estar atento a todas las macros disfrazadas en los correos electrónicos desconocidos. Es porque pueden contener una gran cantidad de virus ocultos, que pueden causar directamente la corrupción de Outlook. El archivo PST infectado con virus es bastante difícil de recuperar. En ese momento, tal vez su último recurso sea un potente y confiable Corrección de Outlook utilidad, como DataNumen Outlook Repair. Puede reparar archivos de Outlook sin importar cuán extremo sea el daño.

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 sql corrupto y productos de software de reparación de Outlook. Para más información visite www.datanumen.com