如何在Outlook中批量發送所有打開和撰寫的電子郵件

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

在Outlook中編寫完一些電子郵件後，您可能希望一次性發送出去。 現在，在本文中，我們將教您如何在VBA代碼的幫助下獲取它。

例如，您已經完成了一些新電子郵件，但沒有發送它們，只是保持打開狀態。 然後，您想將它們發送出去。 通常，您必須單擊每封電子郵件中的“發送”按鈕。 在這種情況下，您必須渴望一種可以支持您批量發送所有打開的和組合的電子郵件的方法。

在Outlook中批量發送所有打開的和已撰寫的電子郵件

在下文中，我們將向您介紹這種有效的方法。 它正在使用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

VBA代碼-批量發送所有打開和組合的電子郵件

  1. 之後，直接按“ F5”鍵觸發該宏。
  2. 最後，當宏完成時，將提示您要發送的電子郵件數量。關於要發送的打開電子郵件數量的提示
  3. 現在，打開發件箱，您可以在其中查看所有先前打開的電子郵件正在發送。電子郵件正在發送

從意外損壞中恢復Outlook

您以前是否遇到過Outlook損壞？ 許多用戶受到此問題的困擾，並對此有所抱怨。 通常，如果您制定了及時有效的解決方案，則可以輕鬆地從中檢索Outlook數據。 損壞的PST 文件。 例如，如果您具有更新的Outlook數據，則可以輕鬆地還原到備份。 當然，您可以藉助出色而可靠的維修工具，例如 DataNumen Outlook Repair，它可以掃描損壞的Outlook文件並恢復最大數據。

作者簡介：

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

立即分享：

評論被關閉。