Outlook中用于类别计数的VBA

Question

我是VBA的新手，我正在尝试计算Outlook文件夹中不同类别的电子邮件数量。

我的Outlook文件夹有10个类别（类别1，类别2，类别3 ...）。我想在Excel工作表上获取每个类别中的电子邮件数量。

输入：要计算电子邮件的日期范围

输出（在excel文件中）：电子邮件总数：第1类：第2类：未分类：

根据我的初步研究，我可以找到以下代码：

Option Explicit

Private Sub HowManyEmails()

    Dim objFolder As Folder
    Dim EmailCount As Integer

    Dim myItem As Object
    Dim o As Variant

    Dim dateStr As String
    Dim myItems As Items
    Dim dict As Object
    Dim msg As String
    Dim oDate As String

    On Error Resume Next
    Set objFolder = ActiveExplorer.CurrentFolder

    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "No such folder."
        Exit Sub
    End If

    ' Must closely follow an On Error Resume Next
    On Error GoTo 0

    EmailCount = objFolder.Items.Count
    MsgBox "Number of emails in the folder: " & EmailCount, , "email count"

    Set dict = CreateObject("Scripting.Dictionary")

    ' oDate = InputBox("Date for count (Format D-M-YYYY")
    oDate = InputBox("Date for count (Format YYYY-m-d")

    Set myItems = objFolder.Items.Restrict("[Received] >= '" & oDate & "'")

    ' myItems.SetColumns ("Categories") ' You will find this error due to On Error GoTo 0

    For Each myItem In myItems
        dateStr = myItem.Categories
        If Not dict.exists(dateStr) Then
            dict(dateStr) = 0
        End If
        dict(dateStr) = CLng(dict(dateStr)) + 1
    Next myItem

    msg = ""
    For Each o In dict.Keys
        If o = "" Then
            msg = msg & dict(o) & ":   " & "Not categorized" & vbCrLf
        Else
            msg = msg & dict(o) & ":   " & o & vbCrLf
        End If
    Next
    MsgBox msg

ExitRoutine:
    Set objFolder = Nothing
    Set dict = Nothing

End Sub

要求您根据要求调整以上代码，并在所需的excel中获得输出

Answer 1

当然，您可以使用Find / FindNext或Restrict方法来查找与您的条件相对应的项目。但是这些方法可以一次在单个文件夹中搜索项目。因此，我建议使用AdvancedSearch类的Application方法，它具有以下优点：

• 搜索是在另一个线程中执行的。您不需要手动运行另一个线程，因为AdvancedSearch方法会在后台自动运行它。

• 可以在任何位置（即超出某个文件夹的范围）搜索任何项目类型：邮件，约会，日历，便笺等。可以将Restrict和Find / FindNext方法应用于特定的Items集合（请参阅Outlook中Items类的Folder属性）。

• 完全支持DASL查询（自定义属性也可用于搜索）。您可以在MSDN的Filtering文章中了解有关此内容的更多信息。为了提高搜索性能，如果为商店启用了“即时搜索”，则可以使用“即时搜索”关键字（请参阅IsInstantSearchEnabled类的Store属性）。

• 您可以随时使用Stop类的Search方法停止搜索过程。

在您的示例代码中，Received属性用于过滤电子邮件。但是您确实对Categories属性感兴趣。