Как настроить автоответ с включением исходного текста письма в Outlook?

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

Автоответ писем с исходным сообщением в Outlook с помощью кода VBA

---

Автоответ писем с исходным сообщением в Outlook с помощью кода VBA

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

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

2. В окне Microsoft Visual Basic для приложений дважды щёлкните элемент ThisOutlookSession в области проекта Project1 (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 будет отправлять автоответ с исходным сообщением, как показано на следующем снимке экрана: