如何在回复或转发邮件时自动删除主题中的前缀“RE”或“FW”

展望解决方案 2025 年 9 月 29 日

当您尝试通过点击“回复”、“全部回复”或“转发”按钮回复或转发电子邮件时，必须在电子邮件主题前面添加“RE”或“FW”前缀。本文将告诉您如何让 Outlook 使用 VBA 自动删除它们。

在我们之前的文章中——“2 种转发主题中没有“FW”前缀的 Outlook 电子邮件的方法”，您可以获得两种解决方法来转发不带“FW”的电子邮件。他们正在重新发送电子邮件并分别创建“转发”快速步骤。很明显，如果您使用“Respond”组中的普通“Forward”按钮，它们都不允许您自动删除“FW”。

因此，默认情况下，如果您希望在单击“回复”、“回复全部”或“转发”按钮时删除主题中的“RE”或“FW”前缀，则每次都必须手动删除它们。会很麻烦的。幸运的是，您可以使用 Outlook VBA 自动删除邮件主题中的特定单词。继续阅读以实现详细的代码和步骤。

转发或回复邮件时自动删除前缀“FW”或“RE”

对于作为tart，启动 Outlook 并前往“开发人员”选项卡。
然后你可以找到并点击“Visual Basic”按钮。
接下来在新窗口中，您应该双击“ThisOutlookSession”项目。
随后，您需要将以下 VBA 代码复制并粘贴到其中。

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strSubject As String
 
    If InStr(Item.Subject, "RE") > 0 Then
       'If you don't want the prompt,
       'You can remove the MsgBox line and its correspoding "Else … End If" lines.
       If MsgBox("Do you want to remove the prefix 'RE'?", vbYesNo) = vbYes Then
          strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
       Else
          strSubject = Item.Subject
       End If
    End If
 
    If InStr(Item.Subject, "FW") > 0 Then
       If MsgBox("Do you want to remove the prefix 'FW'?", vbYesNo) = vbYes Then
          strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
       Else
          strSubject = Item.Subject
       End If
    End If
 
    Item.Subject = Trim(strSubject)
    Item.Save
End Sub

之后，您应该为这个宏签署一个数字证书。
稍后您可以退出“Visual Basic”窗口并配置 Outlook 以仅启用数字签名的宏。
最后你可以试试看。

首先，选择一封电子邮件，然后点击“回复”、“全部回复”或“转发”按钮
然后将打开回复或转发消息。您可以像往常一样撰写邮件。
当点击“发送”按钮时，您将收到一个消息框，如下图所示：
如果选择“是”，前缀“RE”或“FW”将被自动删除。如果选择“否”，则不会删除前缀。

处理 Outlook 电子邮件时不该做什么

Outlook 易受攻击，因此您在处理 Outlook 邮件时应保持谨慎。例如，如果你收到来历不明的邮件，最好不要打开，更不要点击嵌入的链接或下载附件。此类电子邮件可能包含恶意宏、病毒或恶意软件，可瞬间破坏您的 Outlook 数据。意味着你会受苦 Outlook文件损坏. 那时，您唯一的选择就是使用功能强大且信誉良好的修复工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括修复损坏的 mdf 数据库和 outlook 修复软件产品。欲了解更多信息，请访问 datanumen.com