De volgende VBA-code kan automatisch een persoonlijke begroeting toevoegen bij het beantwoorden van berichten in Outlook. U kunt het volgende doen:

1. Selecteer het e-mailbericht dat u wilt beantwoorden.

2. druk de anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

3. Klik op het Invoegen > Moduleen plak de volgende VBA-code in het nieuwe modulevenster.

VBA: antwoord met persoonlijke begroeting

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. druk de F5 Toets of klik lopen knop om deze VBA uit te voeren. Er verschijnt een dialoogvenster zoals hieronder weergegeven schermafbeelding. Typ 1 of 2 op basis van uw behoeften en klik vervolgens op OK knop.

Typ 1 voor begroeting met de naam van de ontvanger:	Typ 2 voor begroeting met het tijdstip van de dag:

Note: In Outlook 2013 werkt deze VBA-code niet als u berichten beantwoordt in het leesvenster. Klik hier om te weten hoe u antwoorden in het leesvenster in Outlook 2013 kunt uitschakelen.

Sommige gebruikers willen VBA-code misschien niet toepassen in Outlook. Daarom introduceer ik de tweede methode: Kutools for Outlook's Hulpprogramma voor automatische begroeting voegt gemakkelijk een persoonlijke begroeting toe aan alle antwoordende berichten.

Kutools for Outlook vereenvoudigt uw dagelijkse e-mailcommunicatie via Outlook door tientallen handige functies toe te voegen. Lees meer      Gratis nu downloaden

1. Klik op het Kutools > Opties.

2. Ga in het dialoogvenster Opties openen naar het Antwoorden tabblad, controleer het Begroeting toevoegen bij antwoord optie, typ Hallo < >, in het onderstaande vak en klik op het OK knop.

Vanaf nu wordt bij het beantwoorden van berichten in Outlook de persoonlijke begroeting automatisch aan de e-mail toegevoegd, zoals in de volgende schermafbeelding:

Note: In Outlook 2013 werkt dit hulpprogramma niet als u berichten beantwoordt in het leesvenster. Klik hier om te weten hoe u antwoorden in het leesvenster in Outlook 2013 kunt uitschakelen.

Gratis download Kutools voor Outlook