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

Kako v programu Outlook šteti e-pošto po kategorijah?

Morda ste v Outlooku poudarili e-poštna sporočila z barvnimi kategorijami. Ampak, ali veste, kako šteti e-pošto po kategorijah? Ta članek bo delil dve rešitvi:

Kartica Office - omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte delo ...
Kutools za Outlook - prinaša 100 zmogljivih naprednih funkcij v Microsoft Outlook
  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po pravilih; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaže sporočilo, ko poskušate odgovoriti na vse, če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v pogovoru po pošti; Odgovori na več e-poštnih sporočil hkrati; Samodejno dodaj pozdrav ko odgovor; Samodejno dodaj datum in čas v zadevo ...
  • Orodja za pritrditev: Samodejno loči, Stisni vse, Preimenuj vse, Samodejno shrani vse ... Hitro poročilo, Preštej izbrano pošto, Odstranitev podvojenih e-poštnih sporočil in stikov ...
  • Več kot 100 naprednih funkcij bo rešiti večino svojih težav v Outlooku 2010-2019 in 365. Polne funkcije 60-dnevnega brezplačnega preskusa.

puščica modri desni mehurček Štejte e-pošto po kategorijah v Outlooku s funkcijo takojšnjega iskanja

Ta metoda vas bo vodila do iskanja vseh e-poštnih sporočil, označenih z določenimi barvnimi kategorijami Takojšnje iskanje in nato z lahkoto pridobite skupno število vseh rezultatov iskanja na Status bar.

1. V Ljubljani mail pogled, pritisnite Ctrl + E tipke hkrati, da aktivirate tipko Orodja za iskanje.

2. klik Iskalnik > Kategoriziraniin nato izberite določeno barvno kategorijo, do katere boste šteli e-pošto.

3. Zdaj so vsa e-poštna sporočila, označena z določeno barvno kategorijo, odkrita in navedena na poštnem seznamu. V vrstici stanja lahko enostavno dobite skupno število vseh rezultatov iskanja. Oglejte si posnetek zaslona:

Opombe:

(1) Za štetje e-poštnih sporočil, označenih z Rumena kategorija in Oranžna kategorija hkrati vnesite iskalna merila kategorija: = "Rumena kategorija" IN "Oranžna kategorija" v Takojšnje iskanje polje neposredno:

(2) Za štetje e-poštnih sporočil, označenih z Rumena kategorija or Oranžna kategorija hkrati vnesite iskalna merila kategorija: = "Rumena kategorija" ALI "Oranžna kategorija" v Takojšnje iskanje škatlo neposredno.


puščica modri desni mehurček Štejte e-pošto po kategorijah v Outlooku z VBA

Ta metoda bo uvedla VBA za štetje e-poštnih sporočil po kategorijah v časovnem obdobju po meri v Outlooku. Naredite naslednje:

1. V Ljubljani mail pogled, izberite e-poštno mapo, v katero boste šteli e-pošto.

2. Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications.

3. klik Vstavi > Moduliin nato pod novo kodo VBA prilepite v novo okno modula za odpiranje:

VBA: v programu Outlook štejte e-pošto po kategorijah

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. Pritisnite F5 ali kliknite gumb Zaženi, da zaženete ta VBA.

5. (1) V prvo pogovorno okno Microsoft Outlook vnesite začetni datum časovnega obdobja po meri, v katerem boste prešteli e-pošto, in kliknite OK gumb. (2) V drugo pogovorno okno Microsoft Outlook vnesite končni datum in kliknite OK . Oglejte si posnetke zaslona:

Zdaj se odpre pogovorno okno in prikaže število e-poštnih sporočil, označenih z barvnimi kategorijami. Oglejte si posnetek zaslona:


