Ga naar hoofdinhoud

Hoe verander je de standaard voor de hele dag in bezet in Outlook?

Standaard stelt Outlook de status van afspraken en vergaderingen in op: "Druk", maar de hele dag evenementen om "Vrij" (zie screenshot hieronder). Elke keer dat u een evenement voor de hele dag maakt, moet u de status Weergeven als handmatig wijzigen in Bezet. Om de standaard weergeven als status van gebeurtenissen die de hele dag duren te wijzigen in Bezet, biedt het artikel u twee methoden.


Wijzig de standaard voor afspraak voor de hele dag in bezet door een aangepast formulier te maken

Een aangepast formulier kan je helpen een evenement te maken dat de hele dag duurt met de standaard Tonen als status van Druk. Ga als volgt te werk.

1. Ga naar de kalenderweergave. Klik Home > Nieuwe afspraak.

2. Klik in het nieuwe Afspraakvenster op Ontwikkelaar > Dit formulier ontwerpen.

Tips: Indien de Ontwikkelaar tabblad wordt niet weergegeven op het lint, volg de methoden in dit artikel om het weer te geven.

3. Vervolgens gaat het afspraakvenster naar de ontwerpmodus. U moet op de klikken (P.2) Tab.

4. Sleept de De hele dag evenement veld en het Toon tijd als veld van de Veldkiezer deelvenster afzonderlijk aan het bord onder de (P.2) tab

5. Klik met de rechtermuisknop op de uitgesleepte De hele dag evenement veld en selecteer Properties vanuit het contextmenu.

6. In de Properties dialoogvenster, moet u als volgt configureren.

6.1) Ga naar de Waarde tab;
6.2) In de Beginwaarde sectie, controleer de Stel de beginwaarde van dit veld in op doos;
6.3) Voer een waarde in "Waar" in het tekstvak;
6.4) Klik op de OK knop. Zie screenshot:

7. Klik met de rechtermuisknop op de keuzelijst van de Toon tijd als veld en klik Properties vanuit het contextmenu.

8. In de Properties dialoogvenster, moet u als volgt configureren.

8.1) Ga naar de Waarde tab;
8.2) In de Beginwaarde sectie, controleer de Stel de beginwaarde van dit veld in op doos;
8.3) Voer een nummer in “2” in het tekstvak;
8.4) Klik op de OK knop. Zie screenshot:

9. klikken Publiceer > Formulier publiceren als op het lint.

10. In de Formulier publiceren als dialoogvenster, moet u:

10.1) Selecteer een doelmap voor het aangepaste formulier in de Kijk in keuzelijst. Hier kies ik de Persoonlijke formulierenbibliotheek item;
10.2) Geef het aangepaste formulier een naam in de Gebruikersnaam tekstvak;
10.3) Klik op de Publiceer knop. Zie screenshot:

11. Sluit het Afspraakvenster zonder op te slaan.

12. Als u vanaf nu een evenement voor de hele dag moet maken met de Toon als status standaard op Bezet, ga dan naar de Agenda bekijk en klik Home > Nieuwe producten > Aangepaste formulieren > “De naam van het aangepaste formulier”.

Opmerking: Als u een evenement voor de hele dag wilt maken met de status Weergeven als standaard op "Gratis", doet u gewoon zoals gewoonlijk: klik op Home > Nieuwe afspraaken controleer vervolgens de All day event box aan de Afspraak venster.


Wijzig de standaard voor de hele dag in bezet met behulp van VBA

De bovenstaande methode heeft te veel stappen. Als je altijd een evenement voor de hele dag moet maken met de status Weergeven als standaard op 'Bezet', kan de volgende VBA-code je helpen dit gemakkelijk voor elkaar te krijgen.

1. Start uw Outlook, druk op de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik op Project1 > Microsoft Outlook-objecten > DezeOutlookSessie om de te openen DezeOutlookSessie (Code) venster en kopieer vervolgens de volgende code naar dit codevenster.

VBA-code: stel de status van de hele dag in 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, na het omzetten van een afspraak of een vergadering naar een dagvullend evenement, Tonen als status wordt weergegeven als: "Druk" standaard.


Gerelateerde artikelen

Wijzig de standaard herinneringstijd van de hele dag gebeurtenissen in Outlook
Normaal gesproken is de standaardherinneringstijd voor een gebeurtenis die de hele dag duurt 18 uur in Outlook 2007/2010 en 0.5 dag in Outlook 2013. Soms komt de standaardherinneringstijd voor een gebeurtenis die de hele dag duurt, niet overeen met uw werkschema. Hier zullen we de manier introduceren om de standaard herinneringstijd van gebeurtenissen die de hele dag duren in Microsoft Outlook te wijzigen.

Wijzig de standaard follow-up tijd in Outlook
Zoals we weten, is de standaardopvolgingstijd 4 uur (of een andere tijd afhankelijk van uw werktijden) wanneer we een vervolgherinnering voor een e-mail in Outlook toevoegen. Het kan echter zijn dat u de standaardopvolgingstijd wilt wijzigen en u eraan wilt laten herinneren aan het begin van werkuren, zoals 30:9 uur 's ochtends. In dit artikel laat ik je zien hoe je de standaard opvolgtijd in Outlook kunt wijzigen.

Wijzig de standaard archieflocatie in Outlook
Outlook heeft standaard een standaardlocatie voor de archiefbestanden. Naast de standaardlocatie kunt u uw eigen archieflocatie instellen voor uw archiefbestanden. In deze zelfstudie laten we u zien hoe u de standaard archieflocatie in Outlook in detail kunt wijzigen.

Wijzig de standaardlocatie voor het opslaan van bijlagen in Outlook
Ben je het zat om de bijlagelocatie te vinden die je hebt opgegeven telkens wanneer je Outlook start? In deze zelfstudie laten we u zien hoe u de standaardlocatie voor bijlagen kunt wijzigen. Daarna wordt de opgegeven map voor het opslaan van bijlagen automatisch geopend telkens wanneer u de bijlagen opslaat, ook al start u Outlook opnieuw op.

Wijzig de standaardtijd voor vertraagde levering in Outlook
Deze zelfstudie biedt een VBA-code waarmee u de standaardtijd voor de optie voor vertraagde levering in Outlook kunt wijzigen.


Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen ProBatch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ahoj,
ani mě to nefunguje. Nevyskočila ani žádná zpráva.
Office Microsoft 365 apps pro velké organizace.

Můžu to nějak trasovat nebo najít někde v logu?

Dík Honza
This comment was minimized by the moderator on the site
Hi,
I've tried the second technique but it did not work. Do you know whether this still works on the newest Outlook version ?
Best,
Ben
This comment was minimized by the moderator on the site
Hi Benjamin Djian,
Yes the code still works on the newest Outlook version? Did you get any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations