如何在 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. 點擊「確定」按鈕。日後當您建立新郵件時，指定的預設文字將自動插入至主旨欄位，如下圖所示：