Outlook: як автоматично надіслати електронний лист, якщо немає відповіді

Коли ви надсилаєте електронний лист своєму колезі, партнеру по співпраці чи комусь і потребуєте термінової відповіді, ви можете налаштувати автоматичне надсилання електронної пошти, якщо відповідь не надійшла раніше визначеного часу.

Використання нагадування та VBA для налаштування автоматичного повторного надсилання, якщо немає відповіді

Вкладка Office - увімкніть редагування та перегляд із вкладками в Microsoft Office, що полегшить роботу

Детальніше ...Завантажити ...

Kutools для Outlook - покращте Outlook за допомогою 100+ розширених функцій для надзвичайної ефективності

Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...

Покращіть свій Outlook 2021 - 2010 або Outlook 365 за допомогою цих розширених функцій. Насолоджуйтесь повною 60-денною безкоштовною пробною версією та покращте роботу електронної пошти!

Детальніше ...Завантажити ...

Використання нагадування та VBA для налаштування автоматичного повторного надсилання, якщо немає відповіді

Частина 1: встановіть нагадування для нагадування у визначений час

1. Клацніть правою кнопкою миші на електронному листі (з папки «Надіслані»), яке потрібно надіслати повторно, якщо немає відповіді, у контекстному меню, що спливає, натисніть Слідувати > Додати нагадування.

doc повторно надіслати, якщо немає відповіді 1

2. У вискакуванні виготовлений на замовлення діалогове вікно, збережіть Нагадування поставте прапорець, а потім у спадних списках нижче виберіть дату та час, коли ви хочете, щоб відповідь надійшла раніше, також ви можете безпосередньо ввести дату та час у відповідні поля. Натисніть OK.

doc повторно надіслати, якщо немає відповіді 1

Частина 2: Вставте VBA, щоб повторно надіслати електронні листи, якщо не буде відповіді за вказаний час

3. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.

4 Подвійне клацання ThisOutlookSession в Проект – Проект1 панель, щоб створити порожній сценарій, і скопіюйте та вставте наведений нижче код VBA в порожній сценарій.

VBA: повторно надіслати електронний лист, якщо немає відповіді

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. Збережіть код, потім поверніться до головного інтерфейсу, натисніть філе > Опції і в гоe Параметри Outlook вікна, натисніть Центр безпеки на лівій панелі та натисніть Налаштування центру довіри щоб включити Центр безпеки вікно. Клацніть Налаштування макросу і переконайтесь, що Увімкнути всі макроси (не рекомендується; може запускатися потенційно небезпечний код) у правому розділі вибрано параметр. Натисніть OK > OK.

doc повторно надіслати, якщо немає відповіді 1

6. Тепер, якщо надіслане повідомлення електронної пошти, яке було налаштовано з нагадуванням, не отримує відповіді, коли настане вказаний час, з’явиться спливаюче діалогове вікно, щоб нагадати, чи надсилати електронний лист, щоб надіслати сповіщення.

doc повторно надіслати, якщо немає відповіді 1

7. клацання Так, з’явиться вікно повідомлення, яке додає попередній електронний лист, і ви можете змінити його текст і натиснути Відправити щоб повторно надіслати електронний лист..

doc повторно надіслати, якщо немає відповіді 1