我正在使用Outlook VBA并构建了一个For Next循环来读取MailItems的主体,其格式类似于Key = Value对.它似乎工作的一点,但在第二次迭代结束时,当它到达"下一个oitem"时,我得到错误抛出"类型不匹配".好吧,仍然有第三个MailItem被读入,所以我不知道为什么我会收到此错误.任何指导将不胜感激.
Sub ReadMailItems()
Dim olapp As Outlook.Application
Dim olappns As Outlook.NameSpace
Dim oitem As Outlook.MailItem
Dim ItemsToProcess As Outlook.Items
Dim myFolder As MAPIFolder
Dim sFilter As String
Dim dailyStats As CRBHA_Stats
Dim kvPairs As Collection
Dim Item As KeyValuePair
Dim today As Date
today = Date
On Error GoTo LocalErr
'set outlook objects
Set olapp = New Outlook.Application
Set olappns = olapp.GetNamespace("MAPI")
Set myFolder = olappns.GetDefaultFolder(olFolderInbox)
'Filter or only MailItems received today
sFilter = "[ReceivedTime] >= …