在Outlook中删除主题前缀（“RE”或“FW”）

Author: Sun Last Modified: 2025-05-08

电子邮件中的主题前缀，例如“RE:”和“FW:”，有时会弄乱您的收件箱，并使您难以清晰地阅读主题行。如果您想删除这些前缀，可以使用几种方法。以下是关于如何在Microsoft Outlook中实现这一目标的详细指南。

使用快速步骤删除主题前缀

使用Kutools for Outlook批量删除所选或所有电子邮件的主题前缀

使用VBA删除主题前缀

使用快速步骤删除主题前缀

Outlook中的快速步骤可以自动执行重复任务，例如从主题行中删除前缀。

1. 在“主页”选项卡下，点击“快速步骤”组中的向下箭头。

remove subject prefixe using quick step 1

2. 然后点击新建快速步骤 > 自定义。

remove subject prefixe using quick step 2

3. 然后在“编辑快速步骤”对话框中指定设置。

为新的快速步骤命名。
从“选择操作”下拉菜单中选择答复。
然后点击显示选项以展开选项，然后从主题行中删除“RE”。
点击完成。

现在您可以看到新创建的快速步骤显示在“快速步骤”组的顶部。

remove subject prefixe using quick step 6

当您要回复电子邮件并自动删除“RE”时，点击您创建的快速步骤，将弹出一个没有主题前缀“RE”的撰写邮件窗口。

remove subject prefixe using quick step 7

提示

如果您想在全部回复时删除“RE”，请创建一个新的快速步骤，并从“选择操作”下拉菜单中选择全部答复，然后点击显示选项以展开选项，并从主题行中删除“RE”。
如果您想在转发电子邮件时删除“FW”，请创建一个新的快速步骤，并从“选择操作”下拉菜单中选择转发。点击显示选项以展开选项，并从主题行中删除“FW”。

Outlook中的AI邮件助手：更智能的回复，更清晰的沟通（一键搞定！）免费

使用Kutools for Outlook的AI邮件助手简化您的日常Outlook任务。这一强大工具会从您过去的邮件中学习，提供智能化且精准的回复建议，优化您的邮件内容，并帮助您轻松起草和润色邮件。

该功能支持：

智能回复：根据您以往的对话生成量身定制、精准且即用的回复。
增强内容：自动优化您的邮件文本，使其更加清晰且有影响力。
轻松撰写：只需提供关键字，AI即可完成其余工作，并支持多种写作风格。
智能扩展：通过上下文感知的建议扩展您的思路。
总结概括：快速获取长邮件的简洁概述。
全球覆盖：轻松将您的邮件翻译成任何语言。

该功能支持：

智能邮件回复
优化后的内容
基于关键字的草稿
智能内容扩展
邮件总结
多语言翻译

最重要的是，此功能永久完全免费！不要再犹豫了——立即下载AI邮件助手并体验吧

使用Kutools for Outlook批量删除所选或所有电子邮件的主题前缀

如果您想跨文件夹删除所选或所有电子邮件的主题前缀，可以尝试Kutools for Excel的删除主题前缀功能。

👉 Kutools for Outlook现在有免费版本了，其70多个功能终身免费。立即下载免费版本。

1. 选择要删除主题前缀的电子邮件，然后点击删除组中的Kutools Plus > 主题前缀。

2. 然后在 删除主题前缀对话框中，勾选选中项目选项，然后在删除条件部分中指定要删除的前缀类型。

提示：如果要删除其他类型的主题前缀，请勾选自定义复选框，并在下面的文本框中输入主题前缀。

3. 点击确定。现在已删除所选电子邮件的主题前缀。

如果要在Outlook中的某个文件夹或跨文件夹、账户删除所有电子邮件的主题前缀，在删除主题前缀对话框中，选择文件夹 > 配置以打开选择文件夹对话框，选择一个或多个文件夹，然后点击确定 > 确定，指定文件夹中的所有电子邮件的主题前缀已被删除。

使用VBA删除主题前缀

要删除主题前缀，除了在Outlook中运行VBA代码外，您只能手动处理。

1. 按Alt + F11键启用 Microsoft Visual Basic for Applications窗口。

2. 在弹出的对话框中，双击Project-Project1窗格中的 ThisOutlookSession，并将以下代码复制粘贴到空白脚本中。

VBA：删除主题前缀

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180326
    RemoveREOrFW Item, "RE"
    RemoveREOrFW Item, "FW"
End Sub
Function RemoveREOrFW(Item As Object, Str As String)
Dim xSubject As String
If InStr(Item.Subject, Str) > 0 Then
    xSubject = Replace(Item.Subject, Str & ":", "", vbTextCompare)
    Item.Subject = Trim(xSubject)
    Item.Save
End If
End Function