2 méthodes pour exporter tous les e-mails d'un expéditeur spécifique vers un fichier Excel

Si vous souhaitez exporter rapidement les e-mails d'un expéditeur spécifique vers un fichier Excel, vous pouvez utiliser les 2 moyens suivants présentés dans cet article.

Pour diverses raisons, comme la création d'un récapitulatif, vous pourriez avoir besoin d'exporter certains e-mails, par exemple ceux provenant d'un expéditeur spécifique, vers un fichier Excel. Lorsqu'il s'agit d'exporter, la plupart des utilisateurs pensent immédiatement à la fonction native « Exporter ». Cependant, utiliser Outlook VBA est souvent bien plus pratique. Nous allons maintenant vous présenter ces deux méthodes en détail.

Méthode 1 : Utiliser la fonction "Exporter"

1. Au tout début, lancez votre application Outlook.
2. Cliquez ensuite dans le champ de recherche de la liste de diffusion, ce qui activera le ruban "Outils de recherche".
3. Cliquez sur le bouton "De" dans le ruban.
4. Remplacez ensuite le caractère "nom de l'expéditeur" par le nom de l'expéditeur spécifique.
5. Après cela, seuls les e-mails de l'expéditeur spécifique apparaîtront dans la liste. Appuyez maintenant sur "Ctrl + A" pour les sélectionner tous.
6. Ensuite, faites un clic droit et sélectionnez "Déplacer"> "Autre dossier".
7. Ensuite, dans la boîte de dialogue contextuelle "Déplacer les éléments", créez un nouveau dossier et sélectionnez ce dossier pour y déplacer les e-mails spécifiques.
8. Après cela, vous pouvez aller dans "Fichier" > "Ouvrir" > "Importer".
9. Puis dans la boîte de dialogue suivante, sélectionnez « Exporter vers un fichier » > « Suivant » > « Microsoft Excel 97 – 2003 » > « Suivant ».
10. Choisissez ensuite le dossier spécifique qui stocke les e-mails de l'expéditeur spécifique et cliquez sur "Suivant".
11. Cliquez ensuite sur « parcourir » pour choisir un fichier Excel ou créez un nouveau fichier Excel.
12. Plus tard, cliquez sur "Suivant" > "Terminer".
13. Enfin, Outlook travaillera pour exporter. Une fois le processus d'exportation terminé, vous pouvez rechercher et ouvrir ce fichier Excel.

Méthode 2 : Utiliser Outlook VBA

1. En premier lieu, appuyez sur les touches "Alt + F11".
2. Ensuite, dans la fenêtre contextuelle, ouvrez un nouveau module et copiez-y les codes suivants.

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. Ensuite, cliquez sur l'icône "Exécuter" dans la barre d'outils.
4. Après cela, vous devrez saisir le nom de l'expéditeur spécifique.
5. Plus tard, cliquez sur "OK".
6. Outlook commencera immédiatement à exporter les courriels de l'expéditeur spécifié et à enregistrer le fichier Excel dans le dossier de destination prédéterminé.
7. Une fois l'exportation terminée, vous pouvez accéder au dossier de destination pour l'ouvrir et le vérifier.

Débarrassez-vous des problèmes Outlook de manière flexible

En raison du fait qu'Outlook est sensible à diverses erreurs, il est recommandé de conserver une puissante Correctif Outlook outil à proximité, comme DataNumen Outlook Repair. Dans ce cas, pour résoudre les petites erreurs, vous pouvez simplement utiliser Scanpst.exe. Mais pour les problèmes graves, vous pouvez recourir à l'outil le plus robuste.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris endommagé SQL Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com