Как настроить автоматическое добавление персонализированного приветствия при ответе в Outlook?
Обычно при ответе на письмо в Outlook приходится вручную вставлять приветствие. Однако исходное сообщение уже содержит данные о собеседнике — например, имя отправителя. В этой статье я покажу два способа автоматически добавлять персонализированное приветствие при ответе в Outlook.
Автоматическое добавление персонализированного приветствия при ответе с помощью VBA
Автоматическое добавление персонализированного приветствия при ответе с помощью Kutools для Outlook
Автоматическое добавление персонализированного приветствия при ответе с помощью VBA
Следующий код VBA автоматически добавляет персонализированное приветствие при ответе на сообщения в Outlook. Выполните следующие действия:
1. Выберите сообщение электронной почты, на которое хотите ответить.
2. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
3. Нажмите Вставка > Модуль и вставьте приведённый ниже код VBA в новое окно модуля.
VBA: Ответ с персонализированным приветствием
Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub4. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот код VBA. Появится диалоговое окно, как показано на скриншоте ниже. В зависимости от ваших задач введите 1 или 2, а затем нажмите кнопку ОК.
| Введите 1 для приветствия с именем получателя: | Введите 2 для приветствия с указанием времени суток: |
 |  |
Примечание: В Outlook 2013 этот код VBA не работает, если вы отвечаете на сообщения в области чтения. Нажмите здесь, чтобы узнать, как отключить ответы в области чтения в Outlook 2013.
Автоматическое добавление персонализированного приветствия при ответе с помощью Kutools для Outlook
Некоторым пользователям может не нравиться использовать код VBA в Outlook. Поэтому предлагаем второй способ: утилита Kutools для Outlook «Автоматическое приветствие» позволяет легко добавлять персонализированные приветствия во все ответные сообщения.
Kutools для Outlookупрощает ежедневную работу с электронной почтой в Outlook, добавляя десятки полезных функций.Подробнее Скачать бесплатно
1. Нажмите Kutools > Параметры.
2. В открывшемся диалоговом окне «Параметры» перейдите на вкладку Ответ, установите флажок напротив параметра Автоматически добавлять приветствие при создании, ответе или пересылке электронных писем, настройте приветствие, добавив в поле ниже такие шаблоны, как >, > или > — в зависимости от ваших потребностей, — и нажмите кнопку ОК.
Теперь при ответе на сообщения в Outlook персонализированное приветствие будет автоматически добавляться в тело письма, как показано на скриншоте ниже:
Примечание: В Outlook 2013 эта утилита не работает, если вы отвечаете на сообщения в области чтения. Нажмите здесь, чтобы узнать, как отключить ответы в области чтения в Outlook 2013.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек