Skip to main content

如何在Outlook中自動將預設文字新增到主旨行?

Author: Xiaoyang Last Modified: 2025-05-13

有沒有辦法在Outlook中建立新郵件時,自動在主旨中新增預設文字?本文將介紹一些有用的方法,幫助您在Outlook中完成此操作。

使用VBA程式碼自動新增預設文字到主旨行

使用Kutools for Outlook自動新增預設文字到主旨行


使用VBA程式碼自動新增預設文字到主旨行

要自動將預設文字新增到主旨行,請套用以下VBA程式碼。

1. 按住「Alt」+「F11」鍵以開啟「Microsoft Visual Basic for Applications」視窗。

2. 在「Microsoft Visual Basic for Applications」視窗中,於「Project1 (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-」是您希望作為預設值新增到主旨的文字,請將其更改為您自己的文字。

doc auto add text to subject 1

3. 按「Alt」+「Q」關閉「Microsoft Visual Basic for Applications」視窗。

現在,您需要建立一封新郵件來測試結果。

4. 建立一封新郵件,在「收件人」欄位中輸入收件人地址,並在「主旨」欄位中輸入主旨。然後點擊「發送」按鈕,會彈出一個提示框詢問您是否要將預設文字新增到主旨行。

doc auto add text to subject 2

5. 點擊「確定」按鈕,預設文字將自動新增到主旨內容之前。

doc auto add text to subject 3

使用Kutools for Outlook自動新增預設文字到主旨行

這裡有一個簡單的方法可以幫助您自動將預設文字新增到主旨行。使用「Kutools for Outlook」工具,您可以快速完成此任務。

使用 Kutools for Outlook 解鎖極致郵件效率!永久免費獲取 70 項強大功能。立即下載免費版本

1. 啟動Outlook,然後點擊「Kutools」>「選項」。

doc auto add text to subject 4

2. 在「選項」對話框中,點擊「新建」標籤,然後勾選「建立新郵件時將日期新增到主旨」選項,並輸入您希望自動顯示在主旨行中的預設文字。

doc auto add text to subject 5

3. 點擊「確定」按鈕。現在,當您建立新郵件時,指定的預設文字將自動插入到主旨行中,如下所示:

doc auto add text to subject 6