Hoe automatisch een lieve afzendernaam maken bij het beantwoorden van een bericht in Outlook?
Wanneer u een e-mailbericht beantwoordt, moet u de naam en begroetingen van de afzender handmatig typen. Om tijd te besparen en de werkefficiëntie te verbeteren, kunt u overwegen om de naam en begroetingen van een goede afzender automatisch in Outlook te maken. In dit artikel zal ik enkele handige methoden bespreken om deze taak in Outlook op te lossen.
Maak automatisch de naam en begroetingen van een lieve afzender wanneer u een bericht beantwoordt met VBA-code
De volgende VBA-code kan u helpen bij het automatisch invoegen van de naam en begroetingen van een dierbare afzender bij het beantwoorden van een e-mailbericht, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.
VBA-code: voeg automatisch de naam en begroetingen van een lieve afzender in bij het beantwoorden:
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. Sluit vervolgens Outlook en start het opnieuw om het code-effect te krijgen, en nu, wanneer u een e-mailbericht beantwoordt, worden de naam en de begroetingen van een lieve afzender automatisch in de body ingevoegd, zie screenshot:
Maak automatisch de naam en begroetingen van een lieve afzender wanneer u een bericht beantwoordt met Kutools voor Outlook
Als je Kutools for Outlook, Met Begroeting toevoegen bij antwoord functie, zal Outlook automatisch de naam van de afzender invoegen bij het beantwoorden.
Kutools for Outlook : met meer dan 100 handige Outlook-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. |
Na het installeren van Kutools for Outlook, doe dit als volgt:
1. Klikken Kutools > Opties, zie screenshot:
2. In de Opties dialoogvenster onder het Antwoorden tab, vink aan Begroeting toevoegen bij antwoord optie en voer vervolgens de begroetingen in zoals je nodig hebt, zie screenshot:
3. Dan klikken OK om deze instelling te voltooien, worden vanaf nu bij het beantwoorden van een bericht de begroetingen automatisch voor de berichttekst gemaakt, zie screenshot:
Klik om Kutools voor Outlook en nu gratis uit te proberen!
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.