如何使用 VBA 识别 MS Outlook 中的日历条目？

Question

我有一个代码循环遍历所有已发送的 MS Outlook 电子邮件，并对每封电子邮件执行一些程序。我的代码中断但如果我的已发送文件夹中有一个日历条目会导致错误。

Run-time error '13': Type mismatch.

你们知道如何识别我已发送文件夹中的项目是否是日历条目，以便我可以跳过它吗？

sub test()


Dim oApp As Outlook.Application
Set oApp = CreateObject("Outlook.application")


Dim olFolder As Outlook.MAPIFolder
Set olFolder = oApp.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail)

Dim email_cnt As Long: email_cnt = olFolder.Items.Count


for t = 1 to email_cnt

    Dim oMail As Outlook.MailItem
    Set oMail = olFolder.Items.Item(t)        
    'do something;

Next t

End Sub

Answer 1

检查oMail.Class = 43（43 是 olMailItem）。您还需要避免遍历文件夹中的所有项目（为什么需要这样做？）并避免使用多点表示法 (olFolder.Items.Item) - 在进入循环之前将 Items 集合缓存在变量中。