Hoe voeg je automatisch een gepersonaliseerde begroeting toe bij het beantwoorden in Outlook?
Normaal gesproken moeten we bij het beantwoorden van een e-mailbericht in Outlook handmatig een begroeting toevoegen. In feite bevat het originele bericht de informatie van de ontvanger, zoals de naam van de afzender. In dit artikel introduceer ik twee methoden om automatisch een gepersonaliseerde begroeting toe te voegen bij het beantwoorden in Outlook.
Automatisch een gepersonaliseerde begroeting toevoegen bij het beantwoorden met VBA
Automatisch een gepersonaliseerde begroeting toevoegen bij het beantwoorden met Kutools voor Outlook
Automatisch een gepersonaliseerde begroeting toevoegen bij het beantwoorden met VBA
De volgende VBA-code kan automatisch een gepersonaliseerde begroeting toevoegen bij het beantwoorden van berichten in Outlook. Je kunt als volgt te werk gaan:
1. Selecteer het e-mailbericht waarop je wilt reageren.
2. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
3. Klik op Invoegen > Module en plak de volgende VBA-code in het nieuwe modulevenster.
VBA: Reageren met gepersonaliseerde 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 Sub4. Druk op de F5-toets of klik op de knop Uitvoeren om deze VBA uit te voeren. Er verschijnt een dialoogvenster zoals in onderstaande schermafbeelding te zien is. Typ 1 of 2 op basis van je behoeften en klik vervolgens op de knop OK.
| Typ 1 voor een begroeting met de naam van de ontvanger: | Typ 2 voor een begroeting met de tijd van de dag: |
 |  |
Opmerking: In Outlook 2013 werkt deze VBA-code niet als je berichten beantwoordt in het Leesvenster. Klik hier om te weten hoe je het beantwoorden in het Leesvenster in Outlook 2013 uitschakelt.
Automatisch een gepersonaliseerde begroeting toevoegen bij het beantwoorden met Kutools voor Outlook
Sommige gebruikers zouden misschien geen VBA-code willen toepassen in Outlook. Daarom introduceer ik de tweede methode: het hulpprogramma Automatische Begroeting van Kutools voor Outlook voegt gemakkelijk gepersonaliseerde begroetingen toe in alle antwoordberichten.
Kutools voor Outlook vereenvoudigt je dagelijkse e-mailcommunicatie via Outlook door tientallen handige functies toe te voegen. Lees Meer Gratis Download Nu
1. Klik op Kutools > Opties.
2. Ga in het geopende Opties-dialoogvenster naar het Antwoorden tabblad, vink de optie Begroeting toevoegen bij het maken, beantwoorden en doorsturen van een e-mail aan, pas de begroeting aan door tijdelijke aanduidingen zoals <<AfzenderNaam>
Vanaf nu zal bij het beantwoorden van berichten in Outlook de gepersonaliseerde begroeting automatisch worden toegevoegd aan de e-mailtekst, zoals in onderstaande schermafbeelding te zien is:
Opmerking: In Outlook 2013 werkt dit hulpprogramma niet als je berichten beantwoordt in het Leesvenster. Klik hier om te weten hoe je het beantwoorden in het Leesvenster in Outlook 2013 uitschakelt.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen