Hur klassificerar man e-postmeddelanden efter månad i Outlook?
Om det finns massor av e-postmeddelanden i din inkorg, för att få brevlådan att se snygg och välorganiserad ut, kan du lagra eller arkivera dem i olika mappar baserat på den specifika månaden då e-postmeddelandena togs emot enligt skärmbilden nedan. Normalt kan du skapa mapparna manuellt och sedan flytta dem en efter en. Uppenbarligen kommer detta tillvägagångssätt att vara tidskrävande och besvärligt. I den här artikeln kommer jag att prata om en VBA-kod för att lösa denna uppgift snabbt och enkelt.
Klassificera e-postmeddelandena baserat på månad med VBA-kod
För att flytta e-postmeddelandena till olika mappar baserat på månad, använd nedanstående VBA-kod:
1. Klicka för att välja inkorg mapp som du vill klassificera e-postmeddelandena.
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. klick Insert > Modulernaoch klistra in följande kod i modulfönstret.
VBA-kod: Klassificera e-postmeddelanden baserat på månad
Sub ClassifyEmailsbyMonth()
'Updateby ExtendOffice
Dim xCurFolder As Folder
Dim xMoveFolder As Folder
Dim xMail As MailItem
Dim I As Long
Dim xYear As String, xMonth As String
On Error Resume Next
Set xCurFolder = Application.ActiveExplorer.CurrentFolder
For I = xCurFolder.Items.Count To 1 Step -1
DoEvents
If xCurFolder.Items.Item(I).Class = olMail Then
Set xMail = xCurFolder.Items.Item(I)
xYear = Year(xMail.ReceivedTime)
xMonth = Month(xMail.ReceivedTime)
Set xMoveFolder = Nothing
Set xMoveFolder = xCurFolder.Folders(xYear & "." & xMonth)
If xMoveFolder Is Nothing Then
Set xMoveFolder = xCurFolder.Folders.Add(xYear & "." & xMonth)
End If
xMail.Move xMoveFolder
End If
Next
Set xMoveFolder = Nothing
Set xCurFolder = Nothing
End Sub
4. Tryck sedan på F5 för att exekvera den här koden, och alla e-postmeddelanden i den valda mappen Inkorg klassificeras efter specifik månad då e-postmeddelandena togs emot, se skärmdump:
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.