Hur lägger jag automatiskt till personlig hälsning när du svarar i Outlook?

Normalt när vi svarar på ett e-postmeddelande i Outlook måste vi lägga till hälsningen manuellt. Egentligen innehåller originalmeddelandet mottagarens information, till exempel avsändarens namn. Och i den här artikeln kommer jag att introducera två metoder för att automatiskt lägga till personlig hälsning när du svarar i Outlook.

Lägg automatiskt till personlig hälsning när du svarar med VBA

Lägg automatiskt till personlig hälsning när du svarar med Kutools for Outlook

Lägg automatiskt till personlig hälsning när du svarar med VBA

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 knappen för att köra denna VBA. Det kommer att dyka upp en dialogruta enligt skärmbilden nedan. Skriv 1 eller 2 baserat på dina behov och klicka sedan 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 den här VBA-koden om du svarar på meddelanden i läsrutan. Klick här för att veta hur du inaktiverar svar i läsfönstret i Outlook 2013.

Lägg automatiskt till personlig hälsning när du svarar med Kutools for Outlook

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 personliga hälsningar i alla svarsmeddelanden.

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 > Montering.

2. Gå till dialogrutan Alternativ för öppning Svara fliken, kontrollera Lägg till en hälsning när du skapar, svarar på och vidarebefordrar ett e-postmeddelande alternativet, anpassa hälsningen genom att inkludera platshållare som <>,<> eller <> baserat på dina behov.i rutan nedan och klicka på OK knapp.

Från och med nu, när du svarar på meddelanden i Outlook, kommer den personliga hälsningen att läggas till automatiskt i e-postmeddelandet enligt följande skärmdump:

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