Як автоматично створити ім’я дорогого відправника під час відповіді на повідомлення в Outlook?
Відповідаючи на повідомлення електронної пошти, слід вручну ввести ім’я відправника та привітання. Щоб заощадити час та підвищити ефективність роботи, ви можете розглянути можливість створення імені шановного відправника та привітання автоматично в Outlook. У цій статті я розповім про деякі корисні методи вирішення цього завдання в Outlook.
Автоматично створюйте ім’я та привітання дорогого відправника, відповідаючи на повідомлення з кодом VBA
Наступний код VBA може допомогти вам автоматично вставити ім'я та привітання дорогого відправника під час відповіді на повідомлення електронної пошти. Будь ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2, в Microsoft Visual Basic для додатків вікно, двічі клацніть ThisOutlookSession від Проект1 (VbaProject.OTM) , щоб відкрити режим, а потім скопіюйте та вставте наступний код у порожній модуль.
Код VBA: Автоматично вставте ім'я шановного відправника та привітання під час відповіді:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. Потім закрийте Outlook і перезапустіть його, щоб надати ефект коду, і тепер, коли ви відповідаєте на повідомлення електронної пошти, ім’я та привітання дорогого відправника автоматично вставляються в тіло, див. Знімок екрана:
Автоматично створюйте ім’я шановного відправника та привітання під час відповіді на повідомлення за допомогою Kutools для Outlook
Якщо у вас є Kutools для Outlook, З його Додайте привітання під час відповіді Функція Outlook автоматично відповідає за ім’я відправника.
Kutools для Outlook : з більш ніж 100 зручними надбудовами Outlook, які можна спробувати без обмежень протягом 60 днів. |
після установки Kutools для Outlook, будь ласка, зробіть так:
1. Клацання Кутулс > Опції, див. скріншот:
2, в Опції у діалоговому вікні під відповісти вкладка, перевірити Додайте привітання під час відповіді , а потім введіть привітання, як вам потрібно, див. знімок екрана:
3. Потім натисніть OK щоб закінчити це налаштування, відтепер при відповіді на повідомлення привітання автоматично створюватиметься перед тілом повідомлення, див. знімок екрана:
Натисніть, щоб завантажити Kutools для Outlook і безкоштовну пробну версію зараз!
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.