在 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

立即分享：

评论被关闭。