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:
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.