Hoe stelt u automatisch antwoorden in op ontvangen berichten wanneer u het druk heeft in Outlook?
Soms wilt u automatisch antwoorden op ontvangen berichten in Outlook wanneer u gedurende een bepaalde periode druk bent. Hoewel er geen ingebouwde functie is om dit te doen, bied ik u hier een VBA-code aan die dit probleem oplost.
Automatisch antwoord wanneer u druk bent met een VBA-code
Automatisch antwoord wanneer u druk bent met een VBA-code
Hier is een VBA-code die automatisch antwoordt zolang er afspraken in uw Outlook-agenda staan; zodra uw agenda leeg is, stopt het automatisch met beantwoorden.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik op ThisOutlookSession in het deelvenster Project1 en kopieer en plak de onderstaande code in het script.
VBA: Automatisch beantwoorden wanneer u druk bent in de agenda
Public WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
Set xMailItem = Item
Set xReplyMailItem = xMailItem.Reply
xReplyHTMLBody = xReplyMailItem.HTMLBody
Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
xAppointments.Sort "[Start]"
xAppointments.IncludeRecurrences = True
xDateFormat = Format(Now, "ddddd h:nn AMPM")
xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
Set xRestrictAppointments = xAppointments.Restrict(xFilter)
If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
For Each xAppointment In xRestrictAppointments
If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
xReplyHTMLBody
xReplyMailItem.Send
End If
Next
End If
End Sub3. Sla deze code op en start Outlook opnieuw. Vanaf nu wordt automatisch een antwoord verzonden zodra e-mails binnenkomen tijdens het tijdsbereik van uw afspraken.
Tips:
(1) In de code kunt u de inhoud van het antwoord naar wens aanpassen in dit script:„Het spijt me dat ik u nu niet kan beantwoorden. Ik neem later contact met u op." & _
(2) Deze VBA-macro beantwoordt automatisch e-mails in het Postvak IN van het standaard gegevensbestand.
AI Mail Assistant in Outlook: Slimmere antwoorden, helderder communicatie (magie met één klik!)
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert van uw eerdere e-mails om intelligente, nauwkeurige antwoorden te genereren, uw e-mailinhoud te optimaliseren en u moeiteloos te ondersteunen bij het opstellen en verbeteren van berichten.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld op basis van uw eerdere gesprekken — persoonlijk, nauwkeurig en direct klaar voor gebruik.
- Laat uw e-mailtekst automatisch verfijnen voor meer duidelijkheid en impact.
- Moeiteloos opstellen: Geef gewoon trefwoorden op en laat AI de rest doen, in meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten moeiteloos uit met contextbewuste suggesties.
- Samenvatting: Ontvang direct beknopte samenvattingen van lange e-mails.
- Wereldwijde reikwijdte: Vertaal uw e-mails moeiteloos naar elke gewenste taal.
Deze functie ondersteunt:
- Slimme e-mailantwoorden
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Vertaling in meerdere talen
Beste Office-productiviteitstools
Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!
📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…
📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…
📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…
🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...
👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...
👩🏼🤝👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!
🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!
- ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
- 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
- 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint