Outlook: hoe e-mail automatisch opnieuw te verzenden als er geen reactie is

Wanneer u een e-mail naar uw collega of samenwerkingspartner of iemand stuurt en dringend een antwoord nodig heeft, kunt u een automatische e-mailinstelling instellen als het antwoord niet binnen een bepaalde tijd is aangekomen.

Herinnering en VBA gebruiken om automatisch opnieuw verzenden in te stellen als er geen reactie is

Office-tabblad - Schakel bewerken en bladeren met tabbladen in Microsoft Office in, waardoor werken een fluitje van een cent wordt

Lees verder...Download ...

Kutools voor Outlook - Geef Outlook een boost met meer dan 100 geavanceerde functies voor superieure efficiëntie

Automatiseer e-mailen met Auto CC / BCC, Automatisch doorsturen door regels; versturen Auto antwoord (Out of Office) zonder dat er een uitwisselingsserver nodig is...
Ontvang herinneringen zoals BCC-waarschuwing bij het beantwoorden van iedereen terwijl u in de BCC-lijst staat, en Herinner bij ontbrekende bijlagen voor vergeten bijlagen...
Verbeter de e-mailefficiëntie met Antwoord (allemaal) met bijlagen, Automatisch begroeting of datum en tijd toevoegen aan handtekening of onderwerp, Beantwoord meerdere e-mails...
Stroomlijn e-mailen met E-mails intrekken, Hulpmiddelen voor bijlagen (Alles comprimeren, Alles automatisch opslaan...), Verwijder duplicaten en Quick Report...

Geef uw Outlook 2021 - 2010 of Outlook 365 een boost met deze geavanceerde functies. Geniet van een uitgebreide gratis proefperiode van 60 dagen en verbeter uw e-mailervaring!

Lees verder...Download ...

Herinnering en VBA gebruiken om automatisch opnieuw verzenden in te stellen als er geen reactie is

Deel 1: stel een herinnering in om binnen een bepaalde tijd eraan te herinneren

1. Klik met de rechtermuisknop op een e-mail (uit de map Verzonden items) die u opnieuw wilt verzenden als er geen reactie is, klik in het snel verschijnende contextmenu op Follow Up > Herinnering toevoegen.

doc opnieuw verzenden als geen reactie

2. In het knallen Eigen dialoogvenster, bewaar het Herinnering selectievakje is aangevinkt, kies vervolgens in de onderstaande vervolgkeuzelijsten een datum en tijd waarop u het antwoord eerder wilt ontvangen. U kunt ook direct de datum en tijd in de vakken typen. Klik OK.

doc opnieuw verzenden als geen reactie

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

3. druk op anders + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.

4. Dubbelklik DezeOutlookSessie in de Project – Project1 deelvenster om een leeg script te maken en kopieer en plak de onderstaande 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 recieved 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 de hoofdinterface, klik op Dien in > Opties en daarine Outlook-opties venster klikt Vertrouwenscentrum in het linkerdeelvenster en klik op Vertrouwenscentrum-instellingen om de Vertrouwenscentrum venster. Klik Macro-instellingen en zorg ervoor dat het Schakel alle macro's in (niet aanbevolen; potentieel gevaarlijke code kan worden uitgevoerd) optie is geselecteerd in het rechter gedeelte. Klik OK > OK.

doc opnieuw verzenden als geen reactie

6. Als de verzonden e-mail die is ingesteld met een herinnering geen reactie ontvangt wanneer de opgegeven tijd is verstreken, verschijnt er een pop-upvenster om u eraan te herinneren of u een e-mail opnieuw moet verzenden om een melding te doen.

doc opnieuw verzenden als geen reactie

7. klikken Ja, verschijnt er een berichtvenster en voegt u de vorige e-mail toe, en u kunt de hoofdtekst opnieuw invoeren en klikken op Verzenden om de e-mail opnieuw te verzenden.

doc opnieuw verzenden als geen reactie