Hvordan å telle antall innkommende e-poster per dag i Outlook?
Har du noen gang regnet det totale antall e-poster som du mottok per dag ? Og er du lei av å telle dem en etter en manuelt uten effektive metoder? I denne opplæringen, gir vi deg to triks for telling totale e-poster per dag i Outlook.
2013.
Count totale e-poster per dag i Outlook med søkemappe
1. Høyreklikk på søkemappene under e-postkonto som du ønsker å telle de totale innkommende e-poster per dag. Og klikk deretter Ny søkemappe. Se skjermbilde:
to. I dialogboksen Ny søkemappe, bla ned til bunnen og klikk deretter Opprett en tilpasset Søk mappe under Custom. Deretter klikker du på Velg-knappen
3.. Når dialogboksen Custom Search Folder dukker opp, Name it og klikk deretter Criteria knappen.
4. I dialogboksen Søk Mappe Kriterier under kategorien Meldinger, separat velge mottatt og dag i klokke nedtrekkslisten. Klikk deretter på OK. Se skjermbilde:
5. Når den returnerer til dialogboksen Custom Search Folder, må du klikke Bla gjennom.
6. I Velg mappe (r) dialogboksen velger du mappen du ønsker å telle de totale e-poster per dag, og fjern søkemappene boksen. Klikk deretter på OK-knappen.
7. Klikk deretter på OK to ganger i de følgende to dialogbokser.
8. Høyreklikk den nye søke mappen du nettopp opprettet, og velg Egenskaper fra høyreklikke menyen. Se skjermbilde:
9. I den følgende dialogboksen, sjekk Show totale antallet elementer boksen, og klikk deretter på OK.
Fra nå av vil kopiene av innkommende e-postmeldinger skal lagres på dette søket mappen per dag. Hvis en ny dag kommer, vil søket mappen automatisk fjerne alle gamle meldinger og begynne å telle de nye dagene e-postmeldinger.
Greve totale e-poster per dag i Outlook med VBA-kode
Foruten den metoden ovenfor, kan du bruke VBA-kode for å telle totale e-poster per dag i Outlook. Vennligst gjør som følger.
1. Velg mappen du ønsker å telle de totale innkommende e-poster per dag.
To. Åpne Microsoft Visual Basic for Applications ved å trykke Alt + F11.
3. Så vær så snill Sett > Modul for å åpne VBA editor. Se skjermbilde:
Eller du kan åpne VBA editor ved å dobbeltklikke Prosjekt > Microsoft Outlook Objects > ThisOutlookSession.
4. Deretter kopiere og lime inn følgende VBA kode i Module vinduet
VBA. Count totale e-poster per dag
Sub Countemailsperday () Dim objOutlook As Object, objnSpace As Object, objFolder Som MAPIFolder Dim EmailCount As Integer Dim Odate As String Odate = InputBox ("Skriv inn dato for telling (format ÅÅÅÅ-md") Set objOutlook = Create ("Outlook.Application") Set objnSpace = objOutlook.GetNamespace ("MAPI") On Error Resume Next Set objFolder = Application.ActiveExplorer. Current Hvis err.number < > 0 Then Err.Clear MsgBox Exit Sub End If EmailCount = objFolder.Items.Count MsgBox "Antall e-postmeldinger i mappen:" "Ingen slik mappe." & EmailCount, "e-count "Dim ssitem Som MailItem Dim dateStr As String Dim myItems Som Outlook.Items Dim dict As Object Dim msg Som String Set dict = Create (" Scripting.Dictionary ") Set myItems = objFolder.Items myItems.SetColumns (" ReceivedTime ") 'Bestem dato for hver melding: For Hver myItem I myItems dateStr = getdate (myItem.ReceivedTime) Hvis dateStr = Odate Så om ikke dict.Exists (dateStr) Så dict (dateStr) = 0 End If dict (dateStr) = CLng (dict (dateStr )) + 1 End If Neste myItem 'Output tellinger per dag: msg = "" For hver o I dict.Keys msg = msg & o & ":" &Amp; dict (o) & "Elementer" & vbCrLf Neste MsgBox msg Set objFolder = Ingenting Set objnSpace = Ingenting Set objOutlook = NothingEnd underfunksjon getdate (dt As Date) As String getdate = Year (dt) & "-" &Amp; Måned (dt) & "-" &Amp; Dag (dt) End Function5. Når du har limt VBA-kode, kan du klikke knappen Kjør.
6. I dialogboksen Makroer, Kjør-knappen.
7. Deretter skriver du inn datoen du ønsker å telle de totale innkommende e-post, og klikk deretter på OK. Se skjermbilde:
8. I dukker opp e-post dialog teller, vil alle antall e-poster i denne mappen telles. Vennligst gå på å klikke OK.
9. Deretter vil du se den totale innkommende epost nummeret til en bestemt dato
. Merk: Denne VBA-kode er testet og godkjent i Outlook 2010 og 2013.
20 + kraftige verktøy og funksjoner for
Foruten den metoden ovenfor, kan du bruke VBA-kode for å telle totale e-poster per dag i Outlook. Vennligst gjør som følger.
1. Velg mappen du ønsker å telle de totale innkommende e-poster per dag.
To. Åpne Microsoft Visual Basic for Applications ved å trykke Alt + F11.
3. Så vær så snill Sett > Modul for å åpne VBA editor. Se skjermbilde:
Eller du kan åpne VBA editor ved å dobbeltklikke Prosjekt > Microsoft Outlook Objects > ThisOutlookSession.
4. Deretter kopiere og lime inn følgende VBA kode i Module vinduet
VBA. Count totale e-poster per dag
Sub Countemailsperday () Dim objOutlook As Object, objnSpace As Object, objFolder Som MAPIFolder Dim EmailCount As Integer Dim Odate As String Odate = InputBox ("Skriv inn dato for telling (format ÅÅÅÅ-md") Set objOutlook = Create ("Outlook.Application") Set objnSpace = objOutlook.GetNamespace ("MAPI") On Error Resume Next Set objFolder = Application.ActiveExplorer. Current Hvis err.number < > 0 Then Err.Clear MsgBox Exit Sub End If EmailCount = objFolder.Items.Count MsgBox "Antall e-postmeldinger i mappen:" "Ingen slik mappe." & EmailCount, "e-count "Dim ssitem Som MailItem Dim dateStr As String Dim myItems Som Outlook.Items Dim dict As Object Dim msg Som String Set dict = Create (" Scripting.Dictionary ") Set myItems = objFolder.Items myItems.SetColumns (" ReceivedTime ") 'Bestem dato for hver melding: For Hver myItem I myItems dateStr = getdate (myItem.ReceivedTime) Hvis dateStr = Odate Så om ikke dict.Exists (dateStr) Så dict (dateStr) = 0 End If dict (dateStr) = CLng (dict (dateStr )) + 1 End If Neste myItem 'Output tellinger per dag: msg = "" For hver o I dict.Keys msg = msg & o & ":" &Amp; dict (o) & "Elementer" & vbCrLf Neste MsgBox msg Set objFolder = Ingenting Set objnSpace = Ingenting Set objOutlook = NothingEnd underfunksjon getdate (dt As Date) As String getdate = Year (dt) & "-" &Amp; Måned (dt) & "-" &Amp; Dag (dt) End Function5. Når du har limt VBA-kode, kan du klikke knappen Kjør.
6. I dialogboksen Makroer, Kjør-knappen.
7. Deretter skriver du inn datoen du ønsker å telle de totale innkommende e-post, og klikk deretter på OK. Se skjermbilde:
8. I dukker opp e-post dialog teller, vil alle antall e-poster i denne mappen telles. Vennligst gå på å klikke OK.
9. Deretter vil du se den totale innkommende epost nummeret til en bestemt dato
. Merk: Denne VBA-kode er testet og godkjent i Outlook 2010 og 2013.