Om du lagrar skickade e-postmeddelanden i flera mappar och nu vill räkna alla dessa skickade mejl per månad kan du läsa den här artikeln. Här kommer vi att introducera ett betydligt snabbt sätt att få det.
Föregående artikel - “Hur man snabbt räknar inkommande e-post efter datum, månad eller år via Outlook VBA”Har delat ett sätt att räkna e-postmeddelanden per månad. Det kan dock bearbeta e-postmeddelandena i en mapp. Om du vill räkna e-postmeddelanden i flera eller till och med alla e-postmappar bör du använda de andra medlen. Således kommer vi i det följande att avslöja ett annat mycket snabbare sätt för dig.
Räkna de skickade e-postmeddelandena efter månad
- Till att börja med, öppna Outlook VBA-redigeraren via “Alt + F11”.
- Aktivera sedan referens till “MS Excel Object Library ”enligt”Hur man lägger till ett objekt Library Referens i VBA".
- Därefter placerar du följande VBA-kod i ett projekt eller en modul.
Dim objDictionary Som Object Sub CountSentMailsByMonth () Dim objOutlookFile As Outlook.Folder Dim objFolder As Outlook.Folder Dim objExcelApp As Excel.Application Dim objExcelWorkbook As Excel.Workbook Dim objExcelWorksheet As Excel.Worksheet Dim varMonths As Variant Dim varItemCounts As Variant Dim Ställ in objDictionary = CreateObject ("Scripting.Dictionary") Ställ in objInbox = Outlook.Application.Session.GetDefaultFolder (olFolderInbox) 'Hämta standarddatafilen för Outlook Ställ objOutlookFile = Outlook.Application.Session.GetDefaultFolder (olFolderInbox). Förälder för varje objektmappare objOutlookFile.Folders Om objFolder.DefaultItemType = olMailItem Ring sedan ProcessFolders (objFolder) Avsluta om nästa uppsättning objExcelApp = CreateObject ("Excel.Application") objExcelApp.Visible = True Set objExcelWorkbook = objExcelApp.Workbooks.Add Set objExcelWheet ) With objExcelWorksheet .Cells (1, 1) = "Month" .Cells (1, 1) = "Count" End With varMonths = objDictionary.Keys va rItemCounts = objDictionary.Items For i = LBound (varMonths) To UBound (varMonths) nLastRow = objExcelWorksheet.Range ("A" & objExcelWorksheet.Rows.Count) .End (xlUp). Row + 2 With objExcelWorksheet .Cells (1L ) = varMonths (i) .Cells (nLastRow, 1) = varItemCounts (i) Avsluta med nästa objExcelWorksheet.Columns ("A: B"). AutoFit End Sub Sub ProcessFolders (ByVal objCurFolder As Outlook.Folder) Dim i As Long Dim objMail som Outlook.MailItem Dim strMonth som sträng för i = objCurFolder.Items.Count To 2 Steg -1 Om objCurFolder.Items (i) .Class = olMail Ställ sedan objMail = objCurFolder.Items (i) 'Ändra till din egen e-postadress Om objMail.SenderEmailAddress = "du @datanumen.com "Then strMonth = Format (Year (objMail.SentOn) &" - "& Month (objMail.SentOn)," YYYY / MM ") If objDictionary.Exists (strMonth) Then objDictionary (strMonth) = objDictionary (strMonth) + 1 Annan objDictionary.Add strMonth, 1 End If End If End If Next End Sub
- Flytta sedan markören till den första underrutinen.
- Tryck sedan på “F5” för att utlösa detta makro.
- Omedelbart kommer en Excel-fil att dyka upp, som innehåller antalet skickade e-postmeddelanden varje månad, som visas i figuren nedan.
Var inte panik inför korruption i Outlook
Du kanske tenderar att vara orolig när du stöter på PST-skador. Men i själva verket borde du lugna dig så snart som möjligt. Som vi alla vet är panik hjälplös och till och med leder till mer kaotiska och allvarliga problem. Du bör hålla dig lugn för att överväga åtgärder, som att tänka på om du har uppdaterat säkerhetskopiering och överväga hur du gör reparera PST - huruvida man använder tredjepartsverktyg som DataNumen Outlook Repair eller kontakta relevanta yrkesverksamma.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com