Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i gyfrif e-byst yn ôl categori yn Outlook?

Efallai eich bod wedi tynnu sylw at e-byst gyda chategorïau lliw yn Outlook. Ond, a ydych chi'n gwybod sut i gyfrif e-byst yn ôl categorïau? Bydd yr erthygl hon yn rhannu dau ddatrysiad:

Tab Swyddfa - Galluogi Golygu a Phori Tabbed yn y Swyddfa, a Gwneud Gwaith yn Haws Orau ...
Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch Pwerus i Microsoft Outlook
  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl rheolau; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangos neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst ar unwaith; Auto Ychwanegu Cyfarchiad wrth ateb; Auto Ychwanegu Dyddiad ac Amser yn destun ...
  • Offer Ymlyniad: Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Auto Save All ... Adroddiad Cyflym, Cyfrif Postiau Dethol, Tynnwch y Post a Chysylltiadau Dyblyg ...
  • Bydd mwy na 100 o nodweddion datblygedig datrys y rhan fwyaf o'ch problemau yn Outlook 2010-2019 a 365. Nodweddion llawn treial am ddim 60 diwrnod.

swigen dde glas saeth Cyfrif e-byst yn ôl categori yn Outlook gyda nodwedd Chwilio ar Unwaith

Bydd y dull hwn yn tywys yo i ddarganfod pob e-bost sydd wedi'i farcio â'r categorïau lliw penodedig gan y Chwilio Instant nodwedd, ac yna'n hawdd cael cyfanswm yr holl ganlyniadau chwilio yn y Bar statws.

1. Yn y bost gweld, gwasg Ctrl + E allweddi ar yr un pryd i actifadu'r Offer Chwilio.

2. Cliciwch Chwilio > Categoreiddio, ac yna dewiswch y categori lliw penodedig y byddwch chi'n cyfrif e-byst ganddo.

3. Nawr mae pob e-bost sydd wedi'i farcio â'r categori lliw penodedig yn cael ei ddarganfod a'i restru yn y rhestr bost. A gallwch chi gael cyfanswm yr holl ganlyniadau chwilio yn hawdd yn y bar statws. Gweler y screenshot:

Nodiadau:

(1) Ar gyfer cyfrif e-byst wedi'u marcio â Categori melyn a Categori oren ar yr un pryd, teipiwch y meini prawf chwilio category: = "Categori Melyn" A "Categori Oren" i mewn i'r Chwilio Instant blwch yn uniongyrchol:

(2) Ar gyfer cyfrif e-byst wedi'u marcio â Categori melyn or Categori oren ar yr un pryd, teipiwch y meini prawf chwilio category: = "Categori Melyn" NEU "Categori Oren" i mewn i'r Chwilio Instant blwch yn uniongyrchol.


swigen dde glas saeth Cyfrif e-byst yn ôl categori yn Outlook gyda VBA

Bydd y dull hwn yn cyflwyno VBA i gyfrif e-byst yn ôl categori mewn ystod dyddiad arfer yn Outlook. Gwnewch fel a ganlyn:

1. Yn y bost gweld, dewiswch y ffolder e-bost y byddwch chi'n cyfrif e-byst.

2. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y Modiwl agoriadol newydd:

VBA: Cyfrif e-byst yn ôl categori yn Outlook

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. Gwasgwch y F5 allwedd neu cliciwch y botwm Run i redeg y VBA hwn.

5. (1) Yn y blwch deialog cyntaf Microsoft Outlook, teipiwch ddyddiad cychwyn yr ystod dyddiad arfer y byddwch chi'n cyfrif e-byst ynddo, a chliciwch ar y OK botwm. (2) Yn ail flwch deialog Microsoft Outlook, teipiwch y dyddiad gorffen, a chliciwch ar y OK botwm. Gweler sgrinluniau:

Ac yn awr mae blwch deialog yn dod allan ac yn arddangos nifer yr e-byst sydd wedi'u marcio â chategorïau lliw. Gweler y screenshot:


