Наступний код VBA може автоматично додавати персоналізоване привітання під час відповіді на повідомлення в Outlook. Ви можете зробити наступне:

1. Виберіть повідомлення електронної пошти, на яке Ви відповісте.

2 Натисніть кнопку інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

3. Натисніть Insert > Модуліта вставте наступний код 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 Введіть або натисніть прогін для запуску цього VBA. З'явиться діалогове вікно, як показано нижче. Введіть 1 або 2 відповідно до ваших потреб, а потім натисніть OK кнопки.

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

примітки: У програмі Outlook 2013 цей код VBA не працює, якщо ви відповідаєте на повідомлення на панелі читання. Клацніть тут, щоб дізнатись, як вимкнути відповідь у панелі читання в Outlook 2013.

Деяким користувачам може не сподобатися застосовувати код VBA в Outlook. Тому я представляю другий метод: Kutools для Outlook Утиліта автоматичного привітання легко додасть персоналізоване привітання у всі повідомлення, що відповідають.

Kutools для Outlook спрощує щоденне спілкування електронною поштою через Outlook, додаючи десятки зручних функцій. Детальніше      Безкоштовно завантажити зараз

1. Натисніть Кутулс > Опції.

2. У діалоговому вікні Параметри відкриття перейдіть до відповісти , перевірте Додайте привітання під час відповіді варіант, введіть Hi < >, у поле нижче, і натисніть на OK кнопки.

Відтепер, під час відповіді на повідомлення в Outlook, персоналізоване привітання буде автоматично додано до тіла електронної пошти, як показано на наступному знімку екрана:

примітки: У програмі Outlook 2013 ця утиліта не працює, якщо ви відповідаєте на повідомлення на панелі читання. Клацніть тут, щоб дізнатись, як вимкнути відповідь у панелі читання в Outlook 2013.

Безкоштовно завантажте Kutools для Outlook