Outlook VBA如果主题匹配，如何遍历收件箱并从电子邮件地址列表

Question

我正在尝试使用Outlook VBA循环收件箱，如果主题与字符串匹配，则列出来自电子邮件地址。 到目前为止，这是谷歌搜索，但它不起作用：

Dim objNS As Outlook.NameSpace
Set objNS = GetNamespace("MAPI")
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items

Dim oFolder As Outlook.MAPIFolder
Dim oMail As Outlook.MailItem
For Each oMail In Items
    Debug.Print oMail.SenderEmailAddress
Next

有人知道为什么我在运行时出现类型不匹配错误？

Answer 1

如评论所述，请尝试在代码中加入MailItem测试：

Dim objNS As Outlook.NameSpace: Set objNS = GetNamespace("MAPI")
Dim olFolder As Outlook.MAPIFolder
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Dim Item As Object

For Each Item In olFolder.Items
    If TypeOf Item Is Outlook.MailItem Then 
        Dim oMail As Outlook.MailItem: Set oMail = Item
        Debug.Print oMail.SenderEmailAddress
    End If
Next

编辑1：正如德米特里所建议的那样，你也可以使用：

If Item.Class = 43 Then

代替

If TypeOf Item Is Outlook.MailItem Then