Outlook: как автоматически повторно отправить электронное письмо, если нет ответа

Когда вы отправляете электронное письмо своему коллеге, партнеру по сотрудничеству или кому-либо и вам срочно нужен ответ, вы можете установить настройку автоматической повторной отправки электронной почты, если ответ не пришел до указанного времени.

Использование напоминания и VBA для установки автоматической повторной отправки, если нет ответа

Вкладка «Office»: включите редактирование и просмотр с вкладками в Microsoft Office, упрощая работу

Больше информации...Скачать ...

Kutools for Outlook - улучшите Outlook с помощью более 100 расширенных функций для повышения эффективности

Автоматизируйте отправку писем с помощью Авто CC / BCC, Автопересылка по правилам; отправлять Автоответчик (Нет на работе) без необходимости использования сервера обмена...
Получайте напоминания, например Предупреждение BCC при ответе всем, пока вы находитесь в списке скрытых копий, и Напоминать об отсутствии вложений за забытые вложения...
Повысьте эффективность электронной почты с помощью Ответить (всем) с вложениями, Автоматическое добавление приветствия или даты и времени в подпись или тему, Ответить на несколько писем...
Оптимизируйте электронную почту с помощью Отозвать электронные письма, Инструменты для вложения (Сжать все, Автосохранить все...), Удалить дубликатыкачества Быстрый отчет...

Улучшите свой Outlook 2021–2010 или Outlook 365 с помощью этих расширенных функций. Наслаждайтесь полной 60-дневной бесплатной пробной версией и улучшите качество своей электронной почты!

Больше информации...Скачать ...

Использование напоминания и VBA для установки автоматической повторной отправки, если нет ответа

Часть 1: установите напоминание, чтобы напомнить в указанное время

1. Щелкните правой кнопкой мыши электронное письмо (из папки «Отправленные»), которое вы хотите отправить повторно, если нет ответа, во всплывающем контекстном меню нажмите Следовать за > Добавить напоминание.

документ отправить повторно, если нет ответа 1

2. Во всплывающем На заказ диалог, оставьте Напоминание флажок установлен, затем в раскрывающихся списках ниже выберите дату и время, когда вы хотите, чтобы ответ был получен раньше, также вы можете напрямую ввести дату и время в поля. Нажмите OK.

документ отправить повторно, если нет ответа 1

Часть 2. Вставьте VBA для повторной отправки электронных писем, если нет ответа в указанное время

3. Нажмите другой + F11 ключи для включения Microsoft Visual Basic для приложений окно.

4. Двойной клик Эта сессия Outlook в Проект – Проект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.

документ отправить повторно, если нет ответа 1

6. Теперь, если отправленное электронное письмо, для которого установлено напоминание, не получает ответа, когда наступает указанное время, появляется всплывающее диалоговое окно, чтобы напомнить вам, следует ли повторно отправить электронное письмо, чтобы сделать уведомление.

документ отправить повторно, если нет ответа 1

7. Нажмите Да, появится окно сообщения, в котором будет прикреплено предыдущее электронное письмо, и вы можете повторно отредактировать текст и нажать Отправить повторно отправить письмо..

документ отправить повторно, если нет ответа 1