Gå til hovedindhold

Hvordan klassificeres e-mails efter måned i Outlook?

Forfatter: Xiaoyang Sidst ændret: 2022-10-19

Hvis der er masser af e-mails i din indbakke, for at få postkassen til at se pæn og velorganiseret ud, kan du gemme eller arkivere dem i forskellige mapper baseret på den specifikke måned for e-mails modtaget tid som vist nedenfor. Normalt kan du oprette mapperne manuelt og derefter flytte dem én efter én. Det er klart, at denne tilgang vil være tidskrævende og besværlig. I denne artikel vil jeg tale om en VBA-kode til at løse denne opgave hurtigt og nemt.


Klassificer e-mails baseret på måned med VBA-kode

For at flytte e-mails til forskellige mapper baseret på måned, skal du anvende nedenstående VBA-kode:

1. Klik for at vælge Indbakke mappe, som du vil klassificere e-mails.

2. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

3. klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Klassificer e-mails baseret på måned

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. Tryk derefter på F5 tasten for at udføre denne kode, og alle e-mails i den valgte Indbakke-mappe er klassificeret efter specifik måned for e-mails modtaget tid, se skærmbillede:


Bedste kontorproduktivitetsværktøjer

Breaking News: Kutools til Outlook lanceres Gratis Version!

Lås op for 100+ kraftfulde funktioner med en 30-dages gratis prøveperiode; 70+ forbliver gratis for evigt efter prøveperioden. Klik for at se alle gratis funktioner!

🤖 Kutools AI : Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Automatisk svar (tilgængelig til POP og IMAP)  /  Planlæg Send e-mails  /  Auto CC/BCC efter regler ved afsendelse af e-mail  /  Automatisk videresendelse (avancerede regler)   /  Tilføj automatisk hilsen   /  Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald e-mails  /  Bloker svindel-e-mails af emner og andre  /  Slet duplikerede e-mails  /  Avanceret søgning  /  Konsolider mapper ...

📁 Vedhæftede filer ProBatch Gem  /  Batch adskilles  /  Batch komprimere  /  Automatisk gem   /  Automatisk afmontering  /  Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis   /  Påmind dig, når vigtige e-mails kommer  /  Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer  /   Anti-phishing e-mails  /  🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails  /  Opdel en kontaktgruppe til individuelle grupper  /  Fjern fødselsdagspåmindelser ...

Lås øjeblikkeligt Kutools til Outlook op med et enkelt klik—permanent gratis. Vent ikke, download nu og øg din effektivitet!

Læs mere       Gratis download      Køb
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations