如何在 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 - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件！ ……
📧 電子郵件自動化: 外出（適用於 POP 和 IMAP） / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送（進階規則） / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索！ 按此處了解更多。
