Hoe stelt u de standaardinstelling voor hele-dag-activiteiten in Outlook in op ‘Bezet’?

Standaard stelt Outlook de status van een vergadering in op „Bezet”, maar die van hele-dag-activiteiten op „Vrij” (zie de onderstaande schermafbeelding). Telkens wanneer u een hele-dag-activiteit maakt, moet u de ‘Weergeven als’-status handmatig instellen op „Bezet”. Dit artikel biedt u twee methoden om de standaard ‘Weergeven als’-status voor hele-dag-activiteiten permanent op „Bezet” in te stellen.

De standaardinstelling van hele-dag-activiteiten op Bezet zetten door een aangepast formulier te maken

Een aangepast formulier helpt u eenvoudig een hele-dag-activiteit te maken met de standaardweergave ‘Bezet’. Volg hiervoor deze stappen.

1. Schakel over naar de agenda-weergave en klik op ‘Start’ > ‘Afspraak’.

2. Klik in het venster Afspraak op ‘Ontwikkelaar’ > ‘Dit formulier ontwerpen’.

Tip: Als het tabblad ‘Ontwikkelaar’ niet zichtbaar is op het lint, volg dan de instructies in dit artikel om het weer zichtbaar te maken.

3. Het afspraakvenster schakelt nu over naar ontwerpmodus. Klik op het tabblad ‘(P.2)’.

4. Sleep het veld ‘Hele dag’ en het veld ‘Bezettingsstatus’ afzonderlijk vanuit het deelvenster ‘Veldkiezer’ naar het werkblad onder het tabblad ‘(P.2)’.

5. Klik met de rechtermuisknop op het gesleepte veld ‘Hele dag’ en kies ‘Eigenschappen’ in het contextmenu.

6. Configureer het volgende in het dialoogvenster ‘Eigenschappen’:

7. Klik met de rechtermuisknop op het keuzemenu van het veld ‘Bezettingsstatus’ en selecteer ‘Eigenschappen’ in het contextmenu.

8. Configureer het volgende in het dialoogvenster ‘Eigenschappen’:

9. Klik op ‘Publiceren’ > ‘Formulier publiceren als’ in het lint.

10. Voer het volgende in het dialoogvenster ‘Formulier publiceren als’ uit:

11. Sluit het afspraakvenster zonder uw wijzigingen op te slaan.

12. Vanaf nu kunt u, wanneer u een hele-dag-activiteit wilt maken met de standaard ‘Weergeven als’-status Bezet, overschakelen naar de Agenda-weergave en klikken op Start > Nieuwe items > Aangepaste formulieren > De naam van het aangepaste formulier.

Opmerking: Om een hele-dag-activiteit te maken met de standaard ‘Weergeven als’-status ‘Vrij’, gaat u gewoon als volgt te werk: klik op ‘Start’ > ‘Afspraak’ en vink vervolgens het vakje ‘Hele dag’ aan in het ‘Afspraak’-venster.

De standaardinstelling van hele-dag-activiteiten op Bezet zetten met VBA

De bovenstaande methode telt te veel stappen. Als u regelmatig een hele-dag-activiteit moet aanmaken met de standaard ‘Weergeven als’-status ‘Bezet’, dan helpt de volgende VBA-code u dit eenvoudig te realiseren.

1. Start Outlook en druk tegelijkertijd op ‘Alt’ + ‘F11’ om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster ‘Microsoft Visual Basic for Applications’ op ‘Project1’ > ‘Microsoft Outlook-objecten’ > ‘ThisOutlookSession’ om het codevenster ‘ThisOutlookSession (Code)’ te openen, en plak daarna de volgende code in dit venster.

VBA-code: Standaardstatus van hele-dag-activiteit instellen op ‘Bezet’

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3. Sla de VBA-code op en start Outlook opnieuw.

Vanaf nu wordt de ‘Weergeven als’-status standaard ingesteld op ‘Bezet’ zodra u een afspraak of vergadering omzet naar een hele-dag-activiteit.

Gerelateerde artikelen

---

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧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!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

Functielijst van Kutools voor Outlook      Nu downloaden      Naar aankoop gaan

🚀 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

Over het pakket⬇ Download het pakket💳 Koop het pakket