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 biens dans le menu contextuel.

6. dans le biens 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 biens dans le menu contextuel.

8. dans le biens boîte de dialogue, vous devez configurer comme suit.

9. Cliquez Publier > 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

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat