循环查看“已发送邮件”中的 Outlook 邮件项目文件夹

Question

我们正在尝试访问 Outlook 2007（使用 Exchange） 中的已发送邮件文件夹，但 TypeOf(i) 的测试为 Outlook.MailItem在下面的代码片段中始终返回 False。

我们知道我们拥有正确的文件夹，因为对 items.Count 的测试返回了正确的邮件项目数。

收件箱消息很好。如果我们将文件夹从 olFolderSentMail 更改为 olFolderInbox，则 TypeOf(i) Is Outlook.MailItem 的测试就会通过，并且很高兴向我们展示主题。

Dim app As Outlook.Application = Nothing
Dim ns As Outlook.NameSpace = Nothing
Dim siFolder As Outlook.Folder = Nothing
Dim items As Outlook.Items = Nothing

app = New Outlook.Application()
ns = app.Session


siFolder = CType(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail), Outlook.Folder)

items = siFolder.Items

MsgBox(items.Count)

For Each i In items

    If TypeOf (i) Is Outlook.MailItem Then
        Dim mailitem As Outlook.MailItem
        mailitem = CType(i, Outlook.MailItem)
        MsgBox(mailitem.Subject)
    Else
        MsgBox("not a mailitem")
    End If
Next

更新

下面@Rob 的答案，是的，肯定有帮助。但我还是很困惑。 @Rob 的代码所做的最重要的事情是测试 .MessageClass = "IPM.Note"。如果我包含该内容，则稍后对 TypeOf x Is MailItem 的测试就会成功。如果我用 If True then 替换 @Rob 对 .MessageClass = "IPM.Note" 的测试，那么相同的代码仍然会执行，但稍后对 Is MailItem 的测试会失败。就好像仅测试 .MessageClass 就会自动将对象解析为 MailItem。

此外，已发送的项目不包含任何会议请求，因此无论如何测试似乎都是不必要的。

Answer 1

这应该会让你继续

......

Dim oSent As Outlook.MAPIFolder = oNS.GetFolderFromID(gSentEntryID, gSentStoreID)


 Dim oItems As Outlook.Items = oSent.Items

 For i as Integer = 1 To oItems.Count
   'Test to make sure item is a mail item and not a meeting request.
    If oItems.Item(i).MessageClass = "IPM.Note" Then

        If TypeOf oItems.Item(i) Is Microsoft.Office.Interop.Outlook.MailItem Then

             .....