Wie fügt man beim Antworten in Outlook automatisch eine personalisierte Begrüßung ein?
Normalerweise müssen Sie beim Antworten auf eine E-Mail-Nachricht in Outlook die Begrüßung manuell hinzufügen. Tatsächlich enthält die ursprüngliche Nachricht jedoch Informationen über den Empfänger, wie beispielsweise den Absendername. In diesem Artikel stelle ich zwei Methoden vor, um beim Antworten in Outlook automatisch eine personalisierte Begrüßung einzufügen.
Automatisches Hinzufügen einer personalisierten Begrüßung beim Antworten mithilfe von VBA
Automatisches Hinzufügen einer personalisierten Begrüßung beim Antworten mit Kutools für Outlook
Automatisches Hinzufügen einer personalisierten Begrüßung beim Antworten mithilfe von VBA
Der folgende VBA-Code fügt beim Antworten auf Nachrichten in Outlook automatisch eine personalisierte Begrüßung hinzu. Gehen Sie dazu wie folgt vor:
1. Wählen Sie die E-Mail-Nachricht aus, auf die Sie antworten möchten.
2. Drücken Sie die Tastenkombination Alt+F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das neue Modulfenster ein.
VBA: Antworten mit personalisierter 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 Sub4. Drücken Sie die F5-Taste oder klicken Sie auf die Schaltfläche Ausführen, um diesen VBA-Code auszuführen. Es erscheint ein Dialogfeld wie im folgenden Screenshot gezeigt. Geben Sie je nach Bedarf „1“ oder „2“ ein und klicken Sie anschließend auf die Schaltfläche OK.
| Geben Sie 1 für eine Begrüßung mit Empfängername ein: | Geben Sie 2 für eine Begrüßung je nach Tageszeit ein: |
 |  |
Hinweis: In Outlook 2013 funktioniert dieser VBA-Code nicht, wenn Sie Nachrichten im Lesebereich beantworten. Klicken Sie hier, um zu erfahren, wie Sie das Antworten im Lesebereich in Outlook 2013 deaktivieren können.
Automatisches Hinzufügen einer personalisierten Begrüßung beim Antworten mit Kutools für Outlook
Einige Benutzer möchten möglicherweise keinen VBA-Code in Outlook verwenden. Daher stelle ich eine zweite Methode vor: Das Hilfsprogramm Kutools für Outlook Automatische Begrüßung fügt in allen Antwortnachrichten mühelos personalisierte Begrüßungen hinzu.
Kutools für Outlookvereinfacht Ihre tägliche E-Mail-Kommunikation über Outlook durch zahlreiche praktische Funktionen.Weitere Informationen Jetzt kostenlos herunterladen
1. Klicken Sie auf Kutools > Optionen.
2. Wechseln Sie im geöffneten Dialogfeld „Optionen“ zur Registerkarte Antworten, aktivieren Sie die Option Automatisch Begrüßung hinzufügen beim Verfassen, Antworten oder Weiterleiten von E-Mails, passen Sie die Begrüßung an, indem Sie Platzhalter wie >, > oder > entsprechend Ihren Anforderungen in das unten stehende Feld eingeben, und klicken Sie auf die Schaltfläche OK.
Ab sofort wird beim Antworten auf Nachrichten in Outlook die personalisierte Begrüßung automatisch in den E-Mail-Text eingefügt, wie im folgenden Screenshot dargestellt:
Hinweis: In Outlook 2013 funktioniert dieses Hilfsprogramm nicht, wenn Sie Nachrichten im Lesebereich beantworten. Klicken Sie hier, um zu erfahren, wie Sie das Antworten im Lesebereich in Outlook 2013 deaktivieren können.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Tabs in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
- Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office Das Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit verschiedenen Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins