2013版怎么统计每日的邮件数及内文中问题分类统计

franrants

前辈们好，
小弟目前遇到问题，想请益一下，如何在Outlookup 2013版中写出vba统计以下的问题。
1.限定区间时间统计每日的邮件数 (如 2017-06-01 00:00:00 至 2017-09-09 00:00:00，并依照每日秀出计量)
2.针对每日邮件的文内筛选文内中的问题计量，(如收件日期是 2017-06-01 01:39:45 内文(含有 "api"和"订单")等关键字)
问题分类：
问题一：api ===> 条件筛选判断一：寄件日期时间 or 收件日期时间，判断二：api or apikey
问题二：订单 ===> 条件筛选判断一：寄件日期时间 or 收件日期时间，判断二：订货 or 订单 or 退订
3.以上方式可否用字典法+数组编写?或是能怎么写出来呢?或是能参考以下方式写出来呢?
Private Sub Application_open()
'On Error GoTo 1000
Dim dates As Date
dates = 4 / 10 / 2013
If Date = dates Then
Dim OlApp As Application
Dim nmsName As NameSpace
Dim myibox As MAPIFolder
Dim mydelitems As MAPIFolder
Dim myitem As MailItem
Set OlApp = Outlook.Application
Set nmsName = OlApp.GetNamespace("MAPI")
For Each fldFolder In nmsName.Folders
    For Each subFolder In fldFolder.Folders
       If (subFolder.Name = "Inbox") Then ‘’‘大收件夾，這個你如果是中文系統就換成中文的“收件夾”
          For Each folderitem In subFolder.Folders
                If folderitem.Name = "Unuseful" Then ’‘’收件夾下自己創建的子文件夾，這裡換成你自己想要統計的文件夾名字
                n = folderitem.Items.Count ‘’‘n輸出的就是你統計的個數，然後你選擇怎麼把能輸出數來就是你的事了
                Debug.Print n
                Exit For
                End If
            Next
       End If
    Next
Next
End If
End Sub