Как автоматически отвечать с исходным электронным письмом и предопределенным текстом через Outlook VBA

Перспективные решения 29 сентября, 2025

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

В Outlook учетные записи Exchange позволяют пользователям устанавливать автоматические ответы напрямую с помощью кнопки «Автоматические ответы» на вкладке «Информация» в меню «Файл», как показано на следующем снимке экрана:

Но если вы используете учетную запись электронной почты в Интернете, независимо от того, IMAP или POP3, кнопка «Автоматические ответы» недоступна. Единственный способ включить автоматический ответ — создать правило автоматического ответа, показанное на следующем рисунке:

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

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

Сначала вы должны перейти на вкладку «Разработчик» и нажать кнопку «Visual Basic».
Затем в новом окне «Microsoft Visual Basic для приложений» вам нужно дважды щелкнуть проект «ThisOutlookSession» в левой части.
После этого откроется проект ThisOutlookSession. Теперь вы должны скопировать и вставить в него следующие коды VBA.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

Затем вы должны подписать этот код, как обычно, и продолжить изменять настройки макроса, чтобы разрешить только макросы с цифровой подписью.
Наконец, после выполнения вышеуказанных шагов Outlook автоматически отправит ответ с информацией об исходном сообщении в теле. Это будет выглядеть как на картинке ниже:

Примечание: Независимо от автоматического ответа с использованием правила или автоматического ответа с использованием кодов VBA, оба они могут иметь эффект только при запущенном Outlook.

Устранение ошибок данных Outlook

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

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить повреждение файла SQL mdf и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com