Note: The other languages of the website are Google-translated. Back to English

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

Záložka Office - Povolte úpravy a procházení záložkami v Office a mnohem usnadněte práci ...
Kutools pro Outlook - přináší do aplikace Microsoft Outlook 100 výkonných pokročilých funkcí
  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle pravidel; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem, pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (vše) se všemi přílohami v poštovní konverzaci; Odpovězte na mnoho e-mailů najednou; Automatické přidání pozdravu při odpovědi; Automatické přidání data a času do předmětu ...
  • Nástroje pro připojení: Auto Detach, Compress All, Rename All, Auto Save All ... Rychlá zpráva, Počet vybraných e-mailů, Odebrat duplicitní e-maily a kontakty ...
  • Více než 100 pokročilých funkcí bude vyřešit většinu vašich problémů v Outlooku 2010–2019 a 365. Kompletní funkce 60denní bezplatná zkušební verze.

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.


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění