Як автоматично відповідати оригінальним повідомленням електронної пошти в Outlook?
Зазвичай, коли ми створюємо правило для автоматичного використання електронної пошти поза офісом, але оригінальне повідомлення в тексті не включається. Як ви могли автоматично покладатися на електронні листи з оригінальним повідомленням в Outlook? У цій статті я розповім про код VBA, який допоможе вам якомога швидше закінчити цю роботу в Outlook.
Автоматична відповідь на електронні листи з оригінальним повідомленням в Outlook із кодом VBA
Автоматична відповідь на електронні листи з оригінальним повідомленням в Outlook із кодом VBA
Звичайне правило Outlook не може допомогти вам впоратися з роботою, але за допомогою наступного коду VBA ви можете швидко і легко закінчити це. Будь ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2, в Microsoft Visual Basic для додатків вікно, двічі клацніть Цей OutlookSession від Проект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 для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.