2 métodos para exportar todos los correos electrónicos de un remitente específico a un archivo de Excel

Si desea exportar rápidamente los correos electrónicos que provienen de un remitente específico a un archivo de Excel, puede utilizar los siguientes 2 medios presentados en este artículo.

Por diversas razones, como la creación de un resumen, a veces es necesario exportar correos electrónicos específicos, como los de un remitente concreto, a un archivo de Excel. Al pensar en exportar, la función nativa "Exportar" suele ser la primera que viene a la mente de la mayoría de los usuarios. Sin embargo, sinceramente, usar Outlook VBA resulta mucho más práctico que la función tradicional "Exportar". A continuación, explicaremos ambos métodos en detalle.

Método 1: utilizar la función "Exportar"

1. Desde el principio, inicie su aplicación Outlook.
2. Luego haga clic en el cuadro de búsqueda en la lista de correo electrónico, que habilitará la cinta "Herramientas de búsqueda".
3. Haga clic en el botón "De" en la cinta.
4. Luego reemplace el carácter de "nombre del remitente" con el nombre del remitente específico.
5. Después de eso, solo los correos electrónicos del remitente específico se mostrarán en la lista. Ahora presione "Ctrl + A" para seleccionarlos todos.
6. A continuación, haga clic derecho y seleccione "Mover"> "Otra carpeta".
7. Posteriormente, en el cuadro de diálogo emergente "Mover elementos", cree una nueva carpeta y seleccione esta carpeta para mover los correos electrónicos específicos.
8. Después de eso, puede ir a "Archivo"> ​​"Abrir"> "Importar".
9. Luego, en el siguiente cuadro de diálogo, seleccione 'Exportar a un archivo ”>“ Siguiente ”>“ Microsoft Excel 97 - 2003 ”>“ Siguiente ”.
10. A continuación, elija la carpeta específica que almacena los correos electrónicos del remitente específico y presione "Siguiente".
11. Luego haga clic en "examinar" para elegir un archivo de Excel o crear un nuevo archivo de Excel.
12. Más tarde, haga clic en "Siguiente"> "Finalizar".
13. Finalmente, Outlook funcionará para exportar. Una vez que se completa el proceso de exportación, puede buscar y abrir este archivo de Excel.

Método 2: use Outlook VBA

1. En primer lugar, presione los botones de tecla "Alt + F11".
2. Luego, en la ventana emergente, abra un nuevo módulo y copie los siguientes códigos en él.

Sub ExportEmailsfromSpecificSender()
    Dim objEmails, objSpecificEmails As Outlook.Items
    Dim objItem As Object
    Dim strSpecificSender As String
    Dim strFilter As String
    Dim objExcelApplication As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nRow As Integer
    Dim strFilePath As String
 
    On Error Resume Next
    'Get the emails from a specific sender
    Set objEmails = Application.Session.GetDefaultFolder(olFolderInbox).Items
    strSpecificSender = InputBox("Input the name of the specific sender:", "Specify Sender")
    strFilter = "[From] = '" & strSpecificSender & "'"
    Set objSpecificEmails = objEmails.Restrict(strFilter)
 
    Set objExcelApplication = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApplication.Workbooks.Add
 
    'Export the specific emails to worksheet
    Set objExcelWorksheet = objExcelWorkbook.Worksheets(1)
    With objExcelWorksheet
         .Cells(1, 1) = "Subject"
         .Cells(1, 2) = "Received"
         .Cells(1, 3) = "Body"
         .Cells(1, 4) = "Categories"
         .Cells(1, 5) = "Size"
    End With
 
    nRow = 2
    For Each objItem In objSpecificEmails
        With objExcelWorksheet
             .Name = "From " & strSpecificSender
             .Cells(nRow, 1) = objItem.Subject
             .Cells(nRow, 2) = objItem.ReceivedTime
             .Cells(nRow, 3) = objItem.Body
             .Cells(nRow, 4) = objItem.Categories
             .Cells(nRow, 5) = objItem.Size
        End With
        nRow = nRow + 1
    Next
 
    objExcelWorksheet.Columns("A:E").AutoFit

    'Save the Excel workbook
    strFilePath = "C:\Report\Emails from " & strSpecificSender & ".xlsx"
    objExcelWorkbook.Close True, strFilePath
 
    'Notify you of the export complete
    MsgBox ("Export Complete!")
End Sub

3. Posteriormente, haga clic en el icono "Ejecutar" en la barra de herramientas.
4. Después de eso, se le pedirá que ingrese el nombre del remitente específico.
5. Más tarde, haga clic en "Aceptar".
6. Outlook comenzará inmediatamente a exportar los correos electrónicos del remitente específico y guardará el archivo de Excel en la carpeta de destino predeterminada.
7. Una vez completada la exportación, puede ir a la carpeta de destino para abrirla y verificarla.

Elimine los problemas de Outlook de forma flexible

Debido al hecho de que Outlook es susceptible a varios errores, se recomienda mantener un potente Corrección de Outlook herramienta en las proximidades, como DataNumen Outlook Repair. En este caso, para resolver los pequeños errores, simplemente puede usar Scanpst.exe. Pero para los problemas graves, puede recurrir a la herramienta más robusta.

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 dañadas SQL Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com