Outlook: как автоматически повторно отправить электронное письмо, если нет ответа
Когда вы отправляете электронное письмо своему коллеге, партнеру по сотрудничеству или кому-либо и вам срочно нужен ответ, вы можете установить настройку автоматической повторной отправки электронной почты, если ответ не пришел до указанного времени.
Использование напоминания и VBA для установки автоматической повторной отправки, если нет ответа
- Автоматизируйте отправку писем с помощью Авто CC / BCC, Автопересылка по правилам; отправлять Автоответчик (Нет на работе) без необходимости использования сервера обмена...
- Получайте напоминания, например Предупреждение BCC при ответе всем, пока вы находитесь в списке скрытых копий, и Напоминать об отсутствии вложений за забытые вложения...
- Повысьте эффективность электронной почты с помощью Ответить (всем) с вложениями, Автоматическое добавление приветствия или даты и времени в подпись или тему, Ответить на несколько писем...
- Оптимизируйте электронную почту с помощью Отозвать электронные письма, Инструменты для вложения (Сжать все, Автосохранить все...), Удалить дубликатыи Быстрый отчет...
Использование напоминания и VBA для установки автоматической повторной отправки, если нет ответа
Часть 1: установите напоминание, чтобы напомнить в указанное время
1. Щелкните правой кнопкой мыши электронное письмо (из папки «Отправленные»), которое вы хотите отправить повторно, если нет ответа, во всплывающем контекстном меню нажмите Следовать за > Добавить напоминание.
2. Во всплывающем На заказ диалог, оставьте Напоминание флажок установлен, затем в раскрывающихся списках ниже выберите дату и время, когда вы хотите, чтобы ответ был получен раньше, также вы можете напрямую ввести дату и время в поля. Нажмите OK.
Часть 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.
6. Теперь, если отправленное электронное письмо, для которого установлено напоминание, не получает ответа, когда наступает указанное время, появляется всплывающее диалоговое окно, чтобы напомнить вам, следует ли повторно отправить электронное письмо, чтобы сделать уведомление.
7. Нажмите Да, появится окно сообщения, в котором будет прикреплено предыдущее электронное письмо, и вы можете повторно отредактировать текст и нажать Отправить повторно отправить письмо..
8. Нажмите Нет, напоминание будет удалено.
Внимание: Если на электронное письмо ответили до указанного времени, напоминание будет удалено VBA.
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.