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

Cum se clasifică e-mailurile pe lună în Outlook?

Dacă există o mulțime de e-mailuri în căsuța dvs. de e-mail, pentru a face căsuța poștală să pară îngrijită și bine organizată, le puteți stoca sau arhiva în diferite foldere, în funcție de luna specifică a timpului de primire a e-mailurilor, așa cum se arată mai jos. În mod normal, puteți crea folderele manual și apoi le puteți muta unul câte unul. Evident, această abordare va consuma timp și va fi supărătoare. În acest articol, voi vorbi despre un cod VBA pentru a rezolva această sarcină rapid și ușor.


Clasificați e-mailurile în funcție de lună cu codul VBA

Pentru a muta e-mailurile în dosare diferite în funcție de lună, aplicați codul VBA de mai jos:

1. Faceți clic pentru a selecta Primite folderul în care doriți să clasificați e-mailurile.

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: Clasificați e-mailurile în funcție de lună

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. Apoi, apăsați F5 tasta pentru a executa acest cod și toate e-mailurile din dosarul Inbox selectat sunt clasificate în funcție de luna specifică a timpului de primire a e-mailurilor, vezi captura de ecran:


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate