Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як автоматично відповідати оригінальним повідомленням електронної пошти в 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 для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.