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

Kako razvrstiti e-pošto po mesecih v Outlooku?

Če je v vaši mapi »Prejeto« veliko e-poštnih sporočil, jih lahko shranite ali arhivirate v različne mape, ki temeljijo na določenem mesecu prejema e-poštnih sporočil, kot je prikazano na spodnjem posnetku zaslona, ​​da bo nabiralnik videti čist in dobro organiziran. Običajno lahko mape ustvarite ročno in jih nato premikate eno za drugo. Očitno bo ta pristop dolgotrajen in težaven. V tem članku bom govoril o kodi VBA za hitro in enostavno reševanje te naloge.


Razvrstite e-pošto glede na mesec s kodo VBA

Če želite premakniti e-pošto v različne mape glede na mesec, uporabite spodnjo kodo VBA:

1. Kliknite, da izberete Prejeto mapo, v katero želite razvrstiti e-pošto.

2. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. klik Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: razvrstite e-pošto glede na mesec

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. Nato pritisnite F5 tipko za izvedbo te kode in vsa e-poštna sporočila v izbrani mapi Prejeto so razvrščena po določenem mesecu časa prejema e-poštnih sporočil, glejte posnetek zaslona:


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije