Note: The other languages of the website are Google-translated. Back to English

如何在 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 將彈出對話框詢問您是否要使用附件名稱作為主題,單擊 按鈕。

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

筆記:

1)如果您已經填寫了主題,插入附件不會彈出對話框。
2) 如果您從當前電子郵件中刪除了現有主題,但光標仍顯示在主題行中,插入附件也不會彈出對話框。 刪除主題後,您需要單擊離開主題行以刷新消息框以使代碼正常工作。
3) 如果同時插入多個附件,則只能以第一個附件的名稱作為郵件主題。

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

  • 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
  • BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
按評論排序
留言 (2)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
Добрый день。 Подсказите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделение И? Может в данном коде дописать или вообще другой существует? Заранее спасибо
網站主持人對此評論進行了最小化
嗨 Александр,

您的意思是添加多個附件,同時將這些附件名稱同時添加到主題,然後將它們與 AND 鏈接?
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護