Outlook: Hoe een e-mail automatisch opnieuw verzenden als er geen antwoord is

Author Sun Last modified 2025-08-26

Wanneer je een e-mail naar je collega, samenwerkingspartner of iemand anders stuurt en dringend een reactie nodig hebt, kun je een instelling voor automatisch opnieuw verzenden van de e-mail instellen als de reactie niet binnen een bepaalde tijd is ontvangen.

Herinnering en VBA gebruiken om automatisch opnieuw te verzenden bij geen reactie

Deel 1: een herinnering instellen om te herinneren op een bepaald tijdstip

1. Klik met de rechtermuisknop op een e-mail (uit de map Verzonden Items) die je wilt opnieuw verzenden als er geen reactie is, en klik in het contextmenu dat verschijnt op "Opvolging vereist" > "Herinnering toevoegen".

2. Houd in het pop-upvenster "Aangepast" het selectievakje "Herinnering" aangevinkt, en kies vervolgens in de onderstaande keuzelijsten een datum en tijd waarop je wilt dat de reactie is gearriveerd. Je kunt ook direct de datum en tijd in de vakken typen. Klik op "OK".

Deel 2: Voeg een VBA in om e-mails opnieuw te verzenden als er binnen de gespecificeerde tijd geen reactie is

3. Druk op "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

4. Dubbelklik op "ThisOutlookSession" in het deelvenster "Project – Project1" om een leeg script te maken, en kopieer en plak de volgende VBA-code in het lege script.

VBA: E-mail opnieuw verzenden als er geen reactie is

Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
  Dim xInboxFld As Folder
  Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
  Set GInboxItems = xInboxFld.Items
End Sub

'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
  Dim xSentItems As Outlook.Items
  Dim xMail As MailItem
  Dim i As Long
  Dim xSubject As String
  Dim xItemSubject As String
  Dim xSendTime As String
  On Error Resume Next
  Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
  If Item.Class <> olMail Then Exit Sub
  For i = xSentItems.Count To 1 Step -1
    If xSentItems.Item(i).Class = olMail Then
      Set xMail = xSentItems.Item(i)
      xSubject = LCase(xMail.Subject)
      xSendTime = xMail.SentOn
      xItemSubject = LCase(Item.Subject)
      If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
        If Item.SentOn > xSendTime Then
           With xMail
             .ClearTaskFlag
             .ReminderSet = False
             .Save
           End With
        End If
      End If
    End If
  Next i
End Sub

'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
  Dim xPrompt As String
  Dim xResponse As Integer
  Dim xFollowUpMail As Outlook.MailItem
  Dim xRcp As Recipient
  On Error Resume Next
  'Resend
  If (Item.Class <> olMail) Then Exit Sub
  xPrompt = "You haven't yet received the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
  xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
  If xResponse = vbNo Then Exit Sub
  Set xFollowUpMail = Application.CreateItem(olMailItem)
  With xFollowUpMail
    For Each xRcp In Item.Recipients
      .Recipients.Add (xRcp.Address)
    Next
    .Recipients.ResolveAll
    .Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
    .Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & " as soon as possible"
    .Attachments.Add Item
    .Display
  End With
End Sub

5. Sla de code op, ga terug naar het hoofdscherm, klik op "Bestand" > "Opties", en in het venster "Outlook Opties", klik op "Trust Center" in het linkerdeelvenster, en klik op "Trust Center-instellingen" om het venster "Trust Center" te openen. Klik op "Macro-instellingen" en zorg ervoor dat de optie "Alle macro's inschakelen (niet aanbevolen; potentieel gevaarlijke code kan worden uitgevoerd)" is geselecteerd in de rechtersectie. Klik op "OK" > "OK".

6. Als de verzonden e-mail waarvoor een herinnering is ingesteld geen reactie heeft ontvangen wanneer de gespecificeerde tijd is bereikt, verschijnt er een pop-upvenster om je eraan te herinneren of je een e-mail wilt opnieuw verzenden om een melding te maken.

7. Klik op "Ja", er verschijnt een berichtenvenster met de vorige e-mail als bijlage, en je kunt de berichttekst opnieuw bewerken en op "Verzenden" klikken om de e-mail opnieuw te versturen.

8. Klik op "Nee", de herinnering wordt verwijderd.

Opmerking: Als de e-mail al is beantwoord voordat de gespecificeerde tijd is bereikt, wordt de herinnering door VBA verwijderd.

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite