Slik teller du raskt innkommende e-poster etter dato, måned eller år via Outlook VBA

Outlook-løsninger September 29, 2025

Hvis du ønsker å telle antall innkommende e-poster på en bestemt dato, eller i en bestemt måned eller år, kan du bruke de raske midlene som er introdusert i denne artikkelen. Den vil lære deg hvordan du bruker VBA for å få det på et blunk.

Når det gjelder å telle hvor mange e-poster som er mottatt i spesifikke dato eller perioder, er mange vant til å bruke Outlook-søkemappe, som lar oss samle alle e-poster som kommer inn i den spesifikke datoen eller datoperioden i en enkelt søkemappe. Deretter kan vi bruke funksjonen "vis totalt antall elementer" for postmappen for å få den. Men uten tvil er denne metoden ganske plagsom. Derfor vil vi her lære deg et annet triks, som kan gjøre bruk av Outlook VBA for å hjelpe deg med å få det totale antallet. Les nå videre for å lære de detaljerte trinnene og kodene.

Tell innkommende e-poster etter dato, måned eller år

Tell innkommende e-poster etter dato

  1. Til start med, start Outlook-programmet på riktig måte.
  2. Deretter kan du bytte til «Utvikler»-fanen og klikke på «Visual Basic»-knappen.
  3. Neste i popup-vinduet for Outlook VBA-redigering kan du åpne en ny modul ved å "Sett inn"> "Modul".
  4. Kopier deretter følgende VBA-koder inn i den nye modulen.
'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-koder – Tell innkommende e-poster etter dato

OBS: Denne koden ovenfor jobber med å telle de innkommende e-postene etter dato.

  1. Etter det kan du legge til den nye makroen til Quick Access Toolbar som vanlig.
  2. Endelig kan du prøve.
  • Velg først mappen Innboks.
  • Klikk deretter på knappen i Quick Access Toolbar.Kjør makro
  • Deretter må du skrive inn en bestemt dato i formatet "åååå-mm-dd".Spesifiser datoen
  • Til slutt vil du motta en melding om det totale antallet, som bildet nedenfor:Tell innkommende e-poster etter dato

Tell innkommende e-poster etter måned eller år

Siden koden ovenfor er spesifisert for telling per dag, hvis du ønsker å telle etter måned eller år, må du gjøre noen endringer på kodene.

  1. For det første, endre alle "strDay" til strMåned or strÅr.
  2. For det andre, erstatt linjen "strDay = InputBox("Skriv inn den spesifikke dagen.(Format: åååå-mm-dd)", "Spesifiser dato")" med:
  • strMonth = InputBox(“Skriv inn den spesifikke måneden.(Format: åååå-mm)”, “Spesifiser måned”)
  • strYear = InputBox(“Skriv inn det spesifikke året.(Format: åååå)”, “Spesifiser år”)
  1. For det tredje, endre linjen "strReceivedDate = Year(dReceivedTime) & "-" & Month(dReceivedTime) & "-" & Day(dReceivedTime)" til:
  • strReceivedDate = Year(dReceivedTime) & “-” & Month(dReceivedTime) [for måned]
  • strReceivedDate = Year(dReceivedTime) [for år].

Hva vil skje etter at Outlook krasjer

Mange brukere har noen gang hatt en Outlook-krasj. I beste fall etter restarMed Outlook vil alle ting bli gjenopprettet, nemlig ingenting vil skje. Men i verste fall kan du møte alvorlige PST-korrupsjon. På det tidspunktet, forutsatt at du ikke har nåværende sikkerhetskopiering av data, er din siste utvei uten tvil et bemerkelsesverdig reparasjonsverktøy, som f.eks. DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.