Как автоматически отвечать с оригинальным сообщением электронной почты в Outlook?
Обычно, когда мы создаем правило для автоматического ответа на электронные письма вне офиса, оригинальное сообщение в теле письма не будет включено. Как можно автоматически отвечать на электронные письма с оригинальным сообщением в Outlook? В этой статье я расскажу о коде VBA, который поможет вам выполнить эту задачу как можно быстрее в Outlook.
Автоматические ответы на электронные письма с оригинальным сообщением в Outlook с помощью кода VBA
Автоматические ответы на электронные письма с оригинальным сообщением в Outlook с помощью кода VBA
Обычное правило Outlook не может помочь вам справиться с этой задачей, но с помощью следующего кода VBA вы сможете быстро и легко это сделать. Пожалуйста, действуйте так:
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications дважды щелкните 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 будет отправлять автоматический ответ с оригинальным сообщением, как показано на следующем скриншоте:
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Выпущена бесплатная версия Kutools для Outlook!
Оцените совершенно новый Kutools для Outlook с более чем100 потрясающими функциями! Нажмите, чтобы скачать сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку Email / Авто Копия/Скрытая копия по правилу при отправке письма / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Автоматическое разделение Email с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!
