如何批量发送 Outlook 中所有打开和撰写的电子邮件

在 Outlook 中完成一些电子邮件的撰写后，您可能希望将它们一次性发送出去。 现在，在本文中，我们将教您如何借助 VBA 代码获取它。

例如，您已经完成了一些新电子邮件但没有发送，只是让它们保持打开状态。 之后，您想将它们发送出去。 通常，您必须在每封电子邮件中逐一单击“发送”按钮。 在这种情况下，您一定渴望有一种方法可以支持您批量发送所有打开和撰写的电子邮件。

下面，我们就为大家揭晓这样一个行之有效的方法。 它正在使用 VBA。 如果你不会如何使用 VBA，你可以参考这篇文章——”如何在 Outlook 中运行 VBA 代码“ 同时。

批量发送所有打开和撰写的电子邮件

1. 首先，您可以像往常一样撰写电子邮件并保持打开状态。
2. 然后，按“Alt + F11”访问 VBA 编辑器。
3. 接下来，在新窗口中，将以下 VBA 代码复制到模块中。

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. 之后，直接按“F5”键按钮触发此宏。
5. 最后，当宏完成时，您将收到要发送的电子邮件数量的提示。
6. 现在，打开发件箱，您可以在其中看到所有以前打开的电子邮件都已发送。

从意外损坏中恢复 Outlook

您以前遇到过 Outlook 损坏吗？ 许多用户都遇到了这个问题，并对此进行了投诉。 一般来说，如果您及时有效地解决问题，您可以轻松地从中检索 Outlook 数据 损坏的 PST 文件。 例如，如果您有更新的 Outlook 数据，您可以轻松恢复到备份。 当然，你可以借助一个优秀可靠的修复工具，比如 DataNumen Outlook Repair，它可以扫描损坏的 Outlook 文件并恢复最大数据。

作者简介：

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