Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment définir les événements d'une journée entière par défaut sur « Occupé » dans Outlook ?

Author Siluvia Last modified

Par défaut, Outlook définit le statut des rendez-vous et réunions sur « Occupé », mais les événements d'une journée entière sur « Libre » (voir capture d'écran ci-dessous). Vous devez manuellement changer le statut « Afficher comme » à « Occupé » chaque fois que vous créez un événement d'une journée entière. Pour changer le statut par défaut des événements d'une journée entière en « Occupé », cet article vous propose deux méthodes.

changing the all-day event default to busy in Outlook

Changer le statut par défaut des événements d'une journée entière en « Occupé » en créant un formulaire personnalisé

Un formulaire personnalisé peut vous aider à créer un événement d'une journée entière avec le statut « Afficher comme » défini par défaut sur « Occupé ». Veuillez suivre les étapes ci-dessous.

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 ».

Remarque : Si l'onglet « Développeur » n'apparaît pas dans le ruban, veuillez suivre les méthodes décrites dans cet article pour l'afficher.

steps on changing the all-day event default to busy by creating a custom form

3. Ensuite, la fenêtre de rendez-vous passe en mode conception. Vous devez cliquer sur l'onglet « (P.2) ».

steps on changing the all-day event default to busy by creating a custom form

4. Faites glisser le champ « Événement toute la journée » et le champ « Afficher l'heure comme » depuis le volet « Sélecteur de champs » séparément vers le tableau sous l'onglet « (P.2) ».

steps on changing the all-day event default to busy by creating a custom form

5. Cliquez avec le bouton droit sur le champ « Événement toute la journée » déplacé et sélectionnez « Propriétés » dans le menu contextuel.

steps on changing the all-day event default to busy by creating a custom form

6. Dans la boîte de dialogue « Propriétés », vous devez configurer comme suit.

6.1) Allez à l'onglet « Valeur » ;
6.2) Dans la section « Valeur initiale », cochez la case « Définir la valeur initiale de ce champ à » ;
6.3) Entrez une valeur « True » dans la zone de texte ;
6.4) Cliquez sur le bouton « OK ». Voir capture d'écran :
steps on changing the all-day event default to busy by creating a custom form

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

steps on changing the all-day event default to busy by creating a custom form

8. Dans la boîte de dialogue « Propriétés », vous devez configurer comme suit.

8.1) Allez à l'onglet « Valeur » ;
8.2) Dans la section « Valeur initiale », cochez la case « Définir la valeur initiale de ce champ à » ;
8.3) Entrez un nombre « 2 » dans la zone de texte ;
8.4) Cliquez sur le bouton « OK ». Voir capture d'écran :
steps on changing the all-day event default to busy by creating a custom form

9. Cliquez sur « Publier » > « Publier le Formulaire Sous » dans le ruban.

steps on changing the all-day event default to busy by creating a custom form

10. Dans la boîte de dialogue « Publier le Formulaire Sous », vous devez :

10.1) Sélectionner un dossier de destination pour le formulaire personnalisé dans la liste déroulante « Regarder dans ». Ici, je choisis l'élément « Bibliothèque de Formulaires Personnels » ;
10.2) Nommez le formulaire personnalisé dans la zone de texte « Nom affiché » ;
10.3) Cliquez sur le bouton « Publier ». Voir capture d'écran :
steps on changing the all-day event default to busy by creating a custom form

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

12. Dès maintenant, lorsque vous devez créer un événement d'une journée entière avec le statut « Afficher comme » défini par défaut sur « Occupé », passez à la vue « Calendrier » et cliquez sur « Accueil » > « Nouveaux Éléments » > « Formulaires Personnalisés » > « Le nom du formulaire personnalisé ».

steps on changing the all-day event default to busy by creating a custom form

Remarque : Pour créer un événement d'une journée entière avec le statut « Afficher comme » défini par défaut sur « Libre », procédez comme d'habitude : cliquez sur « Accueil » > « Nouveau Rendez-vous », puis cochez la case « Événement toute la journée » dans la fenêtre « Rendez-vous ».

Changer le statut par défaut des événements d'une journée entière en « Occupé » en utilisant 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 comme » défini par défaut sur « Occupé », le code VBA suivant peut vous y aider facilement.

1. Lancez votre Outlook, appuyez simultanément sur les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic for Applications ».

2. Dans la fenêtre « Microsoft Visual Basic for Applications », double-cliquez sur « Projet1 » > « Objets Microsoft Outlook » > « ThisOutlookSession » pour ouvrir la fenêtre « ThisOutlookSession (Code) », puis copiez le code suivant dans cette fenêtre de code.

steps on changing the all-day event default to busy by using VBA

Code VBA : Définir le statut des événements d'une journée entière 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ès maintenant, après avoir converti un rendez-vous ou une réunion en un événement d'une journée entière, le statut « Afficher comme » sera défini par défaut sur « Occupé ».

steps on changing the all-day event default to busy by using VBA

Articles connexes

Modifier l'heure de rappel par défaut des événements d'une journée entière dans Outlook
Normalement, l'heure de rappel par défaut des événements d'une journée entière est de 18 heures dans Outlook 2007/2010 et de 0,5 jour dans Outlook 2013. Parfois, l'heure de rappel par défaut des événements d'une journée entière peut ne pas correspondre à votre emploi du temps. Nous allons ici vous présenter comment modifier l'heure de rappel par défaut des événements d'une journée entière dans Microsoft Outlook.

Modifier l'heure de suivi par défaut dans Outlook
Nous savons que lorsqu'on ajoute un rappel de suivi à un e-mail dans Outlook, l'heure de suivi par défaut est 16h30 (ou une autre heure selon vos heures de travail). Cependant, vous souhaiterez peut-être changer l'heure de suivi par défaut et être rappelé au début des heures de travail, comme 9h00. Dans cet article, je vais vous montrer comment modifier l'heure de suivi par défaut dans Outlook.

Modifier l'emplacement d'archivage par défaut dans Outlook
Par défaut, Outlook dispose d'un emplacement par défaut pour les fichiers d'archivage. Outre cet emplacement par défaut, vous pouvez définir votre propre emplacement d'archivage pour vos fichiers d'archivage. Dans ce tutoriel, nous vous montrerons comment modifier l'emplacement d'archivage par défaut dans Outlook en détail.

Modifier l'emplacement de sauvegarde des pièces jointes par défaut dans Outlook
En avez-vous assez de rechercher l'emplacement des pièces jointes que vous avez spécifié à chaque fois que vous lancez Outlook ? Dans ce tutoriel, nous vous montrerons comment modifier l'emplacement de sauvegarde des pièces jointes par défaut. Après cela, le dossier de sauvegarde des pièces jointes spécifié s'ouvrira automatiquement chaque fois que vous sauvegarderez les pièces jointes, même après avoir redémarré Outlook.

Modifier l'heure par défaut pour le délai de livraison dans Outlook
Ce tutoriel fournit un code VBA pour vous aider à modifier l'heure par défaut pour l'option de délai de livraison dans Outlook.

Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance sa version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Exploite une technologie avancée d’IA pour gérer les e-mails en toute simplicité, notamment pour répondre, résumer, optimiser, étendre, traduire et rédiger des e-mails.

📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...

📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...

📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...

🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire ...

Utilisez Kutools dans votre langue préférée – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez pas, téléchargez dès maintenant pour gagner en efficacité !

kutools for outlook features1 kutools for outlook features2

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Recommandé vivement : Kutools pour Office (5-en-1)

Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !

  • ✅ Praticité en un clic : téléchargez les cinq packages d’installation en une seule action.
  • 🚀 Prêt pour toutes les tâches Office : installez les compléments dont vous avez besoin, quand vous en avez besoin.
  • 🧰 Inclus : Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools pour PowerPoint