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

Hogyan lehet az e-maileket hónapok szerint osztályozni az Outlookban?

Ha sok e-mail van a Beérkezett üzenetek mappában, a postafiók rendezett és rendezett megjelenése érdekében tárolhatja vagy archiválhatja azokat különböző mappákban az e-mailek beérkezési idejének adott hónapja alapján, az alábbi képernyőképen látható módon. Általában manuálisan is létrehozhatja a mappákat, majd egyenként áthelyezheti őket. Nyilvánvaló, hogy ez a megközelítés időigényes és fáradságos lesz. Ebben a cikkben egy VBA-kódról fogok beszélni a feladat gyors és egyszerű megoldásához.


Osztályozza az e-maileket hónapok alapján VBA kóddal

Ha az e-maileket hónaponként különböző mappákba szeretné áthelyezni, használja az alábbi VBA-kódot:

1. Kattintson a kiválasztáshoz Bejövő mappába, amelybe az e-maileket osztályozni szeretné.

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. kettyenés betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA kód: Osztályozza az e-maileket hónapok alapján

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. Ezután nyomja meg a gombot F5 gombot a kód végrehajtásához, és a kiválasztott Beérkezett üzenetek mappában lévő összes e-mail az e-mailek beérkezési idejének adott hónapja szerint van besorolva, lásd a képernyőképet:


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek