Outlook: Jak automaticky znovu odeslat e-mail, pokud žádná odpověď
Když odešlete e-mail svému kolegovi nebo kooperativnímu partnerovi nebo někomu jinému a potřebujete naléhavě odpovědět, můžete nastavit automatické opětovné zaslání e-mailu, pokud odpověď nedorazí před zadanou dobou.
Pomocí Reminder a VBA nastavte automatické opětovné odeslání, pokud žádná odpověď
- Automatizujte zasílání e-mailů pomocí Auto CC / BCC, Automatické předávání podle pravidel; poslat Automatická odpověď (Mimo kancelář) bez nutnosti výměnného serveru...
- Získejte připomenutí jako Varování BCC když odpovídáte všem, když jste v seznamu BCC, a Připomenout, když chybí přílohy pro zapomenuté přílohy...
- Zlepšete efektivitu e-mailu pomocí Odpovědět (vše) s přílohami, Automatické přidání pozdravu nebo data a času do podpisu nebo předmětu, Odpovědět na více e-mailů...
- Zjednodušte zasílání e-mailů pomocí Připomenout e-maily, Nástroje pro připojení (Komprimovat vše, Automaticky uložit vše...), Odebrat duplikáty, a Rychlá zpráva...
Pomocí Reminder a VBA nastavte automatické opětovné odeslání, pokud žádná odpověď
Část 1: nastavení připomenutí pro připomenutí v určený čas
1. Klikněte pravým tlačítkem na e-mail (ze složky Odeslaná pošta), který chcete znovu odeslat, pokud žádná odpověď, v místní nabídce klikněte na Následovat > Přidat připomenutí.
2. V praskání Zvyk dialog, ponechte Připomínka zaškrtněte políčko a poté v níže uvedených rozevíracích polích vyberte datum a čas, kdy chcete, aby odpověď dorazila dříve, také můžete přímo zadat datum a čas do polí. Klikněte OK.
Část 2: Vložte VBA pro opětovné odeslání e-mailů, pokud v zadaném čase žádná odpověď
3. lis Další + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.
4. Dvojklik ThisOutlookSession v Projekt – Projekt1 vytvořte prázdný skript a zkopírujte a vložte níže uvedený kód VBA do prázdného skriptu.
VBA: Odešlete e-mail znovu, pokud žádná odpověď
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. Uložte kód, poté se vraťte do hlavního rozhraní a klikněte Soubor > možnosti a v tise Možnosti aplikace Outlook okno, klepněte na tlačítko Centrum zabezpečení v levém podokně a klikněte na Nastavení centra důvěryhodnosti k povolení Centrum zabezpečení okno. Klikněte na tlačítko Nastavení makra a ujistěte se, že Povolit všechna makra (nedoporučuje se; lze spustit potenciálně nebezpečný kód) možnost je vybrána v pravé části. Klikněte OK > OK.
6. Pokud nyní odeslaný e-mail, který byl nastaven s připomenutím, neobdrží v určený čas žádnou odpověď, zobrazí se vyskakovací dialogové okno, které vám připomene, zda chcete znovu odeslat e-mail za účelem upozornění.
7. cvaknutí Ano, vyskočí okno zprávy a připojí předchozí e-mail a můžete znovu upravit tělo a kliknout Poslat pro opětovné odeslání e-mailu..
8. cvaknutí Ne, upomínka bude smazána.
Poznámka: Pokud byl e-mail zodpovězen před určeným časem, připomenutí bude odstraněno VBA.
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.