Я пытался отфильтровать мою папку отправленных outlook в Word, чтобы получить общее количество писем за последний месяц.

' Connect to outlook
Dim outlook As Object
Dim NumEmails As Long
Dim name_space As Object
Dim SentFolder As MAPIFolder
Dim criterion As String

Set outlook = CreateObject("Outlook.Application")
Set name_space = outlook.GetNamespace("MAPI")

On Error Resume Next
Set SentFolder = name_space.GetDefaultFolder(olFolderSentMail)
If Err.Number <> 0 Then
    Err.Clear
    MsgBox "No such folder."
    Exit Sub
End If

If Month(Date) = 1 And Day(Date) < 27 Then
    ' It's January but we're reporting Decemember
    criterion = ""
ElseIf Day(Date) > 27 Then
    ' It's the end of the month; pull this month's data
    criterion = ""
Else
    ' It's not the end of the month; pull last month's data
    criterion = ""
End If

Это то, что я получил до сих пор, но я застрял, что поставить в качестве моей переменной критерия и как использовать ее для фильтрации папки.

Любая помощь будет оценена.

|источник

0