如何修改Outlook VBA代码使其在指定文件夹中运行处理邮件

你只需通过Outlook MAPI命名空间定位到指定的Reply文件夹，替换原有遍历选中邮件的逻辑即可，修改后的代码如下：

Option Explicit
Sub ReplyMSG()
    Dim olNamespace As Outlook.NameSpace
    Dim targetFolder As Outlook.Folder
    Dim olItem As Outlook.MailItem
    Dim olReply As Outlook.MailItem
    
    ' 初始化Outlook命名空间
    Set olNamespace = Application.GetNamespace("MAPI")
    
    ' 定位收件箱下的"Reply"子文件夹
    Set targetFolder = olNamespace.GetDefaultFolder(olFolderInbox).Folders("Reply")
    
    ' 遍历目标文件夹内的所有邮件
    For Each olItem In targetFolder.Items
        ' 可选：仅处理未读邮件，不需要可删除本行及对应的End If
        If olItem.UnRead = True Then
            Set olReply = olItem.ReplyAll
            ' 已将原代码的vbCrLf替换为HTML换行符<br>，避免正文不换行的问题
            olReply.HTMLBody = "Hi and thanks for the email<br>" & olReply.HTMLBody
            ' 不需要预览直接发送可删除本行
            olReply.Display
            olReply.Send
            ' 可选：发送完成后标记原邮件为已读，不需要可删除
            olItem.UnRead = False
        End If
    Next olItem
    
    ' 释放对象资源
    Set olReply = Nothing
    Set olItem = Nothing
    Set targetFolder = Nothing
    Set olNamespace = Nothing
End Sub

调整说明 #

• 如果你的Reply文件夹不是收件箱的子文件夹，而是邮箱根目录下的一级文件夹，将定位文件夹的代码替换为下方内容即可，注意把你的邮箱地址替换为Outlook中绑定的对应邮箱完整地址：

  Set targetFolder = olNamespace.Folders("你的邮箱地址").Folders("Reply")
  

• 原代码中使用vbCrLf拼接HTML正文不会生效，已统一替换为HTML标准换行符<br>，如果不需要换行可以自行删除。
• 代码中新增的未读过滤、标记已读逻辑均为可选优化，不需要直接删除对应代码行即可。

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