Skip to main content

如何在Outlook中自動填寫郵件標題為附件名稱?

Author: Siluvia Last Modified: 2025-08-06

對於習慣於在Outlook中使用附件名稱作為郵件標題的用戶來說,每次手動在標題欄輸入附件名稱將非常耗時。如下圖所示,如果您希望在插入附件時自動將郵件標題填充為附件名稱,本教程中的VBA方法將對您有所幫助。


使用VBA代碼自動填寫郵件標題為附件名稱

請運行以下VBA代碼,以在Outlook中自動將郵件標題填充為插入的附件名稱。

1. 啟動您的Outlook,按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中,雙擊 Project1 (VbProject.OTM) > Microsoft Outlook Objects > ThisOutlookSession 以打開 ThisOutlookSession (Code) 編輯器。

3. 然後將以下VBA代碼複製到 ThisOutlookSession (Code) 編輯器中。

VBA代碼:自動填寫郵件標題為附件名稱

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

doc-autofill-subject-line-with-attachment-name-2

4. 現在,您需要保存代碼並重新啟動Outlook。

5. 從現在開始,當您插入附件到尚未填寫標題的郵件中時,會彈出一個 Kutools for Outlook 對話框詢問您是否要使用附件名稱作為標題,點擊 按鈕。

doc-autofill-subject-line-with-attachment-name-3

然後,標題欄將自動填充為插入的附件名稱。

doc-autofill-subject-line-with-attachment-name-4

注意

1) 如果您已經填寫了標題,插入附件時不會彈出對話框。
2) 如果您從當前郵件中刪除了現有的標題,但光標仍然顯示在標題欄中,插入附件也不會彈出對話框。刪除標題後,您需要點擊標題欄以外的地方以刷新消息框,使代碼生效。
3) 如果您同時插入多個附件,則只有第一個附件的名稱可以用作郵件的標題。

Outlook中的AI郵件助理:更聰明的回覆,更清晰的溝通(一鍵奇蹟!) 免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習,提供智能且準確的答覆,優化您的郵件內容,並幫助您輕鬆起草和潤色郵件。
doc ai email handle

此功能支援:

  • 智能回覆:根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
  • 增強內容:自動優化您的郵件文字以提高清晰度和影響力。
  • 輕鬆撰寫:只需提供關鍵字,讓AI處理其餘部分,並有多種寫作風格可供選擇。
  • 智能擴展:通過上下文感知建議來拓展您的思路。
  • 摘要生成:即時獲取長郵件的簡潔概述。
  • 全球觸及:輕鬆將您的郵件翻譯成任何語言。

此功能支援:

  • 智能郵件回覆
  • 優化的內容
  • 基於關鍵字的草稿
  • 智能內容擴展
  • 郵件摘要生成
  • 多語言翻譯

最重要的是,此功能永遠完全免費不要再等待了——立即下載AI郵件助理並享受吧


最佳 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