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

Jak klasifikovat e-maily podle měsíce v aplikaci Outlook?

Pokud máte ve složce Doručená pošta mnoho e-mailů, můžete je uložit nebo archivovat do různých složek podle konkrétního měsíce doby přijetí e-mailů, aby poštovní schránka vypadala úhledně a přehledně, jak je znázorněno na obrázku níže. Normálně můžete složky vytvořit ručně a poté je jednu po druhé přesouvat. Je zřejmé, že tento přístup bude časově náročný a problematický. V tomto článku budu hovořit o kódu VBA pro rychlé a snadné řešení tohoto úkolu.


Klasifikujte e-maily podle měsíce pomocí kódu VBA

Chcete-li přesunout e-maily do různých složek podle měsíce, použijte níže uvedený kód VBA:

1. Klepnutím vyberte Doručené složku, do které chcete e-maily klasifikovat.

2. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. cvaknutí Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: Klasifikujte e-maily podle měsíce

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. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a všechny e-maily ve vybrané složce Doručená pošta jsou klasifikovány podle konkrétního měsíce času přijetí e-mailů, viz snímek obrazovky:


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění