Outlook: jak automatycznie ponownie wysłać wiadomość e-mail, jeśli nie ma odpowiedzi

Gdy wysyłasz wiadomość e-mail do kolegi, współpracownika lub kogoś innego i potrzebujesz pilnie odpowiedzi, możesz ustawić automatyczne ponowne wysyłanie wiadomości e-mail, jeśli odpowiedź nie nadeszła przed określonym czasem.

Używanie Przypomnienia i VBA do ustawiania automatycznego ponownego wysyłania, jeśli nie ma odpowiedzi

Karta Office — włącz edycję i przeglądanie na kartach w pakiecie Microsoft Office, dzięki czemu praca stanie się o wiele łatwiejsza

Czytaj więcej...Pobierz ...

Kutools dla programu Outlook - Zwiększ wydajność programu Outlook dzięki ponad 100 zaawansowanym funkcjom zapewniającym najwyższą wydajność

Automatyzuj wysyłanie e-maili za pomocą Auto CC / BCC, Auto Forward według zasad; wysłać Automatyczna odpowiedź (Poza biurem) bez konieczności korzystania z serwera wymiany...
Otrzymuj przypomnienia takie jak Ostrzeżenie BCC podczas odpowiadania wszystkim, gdy jesteś na liście BCC, oraz Przypomnij o braku załączników za zapomniane załączniki...
Popraw wydajność poczty e-mail dzięki Odpowiedz (wszystkim) z załącznikami, Automatyczne dodawanie pozdrowień lub daty i godziny do podpisu lub tematu, Odpowiedz na wiele e-maili...
Usprawnij wysyłanie e-maili za pomocą Przypomnij sobie e-maile, Narzędzia załączników (Kompresuj wszystko, automatycznie zapisuj wszystko...), Usuń duplikaty, Szybki raport...

Ulepsz swój program Outlook 2021–2010 lub Outlook 365 dzięki tym zaawansowanym funkcjom. Skorzystaj z kompleksowego, 60-dniowego bezpłatnego okresu próbnego i usprawnij korzystanie z poczty e-mail!

Czytaj więcej...Pobierz ...

Używanie Przypomnienia i VBA do ustawiania automatycznego ponownego wysyłania, jeśli nie ma odpowiedzi

Część 1: ustaw przypomnienie, aby przypomnieć w określonym czasie

1. Kliknij prawym przyciskiem myszy wiadomość e-mail (z folderu Elementy wysłane), którą chcesz ponownie wysłać, jeśli nie ma odpowiedzi, w wyskakującym menu kontekstowym kliknij Monit > Dodaj przypomnienie.

dokument wyślij ponownie, jeśli nie ma odpowiedzi 1

2. W poppingu Zamówienia Indywidualne Zachowaj Przypomnienie zaznaczone pole wyboru, a następnie w poniższych rozwijanych polach wybierz datę i godzinę, o której chcesz, aby odpowiedź dotarła wcześniej, a także możesz bezpośrednio wpisać datę i godzinę w polach. Kliknij OK.

dokument wyślij ponownie, jeśli nie ma odpowiedzi 1

Część 2: Wstaw VBA, aby ponownie wysyłać wiadomości e-mail, jeśli nie ma odpowiedzi w określonym czasie

3. naciśnij inny + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno.

4. Podwójne kliknięcie Ta sesja programu Outlook Projekt – Projekt1 okienko, aby utworzyć pusty skrypt, a następnie skopiuj i wklej poniższy kod VBA do pustego skryptu.

VBA: wyślij ponownie e-mail, jeśli nie ma odpowiedzi

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. Zapisz kod, a następnie wróć do głównego interfejsu, kliknij filet > Opcje i w tyme Opcje programu Outlook okno, kliknij Centrum zaufania w lewym okienku i kliknij Ustawienia Centrum zaufania włączyć Centrum zaufania okno. Kliknij Ustawienia makr i upewnij się, że Włącz wszystkie makra (niezalecane; może działać potencjalnie niebezpieczny kod) opcja jest wybrana w prawej sekcji. Kliknij OK > OK.

dokument wyślij ponownie, jeśli nie ma odpowiedzi 1

6. Teraz, jeśli wysłana wiadomość e-mail, która została ustawiona z przypomnieniem, nie otrzyma odpowiedzi, gdy nadejdzie określony czas, pojawi się okno dialogowe z przypomnieniem, czy ponownie wysłać wiadomość e-mail, aby dokonać powiadomienia.

dokument wyślij ponownie, jeśli nie ma odpowiedzi 1

7. kliknij Tak, wyskakuje okno wiadomości i załącza poprzednią wiadomość e-mail, i możesz ponownie edytować treść i kliknąć Wyślij aby ponownie wysłać e-mail...

dokument wyślij ponownie, jeśli nie ma odpowiedzi 1