Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

Outlook: Wie man eine E-Mail automatisch erneut sendet, wenn keine Antwort kommt

Author Sun Last modified

Wenn Sie eine E-Mail an Ihren Kollegen, Kooperationspartner oder jemand anderen senden und dringend eine Antwort benötigen, können Sie eine automatische Wiederholung der E-Mail einrichten, falls die Antwort bis zu einem bestimmten Zeitpunkt nicht eingegangen ist.

Verwenden von Erinnerungen und VBA, um automatisches erneutes Senden bei fehlender Antwort einzurichten


Verwenden von Erinnerungen und VBA, um automatisches erneutes Senden bei fehlender Antwort einzurichten

 

Teil 1: Eine Erinnerung für einen bestimmten Zeitpunkt einstellen

1. Klicken Sie mit der rechten Maustaste auf eine E-Mail (aus dem Ordner „Gesendete Elemente“), die Sie erneut senden möchten, falls keine Antwort vorliegt. Im erscheinenden Kontextmenü klicken Sie auf „Benötigt Nachverfolgung“ > „Erinnerung hinzufügen“.

doc resend if no response 1

2. Im erscheinenden Dialogfeld „Benutzerdefiniert“ belassen Sie das Häkchen bei „Erinnerung“. Wählen Sie dann in den darunter liegenden Dropdown-Feldern das Datum und die Uhrzeit aus, bis wann die Antwort eintreffen soll. Alternativ können Sie das Datum und die Uhrzeit auch direkt in die Felder eingeben. Klicken Sie auf „OK“.

doc resend if no response 1
doc resend if no response 1

Teil 2: Einfügen eines VBA-Codes zum erneuten Senden von E-Mails, falls bis zum festgelegten Zeitpunkt keine Antwort eingegangen ist

3. Drücken Sie die Tasten „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

4. Doppelklicken Sie im Bereich „Projekt – Projekt1“ auf „ThisOutlookSession“, um ein leeres Skript zu erstellen. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das leere Skript ein.

VBA: E-Mail erneut senden, falls keine Antwort

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. Speichern Sie den Code, gehen Sie dann zurück zur Hauptoberfläche, klicken Sie auf „Datei“ > „Optionen“. Im Fenster „Outlook-Optionen“ klicken Sie im linken Bereich auf „Trust Center“ und anschließend auf „Einstellungen für das Trust Center“, um das Fenster „Trust Center“ zu öffnen. Klicken Sie auf „Makro-Einstellungen“ und stellen Sie sicher, dass im rechten Bereich die Option „Alle Makros aktivieren (nicht empfohlen; potenziell gefährlicher Code kann ausgeführt werden)“ ausgewählt ist. Klicken Sie auf „OK“ > „OK“.

doc resend if no response 1
doc resend if no response 1

6. Wenn die gesendete E-Mail, für die Sie eine Erinnerung eingestellt haben, bis zum angegebenen Zeitpunkt keine Antwort erhalten hat, erscheint ein Dialogfenster, das Sie fragt, ob Sie die E-Mail erneut senden möchten, um eine Benachrichtigung zu versenden.

doc resend if no response 1

7. Klicken Sie auf „Ja“. Ein Nachrichtenfenster öffnet sich, und die vorherige E-Mail wird angehängt. Sie können den Text bearbeiten und auf „Senden“ klicken, um die E-Mail erneut zu versenden.

doc resend if no response 1

8. Klicken Sie auf „Nein“, wird die Erinnerung gelöscht.

doc resend if no response 1

Hinweis: Wenn die E-Mail vor dem festgelegten Zeitpunkt beantwortet wurde, wird die Erinnerung durch VBA entfernt.


Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

kutools for outlook features1 kutools for outlook features2

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

  • Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
  • 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
  • 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint