如何解决Outlook VBA中Run-time error '438'对象不支持属性/方法问题

错误出在If olMail.SenderEmailAddress = "deneme@deneme.com" Then这行，原因是收件箱的Items集合里不只有邮件，还可能包含会议邀请、任务请求、系统通知等其他Outlook对象，这些对象没有SenderEmailAddress属性，触发了"对象不支持该属性或方法"的438错误。

下面是两种可行的解决方法：

方法一：遍历前判断对象类型 #

在检查发件人地址前，先确认当前项目是邮件对象（Outlook中邮件的Class属性值为43）：

' Gelen mailleri kontrol et
For Each olMail In olFolder.Items
    ' 先验证是否为邮件对象
    If olMail.Class = 43 Then ' 43对应Outlook的olMail常量
        If olMail.SenderEmailAddress = "deneme@deneme.com" Then
            For Each olAttachment In olMail.Attachments
                If olAttachment.FileName = FileName Then
                    FilePath = DesktopPath & "\" & FileName
                    olAttachment.SaveAsFile FilePath
                    Exit For
                End If
            Next olAttachment
        End If
    End If
Next olMail

方法二：提前筛选目标项目（更高效） #

用Restrict方法直接筛选出邮件类型且发件人匹配的项目，减少遍历次数，提升效率：

' 先筛选符合条件的项目
Dim filteredItems As Object
Set filteredItems = olFolder.Items.Restrict("[Class] = 43 AND [SenderEmailAddress] = 'deneme@deneme.com'")

' 遍历筛选后的项目
For Each olMail In filteredItems
    For Each olAttachment In olMail.Attachments
        If olAttachment.FileName = FileName Then
            FilePath = DesktopPath & "\" & FileName
            olAttachment.SaveAsFile FilePath
            Exit For
        End If
    Next olAttachment
Next olMail

注意：由于你用的是后期绑定（通过CreateObject创建Outlook实例），所以直接用数字43代表邮件类型，如果你改为早期绑定（引用Outlook对象库），可以替换成olMail常量。

内容的提问来源于stack exchange，提问作者Alper