Följande VBA-kod kan automatiskt lägga till personlig hälsning när du svarar på meddelanden i Outlook. Du kan göra på följande sätt:

1. Välj e-postmeddelandet som du ska svara.

2. tryck på andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.

3. Klicka på Insert > Modulernaoch klistra in följande VBA-kod i det nya modulfönstret.

VBA: Svara med personlig hälsning

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. tryck på F5 Knappa eller klicka Körning för att köra denna VBA. Det kommer att dyka upp en dialogruta som visas nedan. Skriv 1 eller 2 baserat på dina behov och klicka sedan på OK knapp.

Typ 1 för hälsning med mottagarens namn:	Typ 2 för hälsning med tid på dagen:

Anmärkningar: I Outlook 2013 fungerar inte denna VBA-kod om du svarar på meddelanden i läsfönstret. Klick här för att veta hur du inaktiverar svar i läsfönstret i Outlook 2013.

Vissa användare kanske inte vill tillämpa VBA-kod i Outlook. Därför introducerar jag den andra metoden: Kutools for Outlook Verktyg för automatisk hälsning kommer enkelt att lägga till personlig hälsning i alla svarande meddelanden.

Kutools för Outlook förenklar din dagliga e-postkommunikation via Outlook genom att lägga till dussintals praktiska funktioner. Läs mer      Gratis nedladdning nu

1. Klicka på Kutools > Tillbehör.

2. Gå till dialogrutan Alternativ för öppning Svara fliken, kontrollera Lägg till hälsning vid svar alternativ, skriv Hej < >, i rutan nedan och klicka på OK knapp.

Från och med nu, när du svarar på meddelanden i Outlook, läggs den personliga hälsningen automatiskt till i e-postkroppen som följande skärmdump visas:

Anmärkningar: I Outlook 2013 fungerar det här verktyget inte om du svarar på meddelanden i läsfönstret. Klick här för att veta hur du inaktiverar svar i läsfönstret i Outlook 2013.

Gratis nedladdning Kutools för Outlook