Sådan batches send flere kladde-e-mails med Outlook VBA

Outlook-løsninger September 29, 2025

Af nogle grunde kan du gemme mange kladde-e-mails i din Outlook. Denne artikel lærer dig, hvordan du batchvis sender dem alle eller bare udvalgte med et enkelt klik, der er oprettet med Outlook VBA.

Nogle gange håber du muligvis ikke at sende e-mails ud lige nu. Derfor gemmer du dem i mappen Kladder og har til hensigt at sende dem senere. Som normalt, når du vil sende kladderne, skal du åbne dem individuelt og trykke på "Send" -knappen en efter en. Hvis der skal sendes en stor mængde kladder, vil det være ret tidskrævende. Derfor håber mange brugere, at Outlook kan tillade dem at sende alle kladder ud bare ved at klikke på en knap. Der er dog som standard ikke en sådan knap. Men du kan anvende Outlook VBA for at oprette det. Her er de detaljerede trin og VBA-koder.

Batch Send alle kladde-e-mails

  1. Start først Outlook-applikationen, og tryk på "Alt + F11" genveje.
  2. Derefter åbner du VBA-editorvinduet, hvor du skal åbne et nyt modul.
  3. Kopier og indsæt derefter følgende VBA-koder i den.
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-koder - Send alle kladde-e-mails

  1. Derefter kan du afslutte VBA-editoren og fortsætte med at tilføje VBA-projektet til værktøjslinjen eller adgangsbåndet til hurtig adgang. Her tager vi Quick Access Toolbar som et eksempel.
  • Gå først til "File"> "Options"> "Quick Access Toolbar" fanen.
  • Følg derefter trinene vist på billedet nedenfor for at tilføje den nye makro til værktøjslinjen Hurtig adgang.Føj SendAllDraftEmails Makro til værktøjslinjen Hurtig adgang
  1. Endelig kan du vende tilbage til Outlook-hovedvinduet. Du vil se den nye knap i værktøjslinjen Hurtig adgang.
  • Hvis der ikke er noget i mappen Kladder, når du klikker på knappen, vil du modtage en besked som følgende skærmbillede.Ingen kladder
  • Men hvis der er emner i mappen Kladder, modtager du en prompt, som billedet nedenfor. Så snart du vælger “Ja”, begynder Outlook at sende alle kladder.Bekræft afsendelse af alle kladder

Batch Send valgte kladde-e-mails

Hvis du kun håber at sende de valgte kladder, er ovenstående koder uegnede. Du kan bruge følgende koder i stedet.

  1. Først skal du kopiere dem til et nyt modul.
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-koder - Send valgte kladde-e-mails

  1. Føj derefter den nye makro til Hurtig adgangs værktøjslinje som normalt.
  2. Derefter kan du vælge tarfå kladde-e-mails og tryk på knappen, du får en prompt som billedet:Bekræft afsendelse af valgte kladder
  3. Endelig, så længe du klikker på “Ja”, sendes de valgte kladde-e-mails.

Bortskaf irriterende Outlook-problemer

Måske har du stødt på flere ubehagelige Outlook-problemer. Hvordan kan du slippe af med dem? Som sædvanligt kan du prøve dets indbyggede reparationsværktøj, Scanpst.exe. Det er i stand til at løse de små problemer med Outlook PST-fil. Men hvis du desværre møder alvorlige problemer, såsom PST-e-mail-beskadigelse, vil indbakkeværktøjet ikke have effekter. På det tidspunkt har du intet andet valg end at bruge et mere fremtrædende værktøj, som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf fejl reparation og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.