Direkt zum Inhalt

Wie kann ich in Outlook mehrere Entwürfe gleichzeitig senden?

Autor: Xiaoyang Letzte Änderung: 2024-09-03

Wenn sich in Ihrem Entwurfsordner mehrere Entwurfsnachrichten befinden und Sie diese jetzt gleichzeitig senden möchten, ohne sie einzeln zu senden. Wie können Sie diesen Job in Outlook schnell und einfach erledigen?

Senden Sie alle Entwurfsnachrichten gleichzeitig in Outlook mit VBA-Code


Senden Sie alle Entwurfsnachrichten gleichzeitig in Outlook mit VBA-Code

Die folgenden VBA-Codes können Ihnen helfen, alle oder ausgewählte Entwurfs-E-Mails gleichzeitig aus dem Ordner "Entwürfe" zu senden. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Senden Sie alle E-Mail-Entwürfe gleichzeitig in Outlook:

Sub SendAllDraftEmails()
Dim xAccount As Account
Dim xDraftFld As Folder
Dim xItemCount As Integer
Dim xCount As Integer
Dim xDraftsItems As Outlook.Items
Dim xPromptStr As String
Dim xYesOrNo As Integer
Dim i As Long
Dim xCurFld As Folder
Dim xTmpFld As Folder
On Error Resume Next
xItemCount = 0
xCount = 0
Set xTmpFld = Nothing
Set xCurFld = Application.ActiveExplorer.CurrentFolder
For Each xAccount In Outlook.Application.Session.Accounts
    Set xDraftFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
    xItemCount = xItemCount + xDraftFld.Items.Count
    If xDraftFld.EntryID = xCurFld.EntryID Then
        Set xTmpFld = xCurFld.Parent
    End If
Next xAccount
Set xDraftFld = Nothing
If xItemCount > 0 Then
   xPromptStr = "Are you sure to send out all the drafts?"
    xYesOrNo = MsgBox(xPromptStr, vbQuestion + vbYesNo, "Kutools for Outlook")
    If xYesOrNo = vbYes Then
        If Not xTmpFld Is Nothing Then
            Set Application.ActiveExplorer.CurrentFolder = xTmpFld
        End If
        VBA.DoEvents
        For Each xAccount In Outlook.Application.Session.Accounts
            Set xDraftFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
            Set xDraftsItems = xDraftFld.Items
            For i = xDraftsItems.Count To 1 Step -1
                If xDraftsItems.Item(i).Recipients.Count <> 0 Then
                    xDraftsItems.Item(i).sEnd
                    xCount = xCount + 1
                End If
            Next
        Next xAccount
        VBA.DoEvents
        Set Application.ActiveExplorer.CurrentFolder = xCurFld
        MsgBox "Successfully sent " & xCount & " messages", vbInformation, "Kutools for Outlook"
    End If
Else
    MsgBox "No Drafts!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub
Schritte zum gleichzeitigen Senden aller Nachrichtenentwürfe in Outlook mit VBA-Code

3. Speichern Sie dann den Code und drücken Sie F5 Wenn Sie den Schlüssel zum Ausführen dieses Codes eingeben, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, ob Sie alle Entwürfe gesendet haben. Klicken Sie auf Ja, siehe Screenshot:

Schritte zum gleichzeitigen Senden aller Nachrichtenentwürfe in Outlook mit VBA-Code

4. Ein Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, wie viele E-Mail-Entwürfe gesendet wurden (siehe Abbildung):

Schritte zum gleichzeitigen Senden aller Nachrichtenentwürfe in Outlook mit VBA-Code

5. Und dann klick OK Schaltfläche, alle E-Mails in der Dame Ordner wird sofort gesendet, siehe Screenshot:

Schritte zum gleichzeitigen Senden aller Nachrichtenentwürfe in Outlook mit VBA-Code

Anmerkungen:

1. Mit dem obigen Code werden alle E-Mail-Entwürfe von allen Konten in Ihrem Outlook gesendet.

2. Wenn Sie nur bestimmte E-Mails aus dem Ordner "Entwürfe" senden möchten, wenden Sie den folgenden VBA-Code an:

VBA-Code: Senden Sie ausgewählte E-Mails aus dem Ordner "Entwürfe":

Sub SendSelectedDraftEmails()
Dim xSelection As Selection
Dim xPromptStr As String
Dim xYesOrNo As Integer
Dim i As Long
Dim xAccount As Account
Dim xCurFld As Folder
Dim xDraftsFld As Folder
Dim xTmpFld As Folder
Dim xArr() As String
Dim xCount As Integer
Dim xMail As MailItem
On Error Resume Next
xCount = 0
Set xTmpFld = Nothing
Set xCurFld = Application.ActiveExplorer.CurrentFolder
For Each xAccount In Outlook.Application.Session.Accounts
    Set xDraftsFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
    If xDraftsFld.EntryID = xCurFld.EntryID Then
        Set xTmpFld = xCurFld.Parent
    End If
Next xAccount
If xTmpFld Is Nothing Then
    MsgBox "The current folder is not a draft folder", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection.Count > 0 Then
    xPromptStr = "Are you sure to send out the selected " & xSelection.Count & " draft item(s)?"
    xYesOrNo = MsgBox(xPromptStr, vbQuestion + vbYesNo, "Kutools for Outlook")
    If xYesOrNo = vbYes Then
        ReDim xArr(xSelection.Count - 1)
        For i = 1 To xSelection.Count
            xArr(i - 1) = xSelection.Item(i).EntryID
        Next
        Set Application.ActiveExplorer.CurrentFolder = xTmpFld
        VBA.DoEvents
        For i = 0 To UBound(xArr)
            Set xMail = Application.Session.GetItemFromID(xArr(i))
            If xMail.Recipients.Count <> 0 Then
                xMail.sEnd
                xCount = xCount + 1
            End If
        Next
        VBA.DoEvents
        Set Application.ActiveExplorer.CurrentFolder = xCurFld
        MsgBox "Successfully sent " & xCount & " messages", vbInformation, "Kutools for Outlook"
    End If
Else
    MsgBox "No items selected!", vbInformation, "Kutools for Outlook"
End If
End Sub

KI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (Magie mit einem Klick!) KOSTENLOS

Optimieren Sie Ihre täglichen Outlook-Aufgaben mit dem AI Mail Assistant von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten zu bieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen dabei zu helfen, mühelos Nachrichten zu verfassen und zu verfeinern.
doc ai E-Mail-Handle

Diese Funktion unterstützt:

  • Intelligente Antworten: Erhalten Sie Antworten auf Grundlage Ihrer vergangenen Gespräche – maßgeschneidert, präzise und sofort einsatzbereit.
  • Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für mehr Klarheit und Wirkung.
  • Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und überlassen Sie der KI den Rest, mit mehreren Schreibstilen.
  • Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
  • Zusammenfassung: Erhalten Sie sofort prägnante Übersichten über lange E-Mails.
  • Globale Reichweite: Übersetzen Sie Ihre E-Mails problemlos in jede Sprache.

Diese Funktion unterstützt:

  • Intelligente E-Mail-Antworten
  • Optimierter Inhalt
  • Stichwortbasierte Entwürfe
  • Intelligente Inhaltserweiterung
  • E-Mail-Zusammenfassung
  • Mehrsprachige Übersetzung

Das Beste daran ist, dass diese Funktion völlig kostenlos für immer! Warte nicht –Laden Sie AI Mail Assistant jetzt herunter und genießen Sie!


Weitere Artikel:

Wie sende ich eine E-Mail in Outlook einzeln an mehrere Empfänger?

Wie sende ich personalisierte Massen-E-Mails aus Excel über Outlook an eine Liste?

Wie sende ich einen Kalender in Outlook einzeln an mehrere Empfänger?

Wie sende ich E-Mails an mehrere Empfänger, ohne dass diese dies in Outlook wissen?


Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie die brandneue KOSTENLOSE Version von Kutools für Outlook mit über 70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie hier, um jetzt herunterzuladen!

🤖 Kutools KI : Verwendet fortschrittliche KI-Technologie zur mühelosen Bearbeitung von E-Mails, einschließlich Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail Automation: Automatische Antwort (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Advanced Search  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Erinnern Sie sich an wichtige E-Mails  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

Schalten Sie Kutools für Outlook sofort mit nur einem Klick frei. Warten Sie nicht länger, laden Sie es jetzt herunter und steigern Sie Ihre Effizienz!

Kutools für Outlook-Funktionen1 Kutools für Outlook-Funktionen2