Naslednja koda VBA lahko samodejno doda osebni pozdrav pri odgovarjanju na sporočila v Outlooku. Naredite lahko naslednje:

1. Izberite e-poštno sporočilo, na katerega boste odgovorili.

2. Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo VBA v novo okno modula.

VBA: Odgovorite z osebnim pozdravom

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. Pritisnite F5 Vtipkajte ali kliknite Run za zagon tega VBA. Odprlo se bo pogovorno okno, kot je prikazano spodaj. Vnesite 1 ali 2 glede na vaše potrebe in kliknite OK gumb.

Vnesite 1 za pozdrav z imenom prejemnika:	Tip 2 za pozdrav s časom dneva:

Opombe: V programu Outlook 2013 ta koda VBA ne deluje, če v podoknu za branje odgovarjate na sporočila. Kliknite tukaj, če želite vedeti, kako onemogočiti odgovor v podoknu za branje v programu Outlook 2013.

Nekaterim uporabnikom morda ne bo všeč uporaba kode VBA v Outlooku. Zato predstavljam drugo metodo: Kutools for Outlook's Pripomoček za samodejni pozdrav bo v vsakem odgovorjenem sporočilu enostavno dodal osebni pozdrav.

Kutools for Outlook vam poenostavi dnevno komunikacijo po e-pošti prek Outlooka z dodajanjem na desetine uporabnih funkcij. Preberi več      Brezplačno prenesete zdaj

1. Kliknite Kutools > možnosti.

2. V pogovornem oknu Možnosti odprite pogovorno okno Odgovori zavihek, preverite Dodajte odgovor ob odgovoru možnost, vnesite Hi < >, v spodnje polje in kliknite OK gumb.

Od zdaj naprej se bo pri odgovarjanju na sporočila v Outlooku osebni pozdrav samodejno dodal v telo e-pošte, kot je prikazano na sliki:

Opombe: V programu Outlook 2013 ta pripomoček ne deluje, če v podoknu za branje odgovarjate na sporočila. Kliknite tukaj, če želite vedeti, kako onemogočiti odgovor v podoknu za branje v programu Outlook 2013.

Brezplačen prenos Kutools for Outlook