Přejít k hlavnímu obsahu

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ěď

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou
Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu
Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

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í.

doc znovu odeslat, pokud žádná odpověď 1

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.

doc znovu odeslat, pokud žádná odpověď 1 doc znovu odeslat, pokud žádná odpověď 1

Čá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.

doc znovu odeslat, pokud žádná odpověď 1

doc znovu odeslat, pokud žádná odpověď 1

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í.

doc znovu odeslat, pokud žádná odpověď 1

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..

doc znovu odeslat, pokud žádná odpověď 1

8. cvaknutí Ne, upomínka bude smazána.

doc znovu odeslat, pokud žádná odpověď 1

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

???? 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 ProDá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.

Více       Stažení zdarma      Nákup
 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, great script! How can I make this so that it replies to the email instead of sending the original email as an attachment?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations