Comment changer la valeur par défaut de l'événement toute la journée en occupé dans Outlook ?

Par défaut, Outlook définit le statut des rendez-vous et des réunions sur "Occupé", mais des événements toute la journée pour "Libre" (voir capture d'écran ci-dessous). Vous devez modifier manuellement l'état Afficher comme sur Occupé chaque fois que vous créez un événement d'une journée entière. Pour modifier l'affichage par défaut en tant que statut des événements d'une journée entière sur Occupé, l'article vous propose deux méthodes.

Modifiez la valeur par défaut de l'événement d'une journée entière sur occupé en créant un formulaire personnalisé

Un formulaire personnalisé peut vous aider à créer un événement d'une journée avec la valeur par défaut Montrer comme statut de Occupé. Veuillez procéder comme suit.

1. Passez à la vue Calendrier. Cliquez sur Accueil > Nouveau rendez-vous.

2. Dans la nouvelle fenêtre de rendez-vous, cliquez sur Développeur > Concevoir ce formulaire.

Conseils: Si la Développeur l'onglet ne s'affiche pas sur le ruban, veuillez suivre les méthodes dans cet article pour l'afficher.

3. Ensuite, la fenêtre de rendez-vous passe en mode conception. Vous devez cliquer sur le (P.2) languette.

4. Faites glisser le Événement sur un jour champ et le Afficher l'heure comme champ de la Sélecteur de champ volet séparément au tableau sous le (P.2) languette

5. Faites un clic droit sur le Événement sur un jour champ et sélectionnez Propriétés dans le menu contextuel.

6. dans le Propriétés boîte de dialogue, vous devez configurer comme suit.

7. Cliquez avec le bouton droit sur la zone de liste déroulante du Afficher l'heure comme champ et cliquez Propriétés dans le menu contextuel.

8. dans le Propriétés boîte de dialogue, vous devez configurer comme suit.

9. Cliquez Publier des contenus de qualité, brochure HXNUMX > Publier le formulaire en tant que sur le ruban.

10. dans le Publier le formulaire en tant que boîte de dialogue, vous devez:

11. Fermez la fenêtre Rendez-vous sans enregistrer.

12. À partir de maintenant, lorsque vous devez créer un événement d'une journée entière avec le statut Afficher par défaut sur Occupé, veuillez passer au Calendrier voir et cliquer Accueil > Nouveautés > Formulaires personnalisés > "Le nom du formulaire personnalisé".

Remarque : Pour créer un événement d'une journée entière avec le statut Afficher par défaut sur "Gratuit", procédez comme d'habitude : cliquez sur Accueil > Nouveau rendez-vous, puis vérifiez le Événement d'une journée boîte dans la Rendez-vous fenêtre.

Changer la valeur par défaut de l'événement toute la journée en occupé à l'aide de VBA

La méthode ci-dessus comporte trop d'étapes. Si vous avez toujours besoin de créer un événement d'une journée entière avec le statut Afficher par défaut sur "Occupé", le code VBA suivant peut vous aider à le faire facilement.

1. Lancez votre Outlook, appuyez sur le autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez sur Project1 > Objets Microsoft Outlook > Cette session Outlook ouvrir le Cette session Outlook (Code) fenêtre, puis copiez le code suivant dans cette fenêtre de code.

Code VBA : définissez l'état de l'événement Toute la journée par défaut sur « Occupé »

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. Enregistrez le code VBA et redémarrez Outlook.

Désormais, après avoir converti un rendez-vous ou une réunion en événement d'une journée entière, le Montrer comme le statut s'affichera comme "Occupé" par défaut.

Articles connexes

---

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

• CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
• Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
• Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
• Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
• Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.

Lire la suite... Télécharger maintenant...