Následující kód VBA může automaticky přidávat osobní pozdrav, když odpovídáte na zprávy v Outlooku. Můžete postupovat následovně:

1. Vyberte e-mailovou zprávu, na kterou budete odpovídat.

2. zmáčkni Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

3. Klepněte na tlačítko Vložit > Modula vložte následující kód VBA do nového okna modulu.

VBA: Odpovězte osobním pozdravem

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. zmáčkni F5 Klíč nebo klik Běh tlačítko pro spuštění tohoto VBA. Zobrazí se dialogové okno, jak je uvedeno níže. Zadejte 1 nebo 2 podle svých potřeb a poté klikněte OK .

Typ 1 pro pozdrav s jménem příjemce:	Typ 2 pro pozdrav s denní dobou:

Poznámka: V aplikaci Outlook 2013 tento kód VBA nefunguje, pokud odpovídáte na zprávy v podokně čtení. Klepněte na zde se dozvíte, jak zakázat odpovědi v podokně čtení v aplikaci Outlook 2013.

Někteří uživatelé nemusí chtít použít kód VBA v Outlooku. Proto představuji druhou metodu: Kutools pro Outlook Nástroj pro automatický pozdrav do všech odpovědí snadno přidá osobní pozdrav.

Kutools pro aplikaci Outlook zjednodušuje vaši každodenní e-mailovou komunikaci prostřednictvím aplikace Outlook přidáním desítek užitečných funkcí. Více      Stáhnout zdarma

1. Klepněte na tlačítko Kutools > možnosti.

2. V úvodním dialogovém okně Možnosti přejděte na odpověď karta, zkontrolujte Při odpovědi přidejte pozdrav možnost zadejte Hi < > do níže uvedeného pole a klikněte na ikonu OK .

Od této chvíle se při odpovídání na zprávy v Outlooku přizpůsobený pozdrav automaticky přidá do těla e-mailu, jak ukazuje následující snímek obrazovky:

Poznámka: V aplikaci Outlook 2013 tento nástroj nefunguje, pokud odpovídáte na zprávy v podokně čtení. Klepněte na zde se dozvíte, jak zakázat odpovědi v podokně čtení v aplikaci Outlook 2013.

Stažení zdarma Kutools pro Outlook