Outlook: So senden Sie E-Mails automatisch erneut, wenn keine Antwort erfolgt

Wenn Sie eine E-Mail an Ihren Kollegen, Kooperationspartner oder eine andere Person senden und dringend eine Antwort benötigen, können Sie eine Einstellung zum automatischen erneuten Senden von E-Mails festlegen, wenn die Antwort nicht vor einer bestimmten Zeit eintrifft.

Verwenden von Reminder und VBA zum automatischen erneuten Senden, wenn keine Antwort erfolgt

Office-Registerkarte – Ermöglichen Sie das Bearbeiten und Durchsuchen mit Registerkarten in Microsoft Office und machen Sie die Arbeit zum Kinderspiel

Lesen Sie mehr...Download ...

Kutools für Outlook – Steigern Sie Outlook mit über 100 erweiterten Funktionen für überragende Effizienz

Automatisieren Sie den E-Mail-Versand mit Auto CC / BCC, Automatische Weiterleitung nach Regeln; schicken Automatische Antwort (Abwesend) ohne dass ein Exchange-Server erforderlich ist ...
Erhalten Sie Erinnerungen wie BCC-Warnung wenn Sie auf alle antworten, während Sie sich in der BCC-Liste befinden, und Bei fehlenden Anhängen erinnern für vergessene Anhänge...
Verbessern Sie die E-Mail-Effizienz mit (Allen) mit Anhängen antworten, Begrüßung oder Datum und Uhrzeit automatisch zur Signatur oder zum Betreff hinzufügen, Beantworten Sie mehrere E-Mails...
Optimieren Sie den E-Mail-Versand mit E-Mails abrufen, Anbaugeräte (Alles komprimieren, Alles automatisch speichern...), Duplikate entfernen und Kurzbericht...

Verbessern Sie Ihr Outlook 2021 – 2010 oder Outlook 365 mit diesen erweiterten Funktionen. Genießen Sie eine umfassende 60-tägige kostenlose Testversion und verbessern Sie Ihr E-Mail-Erlebnis!

Lesen Sie mehr...Download ...

Verwenden von Reminder und VBA zum automatischen erneuten Senden, wenn keine Antwort erfolgt

Teil 1: Stellen Sie eine Erinnerung ein, um zu einer bestimmten Zeit daran zu erinnern

1. Klicken Sie mit der rechten Maustaste auf eine E-Mail (aus dem Ordner „Gesendete Elemente“), die Sie erneut senden möchten, wenn keine Antwort angezeigt wird, und klicken Sie im Popup-Kontextmenü auf nachgehen > Erinnerung hinzufügen.

Dokument erneut senden, wenn keine Antwort 1

2. Im Knallen Maßgeschneidert Dialog, behalten Sie die Erinnerung Kontrollkästchen aktiviert, dann wählen Sie in den Dropdown-Feldern unten ein Datum und eine Uhrzeit aus, zu der die Antwort zuvor eingegangen sein soll. Sie können das Datum und die Uhrzeit auch direkt in die Felder eingeben. Klicken OK.

Dokument erneut senden, wenn keine Antwort 1

Teil 2: Fügen Sie einen VBA ein, um E-Mails erneut zu senden, wenn in der angegebenen Zeit keine Antwort erfolgt

3. Drücken Sie Andere + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster.

4. Doppelklick DieseOutlookSession der Projekt – Projekt1 Bereich, um ein leeres Skript zu erstellen, und kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das leere Skript ein.

VBA: E-Mail erneut senden, wenn keine Antwort erfolgt

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. Speichern Sie den Code, gehen Sie dann zurück zur Hauptschnittstelle und klicken Sie auf Reichen Sie das > Optionen und in The Outlook-Optionen Klicken Sie im Fenster Trust Center Klicken Sie im linken Bereich auf Vertrauensstellungscenter um das zu ermöglichen Trust Center Fenster. Klicken Makroeinstellungen und stellen Sie sicher, dass die Aktivieren Sie alle Makros (nicht empfohlen; potenziell gefährlicher Code kann ausgeführt werden) Option im rechten Bereich ausgewählt ist. Klicken OK > OK.

Dokument erneut senden, wenn keine Antwort 1

6. Wenn jetzt die gesendete E-Mail, die mit einer Erinnerung versehen wurde, zum angegebenen Zeitpunkt keine Antwort erhält, erscheint ein Popup-Dialogfeld, um Sie daran zu erinnern, ob Sie eine E-Mail erneut senden möchten, um eine Benachrichtigung zu erstellen.

Dokument erneut senden, wenn keine Antwort 1

7 Klicken Ja, ein Nachrichtenfenster erscheint und hängt die vorherige E-Mail an, und Sie können den Text erneut bearbeiten und klicken Absenden um die E-Mail erneut zu senden..

Dokument erneut senden, wenn keine Antwort 1