Comment exporter le nombre de messages Outlook vers un classeur Excel?
Normalement, vous pouvez exporter les messages Outlook vers un fichier Excel en utilisant la fonction Importer / Exporter rapidement et facilement. Mais avez-vous déjà essayé de compter les éléments dans tous les dossiers de votre compte de messagerie spécifique et d'exporter les résultats du comptage vers un classeur Excel?
Exporter le nombre de messages Outlook dans un classeur Excel avec le code VBA
Exporter le nombre de messages Outlook dans un classeur Excel avec le code VBA
Le code VBA suivant peut vous aider à exporter les résultats de comptage de tous les dossiers d'un compte de messagerie spécifique vers un classeur Excel, procédez comme suit:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: Exporter le nombre d'éléments Outlook vers le classeur Excel:
Sub Export_CountOfItems_InEachFolder_toExcel()
Dim xSourceFolder As Outlook.Folder, xSubFolder As Outlook.Folder
Dim xFilePath As String
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
On Error Resume Next
Set xExcelApp = New Excel.Application
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
xWs.Cells(1, 1) = "Folder"
xWs.Cells(1, 2) = "Count Items"
Set xSourceFolder = Outlook.Application.Session.PickFolder
If xSourceFolder = nill Then
xWb.Close False
xExcelApp.Quit
Exit Sub
End If
For Each xSubFolder In xSourceFolder.Folders
Call ProcessFolders(xWs, xSubFolder)
Next
xWs.Columns("A:B").AutoFit
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then
xWb.Close False
xExcelApp.Quit
Exit Sub
End If
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
xFilePath = xFilePath & xSourceFolder.Name & "(" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
xWb.Close True, xFilePath
xExcelApp.Quit
Set xShell = Nothing
MsgBox "Complete!", vbExclamation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal Ws As Worksheet, ByVal xCurFolder As Outlook.Folder)
Dim xSubFld As Folder
Dim xItemCount As Long
Dim xRow As Integer
xItemCount = xCurFolder.Items.Count
xRow = Ws.UsedRange.Rows.Count + 1
Ws.Cells(xRow, 1) = xCurFolder.FolderPath
Ws.Cells(xRow, 2) = xItemCount
If xCurFolder.Folders.Count > 0 Then
For Each xSubFld In xCurFolder.Folders
Call ProcessFolders(Ws, xSubFld)
Next
End If
End Sub
3. Et, toujours dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Bibliographie 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:
4. Puis clique OK, puis appuyez sur F5 clé pour exécuter ce code, un Sélectionner le dossier est apparu, veuillez sélectionner un compte de messagerie pour lequel vous souhaitez exporter le nombre d'éléments, voir capture d'écran:
5. Puis clique OK, et un autre Parcourir pour le dossier s'affiche, veuillez choisir un dossier pour mettre le fichier Excel, voir capture d'écran:
6. Enfin, cliquez OK bouton, et le nombre d'éléments dans tous les dossiers du compte sélectionné a été exporté vers un classeur Excel, vous pouvez ouvrir le fichier Excel pour afficher le résultat, voir capture d'écran:
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (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 facile 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 / Boostez votre productivité Outlook avec des vues à onglets / 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
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.