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

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:


Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje