Skip to main content

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

Author: Xiaoyang Last Modified: 2025-08-06

有沒有辦法在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

最佳 Office 生產力工具

最新消息:Kutools for Outlook 推出免費版本!

體驗全新 Kutools for Outlook,擁有100+ 強大功能!立即下載!

🤖 Kutools AI 運用先進 AI 技術,輕鬆處理郵件,包括答覆、摘要、優化、擴寫、翻譯與撰寫郵件。

📧 郵件自動化自動回覆(支援 POP 和 IMAP) / 計劃發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發(高級規則) / 自動新增問候語 / 自動將多收件人郵件分割為個別郵件 ...

📨 郵件管理撤回郵件 /依主題等條件阻擋詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...

📁 附件專業版批次保存 / 批次拆離 / 批次壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...

🌟 介面魔法😊更多精美酷炫表情符號 /重要郵件來臨提醒 / 最小化 Outlook 而非關閉 ...

👍 一鍵神技帶附件全部答復 /反釣魚郵件 / 🕘顯示發件人時區 ...

👩🏼‍🤝‍👩🏻 聯絡人與日曆批次從選中郵件新增聯絡人 / 將聯絡人組分割為多個組 / 移除生日提醒 ...

以您偏好的語言使用 Kutools —— 支援英語、西班牙語、德語、法語、中文及40 多種其他語言!

只需一鍵即可立即啟用 Kutools for Outlook。立即下載,提升您的效率!

kutools for outlook features1 kutools for outlook features2