如何在 Outlook 中使用附件名稱自動填寫電子郵件主題？

對於習慣在 Outlook 中使用附件名稱作為電子郵件主題的人來說，每次在主題行中手動輸入附件名稱會非常耗時。 如下圖所示，如果您想在插入附件時自動用附件名稱填充電子郵件主題行，本教程中的 VBA 方法將有所幫助。

使用 VBA 代碼使用附件名稱自動填充電子郵件主題

請運行以下 VBA 代碼以在 Outlook 中使用插入的附件名稱自動填充電子郵件主題。

1.啟動Outlook，按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口，雙擊 項目 1 (VbProject.OTM) > Microsoft Outlook對象 > 本次展望會議 打開 ThisOutlookSession（代碼） 編輯器。

3.然後將下面的VBA代碼複製到 ThisOutlookSession（代碼） 編輯器。

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

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

5. 從現在開始，當您在尚未填寫主題的電子郵件中插入附件時， Kutools for Outlook 將彈出對話框詢問您是否要使用附件名稱作為主題，單擊 是 按鈕。

然後主題行將自動填充插入附件的名稱。

筆記:

---

Kutools for Outlook-為Outlook帶來100個高級功能，並使工作更加輕鬆！

• 自動CC / BCC 根據規則發送電子郵件； 自動前進 自定義多封電子郵件； 自動回复 沒有交換服務器，還有更多自動功能...
• BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒，還有更多提醒功能...
• 在郵件對話中回复（全部）帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
• 附件工具：管理所有郵件中的所有附件， 自動分離, 全部壓縮，重命名全部，保存全部...快速報告， 計算選定的郵件...
• 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明，更快和更好。

閱讀更多... 現在下載...