如何用Excel VBA列出指定日期后发送的Outlook邮件？遇运行错误438

错误原因 #

发件箱的Items集合里不只有邮件（MailItem）对象，还可能包含会议请求（MeetingItem）、任务请求等其他类型的Outlook对象，这些对象不支持SentOn、To、CC等邮件专属属性，遍历到这类对象时就会触发“Object doesn't support this property or method”错误。而收件箱中以邮件对象为主，所以之前代码能正常运行。

修改后的代码 #

Sub SentMail()
    Dim Lastrow As Long
    Dim OutlookApp As Outlook.Application
    Dim OutlookNamespace As Namespace
    Dim Folder As MAPIFolder
    Dim OutlookMail As Object ' 改为Object类型，兼容多种对象
    Dim i As Integer
    
    ' 获取A列最后一行并清空旧数据
    Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2:D" & Lastrow).ClearContents
    
    ' 初始化Outlook对象
    Set OutlookApp = New Outlook.Application
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    Set Folder = OutlookNamespace.GetDefaultFolder(olFolderSentMail)
    
    i = 2
    
    ' 遍历发件箱，只处理MailItem类型的对象
    For Each OutlookMail In Folder.Items
        ' 判断当前对象是否为邮件
        If TypeOf OutlookMail Is Outlook.MailItem Then
            With OutlookMail
                If .SentOn >= Range("A1").Value Then
                    Range("A" & i).Value = .SentOn
                    Range("B" & i).Value = .Subject
                    Range("C" & i).Value = .To
                    Range("D" & i).Value = .CC
                    i = i + 1
                End If
            End With
        End If
    Next OutlookMail
    
    ' 释放对象
    Set Folder = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookApp = Nothing
End Sub

额外优化点 #

• 去掉了不必要的Select操作，直接对Range进行操作，提升代码效率和稳定性。
• 使用With OutlookMail简化代码，减少重复调用。
• 将OutlookMail的类型改为Object，避免类型不匹配问题。

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