Следующий код VBA может автоматически добавлять персонализированное приветствие при ответе на сообщения в Outlook. Вы можете сделать следующее:

1. Выберите сообщение электронной почты, на которое вы ответите.

2. нажмите другой + 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 Sub

4. нажмите F5 Ключ или щелкните Run кнопку для запуска этого VBA. Появится диалоговое окно, как показано на снимке экрана ниже. Введите 1 или 2 в зависимости от ваших потребностей, а затем щелкните OK .

Введите 1 для приветствия с именем получателя:	Тип 2 для приветствия с указанием времени суток:

Внимание: В Outlook 2013 этот код VBA не работает, если вы отвечаете на сообщения в области чтения. Нажмите здесь, чтобы узнать, как отключить ответ в области чтения в Outlook 2013.

Некоторым пользователям может не понравиться применять код VBA в Outlook. Поэтому я представляю второй метод: Kutools for Outlook's Утилита автоматического приветствия легко добавит персонализированное приветствие во все ответные сообщения.

Kutools for Outlook упрощает ежедневное общение по электронной почте через Outlook, добавляя десятки удобных функций. Узнать больше      Скачать сейчас

1. Нажмите Кутулс > Опции.

2. В открывшемся диалоговом окне «Параметры» перейдите к Ответить вкладку, проверьте Добавить приветствие при ответе вариант, введите Hi < > в поле ниже и щелкните OK .

С этого момента при ответе на сообщения в Outlook персонализированное приветствие будет автоматически добавляться в тело письма, как показано на следующем снимке экрана:

Внимание: В Outlook 2013 эта утилита не работает, если вы отвечаете на сообщения в области чтения. Нажмите здесь, чтобы узнать, как отключить ответ в области чтения в Outlook 2013.

Скачать бесплатно Kutools for Outlook