Comment définir l'heure de début et de fin par défaut des événements d'une journée entière en fonction de vos heures de travail dans Outlook

Par défaut, Outlook ne vous permet pas de modifier les heures de début et de fin des événements d'une journée. Cet article vous explique comment définir ces heures par défaut en fonction de vos horaires de travail.

Comme vous pouvez le constater, lorsque vous activez l'option « Événement d'une journée » pour un rendez-vous, les champs « Heure de début » et « Heure de fin » sont grisés. Dans ce cas, vous ne pouvez pas les modifier. C'est pourquoi nous allons vous expliquer comment définir les heures de début et de fin par défaut des événements d'une journée en fonction de vos heures de travail dans Outlook.

Définissez l'heure de début et de fin par défaut des événements d'une journée entière en fonction des heures de travail.

1. Pour commencer, lancez votre programme Outlook.
2. Une fois dans l'écran principal d'Outlook, vous pouvez appuyer sur les touches "Alt + F11".
3. Par la suite, vous aurez accès à la fenêtre de l'éditeur Outlook VBA.
4. Dans la fenêtre "Microsoft Visual Basic pour Applications" actuelle, vous devez ouvrir la fenêtre de projet "ThisOutlookSession".
5. Copiez ensuite le code VBA suivant dans ce projet.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. Après cela, vous devez signer ce code. Cliquez sur "Outils" > "Signature".
7. Dans la boîte de dialogue suivante, suivez les instructions à l'écran pour attribuer un certificat numérique au nouveau projet VBA.
8. Plus tard, vous devrez modifier vos paramètres de macro Outlook pour autoriser les macros signées numériquement.
9. Vous pouvez finalement redémarrer votre application Outlook pour activer cette macro.
10. Désormais, chaque fois que vous activerez l'option « Événement d'une journée entière » dans un rendez-vous Outlook, l'heure de début et de fin du rendez-vous sera modifiée en fonction de vos heures de travail, comme indiqué dans la capture d'écran suivante :

Récupérer des données précieuses à partir d'un fichier Outlook compromis

Bien qu'Outlook se vante de plusieurs fonctionnalités diverses, cela ne signifie pas qu'il est totalement sans faille. Il peut toujours être corrompu en raison de divers facteurs, tels que des virus transmis par courrier électronique, une mauvaise manipulation humaine, etc. Par conséquent, en plus de faire des sauvegardes régulières des données PST, vous feriez mieux de préparer un puissant outil de correction PST externe à proximité, tel que DataNumen Outlook Repair. Il peut réparer la TVP problèmes dans un court laps de temps.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correctif mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com