puščica modri desni mehurčekPovezani članki


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 (17)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
To je popolno, toda kako lahko spremenim VBA, da vključi podmape trenutne mape v štetje?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, hvala, deluje brezhibno, samo ena hitra poizvedba - Ali lahko dobimo, da se rezultati Msgbox prikažejo v excelu, saj bi moral biti vsakič, ko želim zagnati makro, prikazan v excelu.
vsakič eno pod prejšnjimi rezultati.
Ta komentar je moderator na spletnem mestu minimiziral
To bi bilo super!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, hvala, odlično je delovalo za mesec junij, toda ko zaženem to za julij, prikaže samo skupno število e-poštnih sporočil ... imate kakšno idejo?
Ta komentar je moderator na spletnem mestu minimiziral
ali obstaja način, da to skrijete v Excelovo tabelo?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Dylan,
Pod kodo VBA bo rezultate štetja postavil v nov Excelov delovni zvezek.
FYI, pred zagonom VBA omogočite sklic na »Microsoft Excel 16.0 Object Library«.
PodkategorijeE-pošta()
Dim xFolder Kot MAPIFolder
Dim xDict kot objekt
Dim xStartDate kot niz, xEndDate kot niz
Zatemni xItems kot Outlook.Items
Dim xStr kot niz, xMsg kot niz
Zatemni xExlApp kot objekt
Dim xWb kot delovni zvezek, xWs kot delovni list
Dim I kot celo število
On Error Resume Next
Nastavi xExlApp = CreateObject("Excel.Application")
Nastavite xWb = xExlApp.Workbooks.Add
Nastavi xWs = xWb.Liste.Item(1)
Nastavite xFolder = Application.ActiveExplorer.CurrentFolder
Nastavi xDict = CreateObject("Scripting.Dictionary")
xStartDate = InputBox("Vnesite začetni datum (oblika MM/DD/LLLL)")
xEndDate = InputBox("Vnesite končni datum (oblika MM/DD/LLLL)")
Nastavite xItems = xFolder.Items.Restrict("[ReceivedTime] >= '" & xStartDate & "' In [ReceivedTime] <= '" & xEndDate & "'")
'xItems.SetColumns ("Kategorije")
Za vsak xItem v xItems
xStr = xItem.Categories
Če ni xDict.Exists(xStr) Potem
xDict(xStr) = 0
Konec Če
xDict(xStr) = CLng(xDict(xStr)) + 1
Naslednji xItem
xMsg = ""
xWs.Range("A1", "B1").Font.Bold = True
Z xWs.Range("A1", "B1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientacija = 0
.AddIndent = False
.Raven zamika = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Končaj s
xWs.Cells(1, 1) = "Kategorije"
xWs.Cells(1, 2) = "Število"
I = 2
Za vsak xKey v xDict.Keys
Če xKey <> "" Potem
xWs.Cells(I, 1) = xKey
xWs.Cells(I, 2) = xDict(xKey)
jaz = jaz + 1
Konec Če
Naslednji
xWs.Range("A1", "B" + CStr(I)).Columns.AutoFit
xExlApp.Visible = Res
Nastavite xFolder = Nič
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
To je bilo tudi meni v pomoč, najlepša hvala za delitev!
Ta komentar je moderator na spletnem mestu minimiziral
Vem, da je to starejša tema, ampak če mi lahko kdo pomaga, bi bil zelo hvaležen. Ko zaženem kodo, naletim na napako pri prevajanju "Uporabniško definirana vrsta ni opredeljena" za 8. vrstico "Dim xWB kot delovni zvezek, xWs kot delovni list"
Ta komentar je moderator na spletnem mestu minimiziral
Hi
Vam je to uspelo rešiti?
Imam enak problem
rešitev:
Preprosto izbrišite vrstico: Dim xWb As Workbook, xWs As Worksheet
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko dodate način za razčlenitev stolpcev štetja po dnevih? Tako bi lahko tekel cel mesec, nato pa bi se števanje razvrstilo po dnevih.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Hannah,

Prosimo, poskusite s spodnjo kodo:

PodkategorijeE-pošta()
Zatemni mapa Kot mapa MAPI
Zatemni oDict kot objekt
Zatemni začetni datum kot niz
Zatemni datum pošiljanja kot niz
Zatemnite elemente kot Outlook.Items
Dim sStr kot niz
Zatemni sMsg kot niz
Dim xStr, xStrDate, xStrDate_D kot niz
Dim xArr kot varianta
Dim xNum kot celo število
Dim xRlt kot niz
On Error Resume Next
Nastavite oFolder = Application.ActiveExplorer.CurrentFolder
xNum = 0
Nastavi oDict = CreateObject("Scripting.Dictionary")
sStartDate = InputBox("Vnesite začetni datum (format MM/DD/YYYY)")
sEndDate = InputBox("Vnesite končni datum (oblika MM/DD/LLLL)")
Nastavite oItems = oFolder.Items.Restrict("[ReceivedTime] >= '" & sStartDate & "' In [ReceivedTime] <= '" & SendDate & "'")
oItems.SetColumns ("ReceivedTime")
xStrDate_D = ""
xRlt = ""
Za vsak predmet v ostavkih
xStr = predmet.ReceivedTime
Če Trim(xStr) <> "" Potem
xArr = Split(xStr, " ")
xStrDate = xArr(0)
Če je xStrDate_D = "" Potem
xStrDate_D = xStrDate
xNum = 1
Else
Če xStrDate <> "" Potem
Če je xStrDate = xStrDate_D Potem
xNum = xNum + 1
Else
Če je xRlt = "" Potem
xRlt = xStrDate_D & ":" & xNum
Else
xRlt = xRlt & vbCrLf & xStrDate_D & ":" & xNum
Konec Če
xStrDate_D = xStrDate
xNum = 1
Konec Če
Konec Če
Konec Če
Konec Če
Naslednji
Če xRlt <> "" Potem
MsgBox xRlt
Else
MsgBox "Ni najdenih podatkov."
Konec Če
End Sub
Za več statističnih analiz pojdite tudi na zavihek Kutools Plus > Statistika če ste namestili Kutools za Outlook. Če ne, prosimextendoffice.com/download/kutools-for-outlook.html">kliknite tukaj za prenos in brezplačno pridobite 30-dnevno pot.
Amanda
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala za vašo pomoč!! Mislim, da v prvem vprašanju nisem bil dovolj jasen. Ali obstaja način, da se razčleni po kategorijah in nato prešteje po dnevih? Torej bi bila kategorija X razčlenjena po štetju v stolpce z datumi?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo družba,
Če želite, da se zgornja koda pravilno izvaja, najprej omogočite sklic na »Microsoft Excel 16.0 Object Library«.
Če želite to narediti, naredite naslednje: 1. V Outlooku pojdite na zavihek Razvojni > Visual Basic.2. V pojavnem oknu kliknite Orodja.3. V pojavnem pogovornem oknu preverite Knjižnica predmetov Microsoft Excel 16.0, nato kliknite OK, glej posnetek zaslona.
Upoštevajte, da 16.0 označuje številko različice, tako da, če v vašem pogovornem oknu ni enaka, ni pomembno. Vendar, če ne najdete Knjižnica objektov Microsoft Excel (številka različice)., se prepričajte, da imate v računalniku nameščen Excel.
Ko omogočite referenco, uporabite zgornjo kodo.
Če imate dodatna vprašanja, mi prosim ne oklevajte.
Amanda
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, ali obstaja možnost štetja črk, označenih s kategorijami, če imamo v eni črki malo primerov in jih je treba šteti: na primer zelena kategorija - 1 črka s 3 primeri znotraj = 3 primeri zelene kategorije ?


Hvala vam
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Ali obstaja način, da se namesto samo izračunavanja iz izbrane mape vključijo tudi vse podmape?
Ta komentar je moderator na spletnem mestu minimiziral
Hi
Vam je to uspelo rešiti?
Rad bi štel v podmape do.
Ta komentar je moderator na spletnem mestu minimiziral
Skupno število e-poštnih sporočil, ki so se pravkar pojavila poleg imena kategorije. Ali kdo ve kako se to nastavi?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije