Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

Maak automatisch de naam en begroetingen van een lieve afzender wanneer u een bericht beantwoordt met Kutools voor Outlook


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 de 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

doc auto beste afzender naam 1

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:

doc auto beste afzender naam 2


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:

doc auto beste afzender naam 3

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:

doc auto beste afzender naam 4

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:

doc auto beste afzender naam 5

Klik om Kutools voor Outlook en nu gratis uit te proberen!


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Wesley Nelson · 1 years ago
    Dear Team,

    If I have set up the above configuration however, if I am replying to an email that has multiply recipients in the To, the greeting is not defaulting. How do I achieve this?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Wesley,
      Yes, as you said, if there are multiple recipients in the To field, the greeting will not be inserted by default.