如何在 Outlook 中自动为主题行添加默认文本？

在 Outlook 中新建邮件时，如何自动在主题栏中添加默认文本？本文将为您介绍几种实用方法，助您轻松实现这一需求。

使用 VBA 代码自动在主题行添加默认文本

使用 Kutools for Outlook 自动在主题行添加默认文本

---

使用 VBA 代码自动在主题行添加默认文本

如需在主题行自动添加默认文本，请使用以下 VBA 代码。

1. 按住 "Alt“ + “F11" 键，即可打开 “Microsoft Visual Basic for Applications“ 窗口。

2. 在 "Microsoft Visual Basic for Applications" 窗口中，双击 "Project 1 （VbaProject.OTM）“ 下的 “ThisOutlookSession“，以打开模块，然后将以下代码复制并粘贴到空白模块中。

VBA 代码：自动在主题行添加默认文本

Public xFlag As Boolean
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xText As String
On Error Resume Next
If xFlag = False Then
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
L1:     xText = InputBox("Input Subject", "Kutools for Outlook", xText)
        If xText = "" Then
            xFlag = False
            Cancel = True
            Exit Sub
        End If
        Item.Subject = xText & " " & Item.Subject
        xFlag = True
        Cancel = True
    End If
Else
    xFlag = False
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
      GoTo L1
    End If
End If
End Sub

注意：本代码中的文本 "Skyyang——“ 是默认添加到主题行的内容，您可根据需要将其修改为自定义文本。

3. 按下 "Alt“ + "Q“ 键，即可关闭 “Microsoft Visual Basic for Applications“ 窗口。

现在请新建一封邮件，以测试效果。

4. 新建邮件，在“收件人”栏填写收件人地址，并在“主题”行输入主题。点击“发送”按钮后，将弹出提示框，询问是否需要在主题行中添加默认文本。

5. 点击“确定”按钮后，默认文本将会自动添加到主题内容之前。

---

使用 Kutools for Outlook 自动在主题行添加默认文本

这里还有一种简单的方法，可以帮助您自动在主题行中添加默认文本。利用 “Kutools for Outlook“ 工具，您可以轻松快速地实现这一操作。

1. 启动 Outlook，点击 “Kutools“ > "选项“。

2. 在“选项”对话框中，点击“新建”选项卡，勾选“新建邮件时在主题中添加日期”，并输入您希望在主题行中自动显示的默认文本。

3. 点击“确定”按钮。此后，每当您新建邮件时，指定的默认文本将会自动插入到主题行中，如下图所示：