swigen dde glas saethErthyglau Perthnasol


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sanjana · 1 years ago
    The total number of emails just used to appear beside the Name of the catagory. Does anyone know how to set this?
  • To post as a guest, your comment is unpublished.
    Prince · 1 years ago
    Hi,
    Instead of only calculating from the selected folder, is there a way to include all the sub folders as well?
    • To post as a guest, your comment is unpublished.
      Lars · 1 months ago
      Hi
      Did you manage to solve this ?
      I would like to count in subfolders to.
  • To post as a guest, your comment is unpublished.
    Radvi · 1 years ago
    Hello, is there is a possibility to count letters marked with categories if in one letter we have few cases and they must be counted: for example green category - 1 letter with 3 cases inside = 3 green category cases ?


    ThANK YOU
  • To post as a guest, your comment is unpublished.
    Dylan · 1 years ago
    is there a way you can covert this into an excel table?
    • To post as a guest, your comment is unpublished.
      kellytte · 1 years ago
      Hi Dylan,
      Below VBA code will place the count results in a new Excel workbook.
      FYI, please enable the reference of “Microsoft Excel 16.0 Object Library” before running the VBA.
      Sub CategoriesEmails()
      Dim xFolder As MAPIFolder
      Dim xDict As Object
      Dim xStartDate As String, xEndDate As String
      Dim xItems As Outlook.Items
      Dim xStr As String, xMsg As String
      Dim xExlApp As Object
      Dim xWb As Workbook, xWs As Worksheet
      Dim I As Integer
      On Error Resume Next
      Set xExlApp = CreateObject("Excel.Application")
      Set xWb = xExlApp.Workbooks.Add
      Set xWs = xWb.Sheets.Item(1)
      Set xFolder = Application.ActiveExplorer.CurrentFolder
      Set xDict = CreateObject("Scripting.Dictionary")
      xStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
      xEndDate = InputBox("Type the end date (format MM/DD/YYYY)")
      Set xItems = xFolder.Items.Restrict("[ReceivedTime] >= '" & xStartDate & "' And [ReceivedTime] <= '" & xEndDate & "'")
      'xItems.SetColumns ("Categories")
      For Each xItem In xItems
      xStr = xItem.Categories
      If Not xDict.Exists(xStr) Then
      xDict(xStr) = 0
      End If
      xDict(xStr) = CLng(xDict(xStr)) + 1
      Next xItem
      xMsg = ""
      xWs.Range("A1", "B1").Font.Bold = True
      With xWs.Range("A1", "B1")
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      xWs.Cells(1, 1) = "Categories"
      xWs.Cells(1, 2) = "Count"
      I = 2
      For Each xKey In xDict.Keys
      If xKey <> "" Then
      xWs.Cells(I, 1) = xKey
      xWs.Cells(I, 2) = xDict(xKey)
      I = I + 1
      End If
      Next
      xWs.Range("A1", "B" + CStr(I)).Columns.AutoFit
      xExlApp.Visible = True
      Set xFolder = Nothing
      End Sub
      • To post as a guest, your comment is unpublished.
        Clint · 6 months ago
        I know this is an older thread, but if anyone can assist it would be greatly appreciated.  When running the code I'm hitting a compile error "User-defined type not defined" for the 8th line "Dim xWB As Workbook, xWs As Worksheet"

        • To post as a guest, your comment is unpublished.
          Lars · 1 months ago
          Hi
          Did you manage to solve this ?
          I got the same problem

          Solution:
          Simply delete the row:
          Dim xWb As Workbook, xWs As Worksheet
        • To post as a guest, your comment is unpublished.
          Lars · 1 months ago
          Hi
          Did you manage to solve this ?
          I got the same problem

      • To post as a guest, your comment is unpublished.
        Sarah Creswell · 1 years ago
        This was helpful for me also, thank you so much for sharing!
  • To post as a guest, your comment is unpublished.
    Aymeric · 2 years ago
    Hi , thanks it workd perfectly for month of June, but when I run this for July, it only shows the total number of emails... any idea?
  • To post as a guest, your comment is unpublished.
    Abhishek Singhal · 2 years ago
    Hi Thanks, it works perfectly, just one quick query- Can we get the Msgbox results to be displayed in excel, as whenever i want to run the macro it should be displayed in excel.
    every time one below the previous results.
  • To post as a guest, your comment is unpublished.
    Emma · 4 years ago
    This is perfect, but how can I change the VBA to include subfolders of the current folder in the count?