嘿，很高兴帮你优化这个宏！针对你经理提出的两个需求，我整理了修改后的完整代码，直接就能套用，下面给你拆解下关键改动：

核心优化点说明 #

1. 回复邮件主题与原邮件保持一致 #

通过获取原邮件的Subject属性，直接赋值给回复邮件的主题，完美同步原主题，不用手动修改。

2. 回复时自动添加指定主题的邮件对话作为附件 #

我们会先搜索Outlook中指定主题的邮件对话，把它导出为临时.msg文件，添加到回复邮件的附件里，发送完成后自动清理临时文件，避免占用空间。

完整优化代码 #

Sub ReplyWithConversationAttachment()
    Dim objOL As Outlook.Application
    Dim objItem As Outlook.MailItem
    Dim objReply As Outlook.MailItem
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.MAPIFolder
    Dim colItems As Outlook.Items
    Dim strSubject As String
    Dim strTempMsgPath As String
    Dim objConversationItem As Outlook.MailItem
    
    ' 初始化Outlook对象
    Set objOL = New Outlook.Application
    Set objNamespace = objOL.GetNamespace("MAPI")
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox) ' 可根据实际需求修改文件夹
    
    ' 获取当前选中的原邮件
    Set objItem = objOL.ActiveExplorer.Selection.Item(1)
    strSubject = objItem.Subject ' 获取原邮件主题
    
    ' 创建回复邮件，主题与原邮件一致
    Set objReply = objItem.ReplyAll ' 若只需回复发件人，改用objItem.Reply
    objReply.Subject = strSubject ' 同步原主题
    
    ' --- 搜索指定主题的邮件对话（这里可替换为你需要的目标主题）---
    ' 示例：搜索包含原主题的邮件（如需固定主题，直接替换为固定字符串即可）
    Set colItems = objFolder.Items.Restrict("[Subject] = '" & strSubject & "'")
    colItems.Sort "[ReceivedTime]", olDescending ' 按接收时间倒序，取最新的对话
    
    ' 导出邮件对话为临时.msg文件
    strTempMsgPath = Environ("TEMP") & "\TempConversation.msg"
    If colItems.Count > 0 Then
        Set objConversationItem = colItems.Item(1)
        objConversationItem.SaveAs strTempMsgPath, olMSG ' 保存为msg格式
        ' 添加临时文件为附件
        objReply.Attachments.Add strTempMsgPath, olByValue, 1, "邮件对话历史"
    End If
    
    ' 显示回复邮件（如需自动发送，替换为objReply.Send）
    objReply.Display
    
    ' 清理临时文件
    If Dir(strTempMsgPath) <> "" Then
        Kill strTempMsgPath
    End If
    
    ' 释放对象
    Set objReply = Nothing
    Set objItem = Nothing
    Set objOL = Nothing
    Set objNamespace = Nothing
    Set objFolder = Nothing
    Set colItems = Nothing
    Set objConversationItem = Nothing
End Sub

关键细节提示 #

• 指定主题调整：如果不是要同步原主题的对话，而是固定某类主题，直接把strSubject替换成你需要的固定字符串即可，比如strSubject = "项目进度汇报"。
• 文件夹选择：代码默认搜索收件箱，如果你需要搜索其他文件夹（比如已发送邮件），修改objNamespace.GetDefaultFolder(olFolderInbox)为对应的枚举值，比如olFolderSentMail。
• 自动发送选项：如果不需要手动确认，把objReply.Display改成objReply.Send即可实现自动发送。

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