Kako brzo prebrojati dolazne e-poruke po datumu, mjesecu ili godini putem Outlook VBA

Outlook rješenja 29. rujna 2025.
Podijeli sada:

Ako želite prebrojati broj dolaznih e-poruka na određeni datum, ili u određenom mjesecu ili godini, možete koristiti brza sredstva predstavljena u ovom članku. Naučit ćete kako koristiti VBA da biste ga dobili u trenutku.

Kada je u pitanju brojanje primljenih e-poruka u određenom datumu ili razdobljima, mnogi su navikli koristiti Outlook mapu za pretraživanje, što nam omogućuje da prikupimo sve e-poruke pristigle za određeni datum ili datumski raspon u jednu mapu za pretraživanje. Zatim možemo upotrijebiti značajku "prikaži ukupan broj stavki" za mapu pošte da bismo je dobili. Međutim, bez ikakve sumnje, ova metoda je prilično problematična. Dakle, ovdje ćemo vas naučiti još jedan trik, koji može iskoristiti Outlook VBA da vam pomogne da dobijete ukupan broj. Sada čitajte kako biste saznali detaljne korake i kodove.

Brojite dolazne poruke e-pošte prema datumu, mjesecu ili godini

Brojite dolazne e-poruke po datumu

  1. Za početak, ispravno pokrenite Outlook program.
  2. Zatim se možete prebaciti na karticu "Developer" i kliknuti gumb "Visual Basic".
  3. Zatim u skočnom prozoru Outlook VBA uređivača možete otvoriti novi modul tako što ćete "Umetnuti" > "Modul".
  4. Nakon toga kopirajte sljedeće VBA kodove u novi modul.
'The following codes are working to count by day
Sub CountReceivedEmailsbyDay()
    Dim objItems As Outlook.Items
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim strDay As String
    Dim dReceivedTime As Date
    Dim strReceivedDate As String
    Dim i, n As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    Set objItems = Outlook.Application.ActiveExplorer.CurrentFolder.Items
 
    objItems.SetColumns ("ReceivedTime")
    strDay = InputBox("Enter the specific day.(Format: yyyy-mm-dd)", "Specify Date")
 
    If strDay <> "" Then
       n = 0
       For i = 1 To objItems.Count
           If objItems.Item(i).Class = olMail Then
              Set objMail = objItems.Item(i)
              dReceivedTime = objMail.ReceivedTime
              strReceivedDate = Year(dReceivedTime) & "-" & Month(dReceivedTime) & "-" & Day(dReceivedTime)
              If strReceivedDate = strDay Then
                 n = n + 1
              End If
           End If
       Next i
 
       strMsg = "You have received " & n & " emails on " & strDay & "."
       nPrompt = MsgBox(strMsg, vbExclamation, "Count Received Emails")
    Else
       nPrompt = MsgBox("Please input the specific day!", vbExclamation)
    End If
End Sub

VBA kodovi - Brojite dolazne poruke e-pošte po datumu

Bilješka: Ovaj gornji kod radi na brojanju dolazne e-pošte po datumu.

  1. Nakon toga možete dodati novu makronaredbu na alatnu traku za brzi pristup kao i obično.
  2. Konačno, možete pokušati.
  • Najprije odaberite mapu Inbox.
  • Zatim kliknite gumb na alatnoj traci za brzi pristup.Pokreni Macro
  • Zatim trebate unijeti određeni datum u formatu "gggg-mm-dd".Navedite datum
  • Na kraju ćete dobiti upit o ukupnom broju, kao na slici ispod:Brojite dolazne e-poruke po datumu

Brojite dolazne e-poruke po mjesecu ili godini

Budući da je gornji kod određen za brojanje po danu, ako želite računati po mjesecu ili godini, trebate napraviti neke promjene na kodovima.

  1. Prvo promijenite sve "strDay" u strMjesec or strGodina.
  2. Drugo, zamijenite redak "strDay = InputBox("Unesite određeni dan. (Format: gggg-mm-dd)", "Navedite datum")" s:
  • strMonth = InputBox(“Unesite određeni mjesec. (Format: gggg-mm)”, “Navedite mjesec”)
  • strYear = InputBox(“Unesite određenu godinu.(Format: gggg)”, “Navedite godinu”)
  1. Treće, promijenite redak “strReceivedDate = Year(dReceivedTime) & “-” & Month(dReceivedTime) & “-” & Day(dReceivedTime)” u:
  • strReceivedDate = Godina (dReceivedTime) & “-” & Mjesec (dReceivedTime) [za mjesec]
  • strReceivedDate = Godina (dReceivedTime) [za godinu].

Što će se dogoditi nakon što se Outlook sruši

Mnogi su korisnici ikada doživjeli pad sustava Outlook. U najboljem slučaju, nakon ponovnog pokretanja Outlooka, sve će se vratiti na prethodno stanje, odnosno ništa se neće dogoditi. Međutim, u najgorem slučaju možete se susresti s ozbiljnim problemima. PST korupcija. U tom trenutku, pod pretpostavkom da nemate trenutne sigurnosne kopije podataka, vaše posljednje utočište je nedvojbeno izvanredan alat za popravak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.