Outlook: Wie man eine E-Mail automatisch erneut sendet, wenn keine Antwort kommt
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
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“.
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“.
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 Sub5. 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“.
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.
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.
8. Klicken Sie auf „Nein“, wird die Erinnerung gelöscht.
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 startet kostenlose Version!
Erleben Sie das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...
📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...
📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr attraktive und coole Emojis /Benachrichtigung bei wichtigen E-Mails /Outlook minimieren statt schließen...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten /Anti-Phishing-E-Mails /🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine 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!
