Hoe batchgewijs meerdere concept-e-mails verzenden met Outlook VBA

Outlook-oplossingen 29 september 2025

Om sommige redenen kunt u veel concept-e-mails in uw Outlook opslaan. In dit artikel leert u hoe u ze allemaal of alleen geselecteerde batches kunt verzenden met één klik, die is gemaakt met Outlook VBA.

Soms hoopt u de e-mails nu misschien niet te verzenden. Daarom slaat u ze op in de map Concepten en bent u van plan ze later te verzenden. Zoals gewoonlijk moet u de concepten afzonderlijk openen en één voor één op de knop "Verzenden" klikken. Als er veel concepten moeten worden verzonden, zal dit behoorlijk tijdrovend zijn. Daarom hopen veel gebruikers dat Outlook hen toestaat alle concepten te verzenden door op één knop te klikken. Standaard is er echter niet zo'n knop. Maar u kunt Outlook VBA toepassen om het te maken. Hier zijn de uitgebreide stappen en VBA-codes.

Batch alle concept-e-mails verzenden

  1. Start eerst de Outlook-applicatie en druk op de sneltoetsen "Alt + F11".
  2. Vervolgens opent u het VBA-editorvenster, waarin u een nieuwe module moet openen.
  3. Kopieer en plak vervolgens de volgende VBA-codes erin.
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

VBA-codes - Stuur alle concept-e-mails

  1. Daarna kunt u de VBA-editor verlaten en doorgaan met het toevoegen van het VBA-project aan de werkbalk Snelle toegang of het lint. Hier nemen we de werkbalk Snelle toegang als voorbeeld.
  • Ga eerst naar "Bestand"> "Opties"> tabblad "Werkbalk Snelle toegang".
  • Volg daarna de stappen in de onderstaande afbeelding om de nieuwe macro toe te voegen aan de werkbalk Snelle toegang.Voeg de SendAllDraftEmails-macro toe aan de werkbalk Snelle toegang
  1. Eindelijk kunt u teruggaan naar het hoofdvenster van Outlook. U ziet de nieuwe knop in de werkbalk Snelle toegang.
  • Als er geen item in de map Concepten staat en u op de knop klikt, ontvangt u een bericht zoals de volgende schermafbeelding.Geen concepten
  • Maar als er items in de map Concepten staan, ontvangt u een prompt, zoals de afbeelding hieronder. Zodra u "Ja" selecteert, begint Outlook met het verzenden van alle concepten.Bevestig het verzenden van alle concepten

Batch Verzend geselecteerde concept-e-mails

Als u alleen de geselecteerde concepten wilt verzenden, zijn de bovenstaande codes niet geschikt. U kunt in plaats daarvan de volgende codes gebruiken.

  1. Kopieer ze eerst naar een nieuwe module.
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

VBA-codes - Stuur geselecteerde concept-e-mails

  1. Voeg vervolgens de nieuwe macro zoals gewoonlijk toe aan de werkbalk Snelle toegang.
  2. Vervolgens kunt u de gewenste concept-e-mails selecteren en op de knop klikken. U krijgt dan een melding te zien zoals in de afbeelding:Bevestig het verzenden van geselecteerde concepten
  3. Ten slotte, zolang u op "Ja" klikt, worden de geselecteerde concept-e-mails verzonden.

Gooi vervelende Outlook-problemen weg

Misschien bent u meerdere vervelende Outlook-problemen tegengekomen. Hoe kom je er vanaf? Zoals gewoonlijk kunt u de ingebouwde reparatietool, Scanpst.exe, proberen. Het is in staat om de kleine problemen met Outlook PST-bestanden op te lossen. Maar als u helaas te maken krijgt met ernstige problemen, zoals PST-e-mailschade, zal de inbox-tool geen effecten hebben. Op dat moment heb je geen andere keuze dan een meer vooraanstaande tool te gebruiken, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf fout reparatie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.