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

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

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:


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder