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