VBA計數Outlook中的類別

Question

我是一個PHP程序員和我完全新的VBA ...

在Outlook中，我想顯示類似以下內容的簡單提示：

Red Category: 5 Emails 
Blue Category: 7 Emails 
Yellow Category: 8 Emails 

我這來自微軟：

Sub ListCategoryColors() 
Dim objNameSpace As NameSpace 
Dim objCategory As Category 
Dim strOutput As String 

' Obtain a NameSpace object reference. 
Set objNameSpace = Application.GetNamespace("MAPI") 

' Check if the Categories collection for the Namespace 
' contains one or more Category objects. 
If objNameSpace.Categories.Count > 0 Then 

' Enumerate the Categories collection, checking 
' the value of the Color property for 
' each Category object. 
For Each objCategory In objNameSpace.Categories 

' Add the name of the Category object to 
' the output string. 
strOutput = strOutput & objCategory.Name 

' Add information about the assigned color 
' to the output string. 
Select Case objCategory.Color 
Case OlCategoryColor.olCategoryColorNone 
strOutput = strOutput & ": No color" & vbCrLf 
Case OlCategoryColor.olCategoryColorBlack 
strOutput = strOutput & ": Black " & vbCrLf 
Case OlCategoryColor.olCategoryColorBlue 
strOutput = strOutput & ": Blue" & vbCrLf 
Case OlCategoryColor.olCategoryColorGray 
strOutput = strOutput & ": Gray" & vbCrLf 
Case OlCategoryColor.olCategoryColorGreen 
strOutput = strOutput & ": Green" & vbCrLf 
Case OlCategoryColor.olCategoryColorMaroon 
strOutput = strOutput & ": Maroon" & vbCrLf 
Case OlCategoryColor.olCategoryColorOlive 
strOutput = strOutput & ": Olive" & vbCrLf 
Case OlCategoryColor.olCategoryColorOrange 
strOutput = strOutput & ": Orange" & vbCrLf 
Case OlCategoryColor.olCategoryColorPeach 
strOutput = strOutput & ": Peach" & vbCrLf 
Case OlCategoryColor.olCategoryColorPurple 
strOutput = strOutput & ": Purple" & vbCrLf 
Case OlCategoryColor.olCategoryColorRed 
strOutput = strOutput & ": Red" & vbCrLf 
Case OlCategoryColor.olCategoryColorSteel 
strOutput = strOutput & ": Steel" & vbCrLf 
Case OlCategoryColor.olCategoryColorTeal 
strOutput = strOutput & ": Teal" & vbCrLf 
Case OlCategoryColor.olCategoryColorYellow 
strOutput = strOutput & ": Yellow" & vbCrLf 
Case Else 
strOutput = strOutput & ": Unknown" & vbCrLf 
End Select 
Next 
End If 

' Display the output string. 
MsgBox strOutput 

' Clean up. 
Set objCategory = Nothing 
Set objNameSpace = Nothing 

End Sub 

但它只是列出類別和他們的名字。任何人都可以幫忙嗎？謝謝。

Answer 1

發現如果沒有VB，這很容易實現。

進入

Category="red" 

在搜索欄中，帶來了所有的紅分類的電子郵件。此類別的電子郵件總數將顯示在狀態欄中。