Skip to main content

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

Author: Siluvia Last Modified: 2025-05-12

對於習慣於在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郵件助理並享受吧