Outlook 邮件指标 vba 不匹配类型

Question

尝试使用来自另一个线程的 vba，但是，在“对于 flInbox.Items 中的每个 olMail”的行上获得了不匹配的类型。任何想法我做错了什么？我参考了outlook和excel。

Dim olMail As MailItem
Dim aOutput() As Variant
Dim lCnt As Long
Dim xlApp As Excel.Application
Dim xlSh As Excel.Worksheet
Dim flInbox As Folder

Set flInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

ReDim aOutput(1 To flInbox.Items.Count, 1 To 4)

For Each olMail In flInbox.Items
    If TypeName(olMail) = "MailItem" Then
        lCnt = lCnt + 1
        aOutput(lCnt, 1) = olMail.SenderEmailAddress 'maybe stats on domain
        aOutput(lCnt, 2) = olMail.ReceivedTime 'stats on when received
        aOutput(lCnt, 3) = olMail.ConversationTopic 'group based on subject w/o regard to prefix
        aOutput(lCnt, 4) = olMail.Subject 'to split out prefix
    End If
Next olMail

Set xlApp = New Excel.Application
Set xlSh = xlApp.Workbooks.Add.Sheets(1)

xlSh.Range("A1").Resize(UBound(aOutput, 1), UBound(aOutput, 2)).Value = aOutput
xlApp.Visible = True

链接：

Using VBA in Outlook to gather statistics on received emails

Answer 1

You For Each 循环假定从 Items 集合的索引器获取的对象正在将 MailItem 对象返回到 olMail 变量中。该文件夹可能包含非电子邮件消息，例如 ReportItem 或 MeetingRequest 对象。而是声明一个 Object 变量，并检查 MessageClass 或 Type 的值以验证该消息是 MailItem 对象，然后再将其转换为特定对象时间。我还会使用带索引器的 For 循环而不是 For Each，这样在迭代 Outlook 对象时消耗的内存资源更少。