如何用Outlook VBA批量发送多封草稿邮件

由于某些原因，您可能会在 Outlook 中保存许多电子邮件草稿。 本文将教您如何通过 Outlook VBA 创建的一键批量发送所有或只发送选定的部分。

有时，您可能不希望立即发送电子邮件。 因此，您会将它们保存在草稿邮件文件夹中，并打算稍后发送。 和往常一样，当你想发送草稿时，你必须单独打开它们，然后一张一张地点击“发送”按钮。 如果有大量的草稿要发送，那将是相当耗时的。 因此，许多用户希望Outlook能够让他们一键发送所有草稿。 但是，默认情况下，没有这样的按钮。 但是您可以应用 Outlook VBA 来创建它。 下面是详细的步骤和VBA代码。

批量发送所有草稿电子邮件

1. 首先，启动 Outlook 应用程序并按“Alt + F11”快捷键。
2. 然后您将打开 VBA 编辑器窗口，您应该在其中打开一个新模块。
3. 随后，将以下 VBA 代码复制并粘贴到其中。

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

4. 之后，您可以退出 VBA 编辑器并继续将 VBA 项目添加到快速访问工具栏或功能区。 这里我们以快速访问工具栏为例。

• 首先，转到“文件”>“选项”>“快速访问工具栏”选项卡。
• 然后按照下图所示的步骤将新宏添加到快速访问工具栏。

5. 最后，您可以返回 Outlook 主窗口。 您将在快速访问工具栏中看到新按钮。

• 如果 Drafts 文件夹中没有项目，当您单击该按钮时，您将收到如下屏幕截图所示的消息。
• 但如果 Drafts 文件夹中有项目，您将收到提示，如下图所示。 只要您选择“是”，Outlook 就会开始发送所有草稿。

批量发送选定的草稿电子邮件

如果您希望只发送选定的草稿，则上述代码不适用。 您可以改用以下代码。

1. 首先，将它们复制到一个新模块中。

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

2. 然后像往常一样将新宏添加到快速访问工具栏。
3. 随后，您可以选择 tar获取草稿电子邮件并点击按钮，您将收到如下图所示的提示：
4. 最后，只要点击“是”，选中的邮件草稿就会被发送出去。

处理烦人的 Outlook 问题

也许您遇到过多个令人烦恼的 Outlook 问题。 你怎么能摆脱他们？ 像往常一样，您可以尝试其内置的修复工具 Scanpst.exe。 它能够修复小的 Outlook PST 文件问题。 但是如果你不幸遇到严重的麻烦，比如 PST 电子邮件损坏，收件箱工具不会产生效果。 到那时，您别无选择，只能使用更卓越的工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 mdf错误修复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com