Jak klasyfikować wiadomości e-mail według miesiąca w Outlooku?
Jeśli w skrzynce odbiorczej znajduje się wiele wiadomości e-mail, aby skrzynka pocztowa wyglądała schludnie i dobrze zorganizowana, możesz przechowywać lub archiwizować je w różnych folderach w zależności od konkretnego miesiąca czasu otrzymania wiadomości e-mail, jak pokazano na poniższym zrzucie ekranu. Zwykle foldery można tworzyć ręcznie, a następnie przenosić je jeden po drugim. Oczywiście takie podejście będzie czasochłonne i kłopotliwe. W tym artykule omówię kod VBA do szybkiego i łatwego rozwiązania tego zadania.
Klasyfikuj e-maile na podstawie miesiąca za pomocą kodu VBA
Aby przenieść wiadomości e-mail do różnych folderów w zależności od miesiąca, zastosuj poniższy kod VBA:
1. Kliknij, aby wybrać Skrzynka folder, w którym chcesz sklasyfikować wiadomości e-mail.
2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
3. kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
Kod VBA: Klasyfikuj wiadomości e-mail na podstawie miesiąca
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. Następnie naciśnij F5 klucz do wykonania tego kodu, a wszystkie wiadomości e-mail w wybranym folderze Skrzynka odbiorcza są klasyfikowane według określonego miesiąca czasu otrzymania wiadomości e-mail, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.