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

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:


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser