Outlook新手求助：创建标记邮件为已读并移至指定文件夹的宏

第一步：开启宏功能 #

打开Outlook，按「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，选「启用所有宏」（怕不安全的话选带通知的选项也可以），点确定。

第二步：打开VBA编辑器 #

直接按Alt + F11就能调出VBA编辑器，不用怕复杂，跟着操作就行。

第三步：插模块贴代码 #

左边「项目」面板里，右键点你的Outlook项目（一般是Project1），选「插入」→「模块」，然后把下面的代码粘进去：

Sub MarkAsReadAndMove()
    Dim objMail As Outlook.MailItem
    Dim targetFolder As Outlook.Folder
    
    ' 没选邮件就弹提示
    If Application.ActiveExplorer.Selection.Count = 0 Then
        MsgBox "先选中要处理的邮件！", vbExclamation
        Exit Sub
    End If
    
    ' 这里替换成你的目标文件夹名，比如把"已处理邮件"改成你自己的文件夹
    Set targetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("已处理邮件")
    
    ' 逐个处理选中的邮件
    For Each objMail In Application.ActiveExplorer.Selection
        ' 标记为已读并保存
        objMail.UnRead = False
        objMail.Save
        
        ' 移动到目标文件夹
        objMail.Move targetFolder
    Next objMail
    
    MsgBox "处理完啦！", vbInformation
End Sub

第四步：调整目标文件夹路径 #

如果你的目标文件夹不在收件箱下面：

• 要是在邮箱根目录，就把Set targetFolder = ...改成：Set targetFolder = Application.Session.Folders("你的邮箱地址").Folders("目标文件夹名")
• 要是在已删除邮件里，就把olFolderInbox换成olFolderDeletedItems

第五步：运行宏 #

回到Outlook，选中要处理的邮件，按Alt + F8，选中MarkAsReadAndMove点「运行」就行。嫌每次调麻烦的话，还可以把宏加到工具栏：右键工具栏→「自定义功能区」→「宏」，把这个宏拖到常用的选项卡，以后点一下就用。

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