Der folgende VBA-Code kann beim Beantworten von Nachrichten in Outlook automatisch eine personalisierte Begrüßung hinzufügen. Sie können wie folgt vorgehen:

1. Wählen Sie die E-Mail-Nachricht aus, die Sie beantworten möchten.

2. Drücken Sie die Taste Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

3. Klicken Sie auf die Insert > Modulund fügen Sie den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Antworten Sie mit persönlicher Begrüßung

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. Drücken Sie die Taste F5 Schlüssel oder Klick Führen Sie Schaltfläche, um diese VBA auszuführen. Daraufhin wird ein Dialogfeld angezeigt (siehe Abbildung unten). Geben Sie je nach Bedarf 1 oder 2 ein und klicken Sie dann auf OK .

Geben Sie 1 zur Begrüßung mit dem Empfängernamen ein:	Typ 2 zur Begrüßung mit Tageszeit:

Note: In Outlook 2013 funktioniert dieser VBA-Code nicht, wenn Sie Nachrichten im Lesebereich beantworten. Klicken Hier erfahren Sie, wie Sie das Antworten im Lesebereich in Outlook 2013 deaktivieren.

Einige Benutzer möchten möglicherweise keinen VBA-Code in Outlook anwenden. Deshalb stelle ich die zweite Methode vor: Kutools für Outlooks Dienstprogramm zur automatischen Begrüßung fügt allen antwortenden Nachrichten einfach eine personalisierte Begrüßung hinzu.

Kutools for Outlook vereinfacht Ihre tägliche E-Mail-Kommunikation über Outlook, indem Dutzende praktischer Funktionen hinzugefügt werden. Weiterlesen      Kostenloser Download jetzt

1. Klicken Sie auf die Kutoolen > Optionen.

2. Wechseln Sie im sich öffnenden Dialogfeld Optionen zu antworten Registerkarte, überprüfen Sie die Begrüßung bei Antwort hinzufügen Option, geben Sie Hi <ein > in das unten stehende Feld und klicken Sie auf OK .

Wenn Sie Nachrichten in Outlook beantworten, wird die personalisierte Begrüßung von nun an automatisch zum E-Mail-Text hinzugefügt, wie im folgenden Screenshot gezeigt:

Note: In Outlook 2013 funktioniert dieses Dienstprogramm nicht, wenn Sie Nachrichten im Lesebereich beantworten. Klicken Hier erfahren Sie, wie Sie das Antworten im Lesebereich in Outlook 2013 deaktivieren.

Kostenloser Download Kutools für Outlook