Note: The other languages of the website are Google-translated. Back to English
English English

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.

doc exportation automatique des e-mails vers Excel 1

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.

doc exportation automatique des e-mails vers Excel 2

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:

doc exportation automatique des e-mails vers Excel 3

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:

doc exportation automatique des e-mails vers Excel 4


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 pour 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.

Remarque :Appliquer cette Rapport rapide, tout d'abord, vous devez télécharger le Kutools pour Outlook, puis appliquez la fonction rapidement et facilement.

Après l'installation de Kutools pour 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 Enregistrer 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:

  • Exporter le tableau du corps de l'e-mail vers Excel dans Outlook
  • Lorsque vous recevez un e-mail contenant des tables dans le corps, vous devrez parfois exporter toutes les tables du corps du message vers une feuille de calcul Excel. Normalement, vous pouvez copier et coller les tableaux dans la feuille de calcul, mais, ici, je vais parler d'une méthode utile pour résoudre ce travail lorsque plusieurs tables doivent être exportées.
  • Extraire ou exporter la liste des tâches vers Excel dans Outlook
  • Lorsque vous utilisez Outlook, vous pouvez extraire la liste des tâches vers Excel pour une autre utilisation. Avec la puissante fonctionnalité d'exportation d'Outlook, vous pouvez facilement exporter votre liste de tâches vers Excel. Veuillez faire comme ci-dessous le tutoriel.
  • Exporter les informations des contacts avec des photos dans Outlook
  • Lorsque vous exportez des contacts d'Outlook vers un fichier, seules les informations textuelles des contacts peuvent être exportées. Mais, parfois, vous avez besoin d'exporter les photos ainsi que les informations textuelles des contacts, comment pouvez-vous gérer cette tâche dans Outlook?

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (8)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai besoin d'aide pour exporter les informations sur les e-mails envoyés (sortants)
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Jorge,
Si vous souhaitez exporter les messages envoyés à partir du dossier Éléments envoyés, la fonction Rapport rapide de Kutools for Outlook peut vous aider. Vous pouvez d'abord télécharger Kutools for Outlook, puis l'appliquer.
Ce commentaire a été minimisé par le modérateur sur le site
comment gérer les sous-dossiers.
Ce commentaire a été minimisé par le modérateur sur le site
Pouvez-vous s'il vous plaît laissez-moi savoir comment traiter les sous-dossiers dans le code ci-dessus.
Ce commentaire a été minimisé par le modérateur sur le site
Comment capturer les catégories, l'importance ou la colonne définie par l'utilisateur sur la même vue de dossier ?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai suivi les étapes ci-dessus mais j'ai des blancs dans Excel.
que devrais-je faire?
Ce commentaire a été minimisé par le modérateur sur le site
Le même Excel n'est pas mis à jour ? Aucune suggestion?
Ce commentaire a été minimisé par le modérateur sur le site
Si j'ai plusieurs comptes de messagerie dans Outlook, comment puis-je sortir les e-mails d'un compte spécifié ?
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés