Как автоматически ответить с исходным сообщением электронной почты в Outlook?

Обычно, когда мы создаем правило, чтобы автоматически полагаться на электронную почту вне офиса, исходное сообщение в теле не включается. Как вы могли автоматически полагаться на электронные письма с исходным сообщением в Outlook? В этой статье я расскажу о коде VBA, который поможет вам как можно быстрее завершить эту работу в Outlook.

Автоматический ответ на электронные письма с исходным сообщением в Outlook с кодом VBA

Автоматический ответ на электронные письма с исходным сообщением в Outlook с кодом VBA

Обычное правило Outlook не может помочь вам справиться с работой, но с помощью следующего кода VBA вы можете завершить это быстро и легко. Пожалуйста, сделайте так:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В Microsoft Visual Basic для приложений окно, дважды щелкните ThisOutlookSession из Проект1 (VbaProject.OTM) панель, чтобы открыть режим, а затем скопируйте и вставьте следующий код в пустой модуль.

Код VBA: автоматический ответ на электронные письма с исходным сообщением:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub

3. Затем сохраните и закройте окно кода, закройте или перезапустите Outlook, чтобы код VBA вступил в силу. Теперь, когда вы получаете электронные письма, Outlook отправляет автоматический ответ с исходным сообщением, как показано на следующем снимке экрана:

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

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