Outlook宏Else语句语法求助：不符合条件邮件移至主收件箱

没问题，我来帮你调整这个逻辑！核心就是在Else分支里通过Outlook VBA的Move方法将不符合条件的邮件移回主收件箱，下面是完整的代码示例和关键说明：

完整调整后的代码片段 #

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
    ' 监控主收件箱的新邮件（如果你的监控目标是其他文件夹，修改这里即可）
    Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
    Dim objInbox As Outlook.Folder
    Dim hasValidAttachment As Boolean
    
    ' 确保触发事件的是邮件对象（过滤会议请求等非邮件项）
    If TypeName(Item) <> "MailItem" Then Exit Sub
    Set objMail = Item
    
    ' 初始化主收件箱对象
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    
    ' --- 这里替换成你实际的附件名称判断逻辑 ---
    hasValidAttachment = False
    Dim att As Outlook.Attachment
    For Each att In objMail.Attachments
        ' 示例条件：附件名称包含指定关键词（你可以改成自己的参数判断）
        If InStr(LCase(att.FileName), "指定关键词") > 0 Then
            hasValidAttachment = True
            Exit For
        End If
    Next att
    ' --- 附件判断逻辑结束 ---
    
    ' 条件分支处理
    If hasValidAttachment Then
        ' 符合条件：移到你指定的目标文件夹（示例：收件箱下的"已分类附件"子文件夹）
        Set objTargetFolder = objInbox.Folders("已分类附件")
        objMail.Move objTargetFolder
    Else
        ' 不符合条件：移至主收件箱
        ' 注意：如果当前监控的就是主收件箱，这行其实冗余（邮件本来就在这）
        ' 但如果监控的是其他子文件夹，这行会把邮件移回主收件箱
        objMail.Move objInbox
    End If
    
    ' 释放对象，避免内存泄漏
    Set objMail = Nothing
    Set objTargetFolder = Nothing
    Set objInbox = Nothing
End Sub

关键语法说明 #

1. 获取主收件箱对象：
   用GetDefaultFolder(olFolderInbox)是Outlook VBA获取默认主收件箱的标准语法，能确保你准确指向目标位置。
2. Move方法的正确使用：
   邮件对象的Move方法接受一个Folder类型的参数，直接传入主收件箱对象即可完成移动：objMail.Move objInbox，这就是你需要的核心语法。
3. 特殊场景提示：
   如果你的objMails监控的就是主收件箱（如代码开头所示），Else分支的移动操作其实是多余的——因为新邮件本来就在主收件箱里。但如果是监控其他子文件夹，这行代码就会完美实现“不符合条件移回主收件箱”的需求。

调试小技巧 #

• 可以在Else分支里加一句Debug.Print "移回主收件箱：" & objMail.Subject，方便在VBA编辑器的立即窗口查看执行情况，验证逻辑是否正常。
• 确保目标文件夹存在，避免抛出“文件夹不存在”的错误。

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