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

Outlook解決方案 2025 年 9 月 29 日
立即分享：

您是否經常使用附件名稱作為 Outlook 中的電子郵件主題？ 如果是這樣，您一定希望 Outlook 可以自動完成它。 本文將介紹一種使用 Outlook VBA 實現的便捷方法。

許多用戶習慣在電子郵件主旨行中手動輸入附件名稱。如果 Outlook 可以自動完成此操作，將會方便得多。此外，有些用戶經常忘記填寫主題行，因此在點擊「傳送」按鈕時，他們會收到「無主題」的警告訊息。在這種情況下，如果 Outlook 可以自動將附件名稱填入主旨行中，他們就可以避免煩人的「無主題」警告。簡而言之，相信許多 Outlook 使用者都渴望 Outlook 能夠自動將附件名稱填入郵件主旨中。幸運的是，借助 Outlook VBA，我們可以輕鬆實現這一點。以下是詳細的 VBA 程式碼和步驟。

使用附件名稱自動填充電子郵件主題行

  1. 首先，您可以啟動 Outlook 並切換到「開發人員」標籤。
  2. 然後在此選項卡下，您應該單擊“Visual Basic”按鈕，這將顯示 VBA 編輯器。
  3. 在隨後的窗口中，您應該首先在右側的項目列表中找到“ThisOutlookSession”項目。
  4. 接下來雙擊打開這個項目。 然後把下面的代碼複製進去。
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

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

  1. 之後，您需要繼續正常為當前 VBA 項目分配數字證書。
  • 首先，利用內置實用程序“VBA 項目的數字證書”生成數字證書。
  • 隨後，您可以對當前宏進行簽名。對當前宏進行數字簽名
  1. 稍後退出 VBA 編輯器並將宏設置更改為“數字簽名宏的通知，所有其他宏已禁用”。
  2. 最後，您可以嘗試一下。
  • 創建新電子郵件。
  • 如果您尚未填寫主題並打算附加文件，您將收到一條消息，如下圖所示：Outlook 消息框
  • 當您選擇“是”時，主題將立即填充附件名稱。用附件名稱填寫電子郵件主題

應對常見的Outlook問題

假設您已經使用 Outlook 幾十年了，您一定遇到過很多 Outlook 問題。 那麼，當你遇到他們時，你通常會採取什麼行動呢？ 建議盡快找出並根除它們。 這是因為累積的問題可能隨時損壞您的 Outlook 數據。 因此，即使 Outlook 可以正常工作，您最好應用收件箱修復工具或外部 Outlook PST 錯誤修復實用程序一樣， DataNumen Outlook Repair, 掃描您的 PST 文件以檢測和解決錯誤。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 修理損壞 SQL Server 數據庫 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。