从上月已发送文件夹中检索Outlook电子邮件计数(通过word VBA)

Sub RetrieveEmailCount()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olItems As Outlook.Items
    Dim olFilter As String
    Dim olFilteredItems As Outlook.Items
    Dim olMail As Outlook.MailItem
    Dim count As Integer
    
    ' 创建Outlook应用对象
    Set olApp = New Outlook.Application
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取已发送文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderSentMail)
    ' 获取上月的起始日期和结束日期
    Dim startDate As Date
    Dim endDate As Date
    startDate = DateSerial(Year(Date), Month(Date) - 1, 1)
    endDate = DateSerial(Year(Date), Month(Date), 0)
    ' 构建过滤器
    olFilter = "[SentOn] >= '" & Format(startDate, "ddddd") & "' AND [SentOn] <= '" & Format(endDate, "ddddd") & "'"
    ' 应用过滤器
    Set olFilteredItems = olFolder.Items.Restrict(olFilter)
    
    ' 遍历过滤后的邮件
    For Each olMail In olFilteredItems
        ' 判断是否为邮件项
        If olMail.Class = olMail Then
            ' 增加计数
            count = count + 1
        End If
    Next olMail
    
    ' 显示邮件数量
    MsgBox "上月已发送文件夹中的电子邮件数量为：" & count
    
    ' 释放对象
    Set olMail = Nothing
    Set olFilteredItems = Nothing
    Set olItems = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub