在Outlook中發送特定電子郵件時如何自動附加特定文件

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

在Outlook中發送特定電子郵件時，是否經常需要附加特定文件？ 如果是這樣，您可能會覺得每次手動添加它們都很繁瑣。 本文將教您一種使用Outlook VBA實現此目標的快速方法。

在日常工作中，經常要求我在發送特定電子郵件時附加特定文件。 例如，每週我必須向上司發送電子郵件，以報告我的每週工作。 在這封電子郵件中，我將需要附加一些特定文件，包括工作日誌，一些數據統計報告等。 我通常每週都會更新這些文件。 過去，我通常首先編寫郵件正文，然後手動添加這些文件。 但是，目前，我發現了一個更聰明的把戲。 那就是使用Outlook VBA自動化它。 如果您有類似的要求，請繼續閱讀以了解具體的VBA代碼和詳細的操作。

發送特定電子郵件時自動附加特定文件

  1. 首先，啟動 Outlook 並切換到「開發人員」標籤。
  2. 然後，您可以找到並單擊“ Visual Basic”按鈕，這將立即帶出VBA編輯器窗口。
  3. 在隨後的窗口中，您應該雙擊左側項目列表中的“ ThisOutlookSession”項目。
  4. 接下來，您應該將以下VBA代碼複製並粘貼到其中。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strPrompt As String
    Dim nRes As Integer
 
    'Check the email subject and recipient
    If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
       strPrompt = "Do you want to attach the worklog related files?"
       nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
       If nRes = vbYes Then
          'Attach the specific files
          With Item
               .Attachments.Add ("C:\Attachments\WorkLog.docx")
               .Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
               .Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
          End With
       End If
    End If
End Sub

VBA代碼-發送特定電子郵件時自動附加特定文件

  1. 之後，您將需要為新項目分配數字證書。
  • 首先單擊工具欄中的“工具”按鈕，然後選擇“數字簽名”。
  • 然後在彈出的“數字簽名”對話框中，單擊“選擇”按鈕，
  • 隨後，您可以選擇一個現有證書。
  • 最後，單擊一系列“確定”以成功分配它。電子簽名
  1. 稍後，您必須修改宏設置以僅允許數字簽名的宏。
  2. 最終您可以嘗試一下。
  • 當您單擊“發送”以發送包含主題中特定單詞或發送給特定聯繫人的特定郵件時，您將看到一個消息框，如下圖所示。消息框
  • 之後，您可以檢查發送的電子郵件。 您一定會在發送的郵件中找到預設文件。檢查已發送的電子郵件

從不推遲解決Outlook錯誤

有時，即使您在Outlook中遇到錯誤消息，在關閉該消息後，仍然可以繼續工作。 但這實際上不是明智之舉。 您應該做的是盡快消除它們，而不是將它們放在一邊。 累積的問題將導致嚴重的崩潰。 如果Outlook崩潰，則Outlook PST數據將受到威脅。 你應該知道 損壞的Outlook PST數據 相當不安。 那時，您別無選擇，只能使用經驗豐富且信譽良好的維修工具，例如 DataNumen Outlook Repair.

作者簡介：

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

立即分享：

評論被關閉。