Как да добавя автоматично персонализиран поздрав, когато отговаряте в Outlook?
Обикновено, когато отговаряме на имейл съобщение в Outlook, трябва ръчно да добавим поздрав. Всъщност оригиналното съобщение съдържа информация за получателя, като например името на подателя. И в тази статия ще представя два метода за автоматично добавяне на персонализиран поздрав при отговаряне в Outlook.
Автоматично добавяне на персонализиран поздрав, когато отговаряте с VBA
Автоматично добавяне на персонализиран поздрав, когато отговаряте с Kutools за Outlook
Автоматично добавяне на персонализиран поздрав, когато отговаряте с VBA
Следният 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 Клавиш или щракване бягане бутон за стартиране на този VBA. Ще се появи диалогов прозорец, както е показано на екранната снимка по-долу. Въведете 1 или 2 според вашите нужди и след това щракнете OK бутон.
Тип 1 за поздрав с име на получател: | Тип 2 за поздрав с час от деня: |
Забележка: В Outlook 2013 този VBA код не работи, ако отговаряте на съобщения в панела за четене. Кликнете тук, за да знаете как да деактивирате отговарянето в панела за четене в Outlook 2013.
Автоматично добавяне на персонализиран поздрав, когато отговаряте с Kutools за Outlook
Някои потребители може да не искат да прилагат VBA код в Outlook. Затова представям втория метод: Kutools за Outlook's Помощна програма за автоматичен поздрав ще добави персонализиран поздрав лесно във всички съобщения за отговор.
Kutools за Outlook опростява ежедневната ви комуникация по имейл чрез Outlook, като добавя десетки удобни функции. Вижте повече Безплатно изтегляне сега
1. Щракнете върху Kutools > Настроики.
2. В отварящия се диалогов прозорец Опции отидете на Отговор раздел, проверете Добавете поздрав при отговор опция, въведете Здравей < > в полето по-долу и щракнете върху OK бутон.
Отсега нататък, когато отговаряте на съобщения в Outlook, персонализираният поздрав ще се добавя автоматично в тялото на имейла, както е показано на следната екранна снимка:
Забележка: В Outlook 2013 тази помощна програма не работи, ако отговаряте на съобщения в панела за четене. Кликнете тук, за да знаете как да деактивирате отговарянето в панела за четене в Outlook 2013.
Демонстрация: автоматично добавяне на персонализиран поздрав при отговаряне в Outlook
тип: В това видео, Kutools разделът е добавен от Kutools за Outlook. Ако имате нужда от него, моля щракнете тук за да имате 60-дневен безплатен пробен период без ограничение!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!