Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment exporter des emails depuis Outlook vers Excel automatiquement?

Normalement, vous pouvez exporter les e-mails d'Outlook vers Excel avec la fonctionnalité Import / Export. Mais avez-vous déjà essayé d'exporter automatiquement les courriels vers un fichier Excel lorsque de nouveaux messages arrivent? Dans cet article, je parlerai de la manière d'exporter automatiquement les informations des nouveaux messages entrants dans Excel.

Exportation automatique des informations de messagerie de Outlook vers Excel avec code VBA


Exporter rapidement des emials de la boîte de réception / éléments envoyés / brouillons ... vers un fichier Excel:

Avec Kutools for Outlook's Rapport rapide fonctionnalité, vous pouvez facilement générer un fichier XML pour signaler les informations de tous les éléments dans le dossier de messagerie actuel ou le dossier de tâches

doc auto exporte les emails pour exceller sur 5

Kutools for Outlook: avec plus de 40 + compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essayez l'essai gratuit maintenant!

Exportation automatique des informations de messagerie de Outlook vers Excel avec code VBA

Pour exporter automatiquement les nouveaux courriers électroniques dans un classeur Excel, appliquez le code VBA suivant:

1. Tout d'abord, vous devez créer un classeur avec les informations d'en-tête ci-dessous, comme indiqué ci-dessous. Ces informations seront donc exportées vers ce fichier Excel.

doc auto exporte les emails pour exceller sur 1

2. Ensuite, allez à Outlook et maintenez la 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 ThisOutlookSession du Project1 (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 courrier électronique 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

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

doc auto exporte les emails pour exceller sur 2

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

doc auto exporte les emails pour exceller sur 3

5. Puis clique OK bouton 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. A partir de maintenant, si de nouveaux emails arrivent, ils seront automatiquement exportés vers le classeur spécifique, voir la capture d'écran:

doc auto exporte les emails pour exceller sur 4



Kutools for Outlook

Plus que les fonctions avancées 100 pour Outlook 2010, 2013, 2016, 2019 et 365

Capture d&#39;écran de kutools pour Outlook tiny pour la bannière 201812

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jorge · 5 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Jorge,
      If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.