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

Ako želite da izbrojite 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čiće vas kako da koristite VBA da ga dobijete u trenu.

Kada je u pitanju brojanje koliko je e-poruka primljeno u određenom datumu ili periodima, mnogi su navikli da koriste Outlook folder za pretragu, što nam omogućava da prikupimo sve e-poruke koje dolaze u određenom datumu ili rasponu datuma u jednu fasciklu za pretragu. Zatim možemo koristiti funkciju "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š jednom triku, koji može koristiti Outlook VBA da vam pomogne da dobijete ukupan broj. Sada čitajte dalje kako biste naučili detaljne korake i kodove.

Brojite dolazne e-poruke po datumu

1. Za početak, pravilno pokrenite Outlook program.
2. Zatim se možete prebaciti na karticu "Developer" i kliknuti na dugme "Visual Basic".
3. Zatim u iskačućem prozoru Outlook VBA editora, možete otvoriti novi modul tako što ćete “Insert” > “Module”.
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

Bilješka: Ovaj gornji kod radi na brojanju dolaznih e-poruka po datumu.

5. Nakon toga, možete dodati novi makro na alatnu traku za brzi pristup kao i obično.
6. Konačno, možete probati.

• Prvo odaberite folder Inbox.
• Zatim kliknite na dugme na traci sa alatkama za brzi pristup.
• Zatim morate unijeti određeni datum u formatu “gggg-mm-dd”.
• Na kraju, dobit ćete upit o ukupnom broju, kao na slici ispod:

Brojite dolazne e-poruke po mjesecu ili godini

Kako je gornji kod određen za brojanje po danu, ako želite brojati po mjesecu ili godini, potrebno je napraviti neke izmjene kodova.

1. Prvo, promijenite sav “strDay” u strMonth or strYear.
2. Drugo, zamijenite red "strDay = InputBox("Unesite određeni dan.(Format: gggg-mm-dd)", "Specify Date")" sa:

• strMonth = InputBox(“Unesite određeni mjesec.(Format: gggg-mm)”, “Navedite mjesec”)
• strYear = InputBox(“Unesite određenu godinu.(Format: yyyy)”, “Navedite godinu”)

3. Treće, promijenite red "strReceivedDate = Year(dReceivedTime) & "-" & Month(dReceivedTime) & "-" & Day(dReceivedTime)" u:

• strReceivedDate = Godina(dReceivedTime) & “-” & Month(dReceivedTime) [za mjesec]
• strReceivedDate = Godina(dReceivedTime) [za godinu].

Šta će se dogoditi nakon pada Outlooka

Mnogi korisnici su ikada iskusili pad programa 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 sredstvo je, nesumnjivo, izvanredan alat za popravak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com