Comment exporter automatiquement des e-mails d'Outlook vers Excel?

Normalement, vous pouvez exporter les e-mails d'Outlook vers Excel avec la fonction Importer / Exporter. Mais avez-vous déjà essayé d'exporter automatiquement les e-mails vers un fichier Excel lorsque de nouveaux messages arrivent? Dans cet article, je parlerai de la façon d'exporter automatiquement les informations des nouveaux messages entrants dans Excel.

Exporter automatiquement les informations de courrier électronique d'Outlook vers Excel avec le code VBA

Exportez les informations de courrier électronique d'Outlook vers Excel avec une fonctionnalité incroyable

Exporter automatiquement les informations de courrier électronique d'Outlook vers Excel avec le code VBA

Pour exporter automatiquement les nouveaux e-mails entrants vers un classeur Excel, veuillez appliquer le code VBA suivant:

1. Tout d'abord, vous devez créer un classeur avec les informations d'en-tête ci-dessous, comme illustré ci-dessous, afin que ces informations des messages soient exportées vers ce fichier Excel.

2. Accédez ensuite à Outlook et maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.

Code VBA: exportation automatique des informations de messagerie d'Outlook vers un fichier Excel:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

Notes: Dans le code ci-dessus, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx est le chemin du fichier Excel et le nom Excel que vous souhaitez localiser les informations exportées, veuillez le modifier selon vos besoins.

4. Toujours dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Références pour aller à la Références-Projet1 boîte de dialogue et cochez Bibliothèque d'objets Microsoft Excel Option de Références disponibles zone de liste, voir capture d'écran:

5. Puis clique OK pour fermer la boîte de dialogue, puis enregistrez et fermez la fenêtre de code.

6. Maintenant, vous devez redémarrer Outlook pour que ce code prenne effet. À partir de maintenant, si de nouveaux e-mails arrivent, ils seront automatiquement exportés vers le classeur spécifique, voir capture d'écran:

Exportez les informations de courrier électronique d'Outlook vers Excel avec une fonctionnalité incroyable

Si vous souhaitez exporter les e-mails de la boîte de réception, de la boîte d'envoi ou d'autres dossiers vers un fichier Excel, Kutools for Outlook's Rapport rapide peut vous aider à générer facilement un fichier XML pour signaler les informations de tous les éléments dans le dossier de courrier électronique actuel ou le dossier de tâches selon vos besoins.

Après l'installation de Kutools for Outlook, veuillez faire comme ceci:

1. Sélectionnez un dossier dans lequel vous souhaitez exporter toutes les informations sur les messages, puis cliquez sur Kutools Plus > Rapport rapide, voir capture d'écran:

2. Puis, dans le sauté Enregistrer le rapport fenêtre, choisissez un emplacement et spécifiez un nom pour ce fichier exporté, voir capture d'écran:

3. Et puis, cliquez Économiser bouton pour enregistrer ce fichier, et dans la zone pop-out, cliquez sur Oui bouton pour ouvrir le fichier, voir capture d'écran:

4. Maintenant, vous pouvez voir toutes les informations des e-mails dans le dossier sélectionné ont été exportées dans le fichier Excel, voir capture d'écran:

Articles plus relatifs:

---

Meilleurs outils de productivité bureautique

Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!

Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!

🤖 Kutools IA : Utilise une technologie d'IA avancée pour gérer les e-mails sans effort, notamment en répondant, en résumant, en optimisant, en prolongeant, en traduisant et en composant des e-mails.

📧 Email Automation: Réponse automatique (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Vous rappeler lorsque des e-mails importants arrivent  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

Déverrouillez instantanément Kutools pour Outlook en un seul clic :gratuit en permanence. N'attendez pas, téléchargez maintenant et augmentez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook      Télécharger la version gratuite      Passer au Professionnel