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

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.

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.

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 functie in het 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.

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.

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 Verstuur om de e-mail opnieuw te verzenden.

8. klikken Nee, wordt de herinnering verwijderd.

Opmerking:： Als de e-mail voor de opgegeven tijd is beantwoord, wordt de herinnering door VBA verwijderd.

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

• Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
• BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
• Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
• Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
• Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.

Lees verder... Download nu...