Wie erstelle ich automatisch den Namen eines lieben Absenders, wenn ich eine Nachricht in Outlook beantworte?
Wenn Sie eine E-Mail-Nachricht beantworten, sollten Sie den Namen und die Begrüßungen des Absenders manuell eingeben. Um Zeit zu sparen und die Arbeitseffizienz zu verbessern, können Sie den Namen und die Begrüßungen eines lieben Absenders automatisch in Outlook erstellen. In diesem Artikel werde ich einige nützliche Methoden zum Lösen dieser Aufgabe in Outlook erläutern.
Erstellen Sie automatisch den Namen und die Grüße eines lieben Absenders, wenn Sie eine Nachricht mit VBA-Code beantworten
Der folgende VBA-Code kann Ihnen dabei helfen, den Namen und die Grüße eines lieben Absenders beim Beantworten einer E-Mail-Nachricht automatisch einzufügen. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.
VBA-Code: Fügen Sie automatisch den Namen und die Grüße eines lieben Absenders ein, wenn Sie antworten:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. Schließen Sie dann Outlook und starten Sie es neu, um den Codeeffekt zu erzielen. Wenn Sie nun eine E-Mail-Nachricht beantworten, werden der Name und die Grüße eines lieben Absenders automatisch in den Text eingefügt (siehe Abbildung):
Erstellen Sie automatisch den Namen und die Grüße eines lieben Absenders, wenn Sie eine Nachricht mit Kutools for Outlook beantworten
Wenn Sie Kutools for OutlookMit seinen Begrüßung bei Antwort hinzufügen In dieser Funktion fügt Outlook beim Antworten automatisch den Namen des Absenders ein.
Kutools for Outlook : Mit mehr als 100 praktischen Outlook-Add-Ins können Sie es innerhalb von 60 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for Outlook, bitte mach das wie folgt:
1. Klicken Sie Kutoolen > Optionen, siehe Screenshot:
2. In dem Optionen Dialogfeld unter antworten Registerkarte, überprüfen Begrüßung bei Antwort hinzufügen Option, und geben Sie dann die Begrüßungen nach Bedarf ein, siehe Screenshot:
3. Dann klick OK Um diese Einstellung zu beenden, werden von nun an beim Beantworten einer Nachricht die Begrüßungen automatisch vor dem Nachrichtentext erstellt (siehe Abbildung):
Klicken Sie hier, um Kutools für Outlook herunterzuladen und jetzt kostenlos zu testen!
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.