制作邮件附件下载宏：如何让For Each循环跳过会议请求？

核心问题在于：会议请求在Outlook对象模型里属于MeetingItem类型，而非普通邮件的MailItem类型。如果你的宏直接把选中项都当作MailItem处理，遇到MeetingItem时会触发类型不匹配错误，导致循环直接终止。

解决思路是遍历选中项时先判断对象类型，只处理MailItem，自动跳过会议请求（以及其他非邮件类型的项目）。

修正后的宏代码示例 #

Sub DownloadSelectedAttachments()
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim saveFolder As String
    
    ' 替换为你的附件保存路径
    saveFolder = "C:\Your\Attachment\Save\Folder\"
    
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    
    For Each objItem In objSelection
        ' 仅处理普通邮件，跳过会议请求等非邮件项目
        If TypeOf objItem Is Outlook.MailItem Then
            Set objMail = objItem
            ' 遍历并保存附件
            For Each objAttachment In objMail.Attachments
                ' 避免重名可自行添加时间戳，此处直接使用原文件名
                objAttachment.SaveAsFile saveFolder & objAttachment.FileName
            Next objAttachment
        End If
        ' 非MailItem类型直接跳过，循环继续执行
    Next objItem
    
    ' 释放对象资源
    Set objAttachment = Nothing
    Set objMail = Nothing
    Set objItem = Nothing
    Set objSelection = Nothing
End Sub

关键说明 #

• 用TypeOf objItem Is Outlook.MailItem精准判断对象类型，确保只处理普通邮件；
• 遇到会议请求（MeetingItem）或其他非邮件对象时，循环会直接跳过该项目，不会中断；
• 若需单独精准跳过会议请求，也可使用objItem.Class = olMeetingRequest判断（olMeetingRequest对应数值为53），但直接判断MailItem类型更通用，能同时跳过任务、联系人等其他非邮件项目。

之前检测主题/内容无效的原因是：代码在未判断类型的情况下就访问MailItem的属性（比如.Subject），遇到MeetingItem时会直接抛出错误终止循环，根本到不了主题检测的步骤。

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