Existe-t-il un moyen d'automatiser le début de la réunion à xx:05 et la fin de la réunion à xx:55 par défaut dans Outlook ?

J'ai finalement cherché une solution sur Google - mais ce n'est pas quelque chose qui se voit avec une simple recherche. Il semble que peu de gens s'y intéressent.

J'écris à partir d'un PC sur lequel je n'ai pas installé Outlook, mais j'espère que je m'en souviens bien.

1. Vous devez activer le "ruban" du développeur dans Outlook.

2. Vous devez créer un nouveau formulaire (en utilisant le formulaire de rendez-vous comme base).

3. Sur ce nouveau formulaire, vous devez insérer un code VBA pour l'action "Ouvrir".

4. dans ce code - vous devez modifier Item. Start et Item. End (uniquement s'il est défini sur une heure ou une demi-heure, si vous manquez cette pièce, votre rendez-vous sera "rétréci" à chaque fois que vous l'ouvrirez. Le début doit être +5 minutes, la fin doit être -10 minutes (car le +5 pour le début pousse la fin de 5 minutes en avant également).

5. Pendant que vous modifiez le nouveau formulaire, vous pouvez ajouter un pied de page standard dans l'invitation (par exemple, le numéro de votre conférence téléphonique).

6. Sauvegarder ce formulaire ("Publish Form As..." si je me souviens bien).

7. Cliquez avec le bouton droit de la souris dans la vue du calendrier sur votre "dossier" Calendrier et changez le formulaire par défaut à utiliser de Rendez-vous à celui que vous avez enregistré au point 6.

J'espère que vous serez en mesure de le suivre avec un peu d'aide de Google. La solution est la suivante

1. créer un nouveau formulaire
2. ajouter un petit VBA au début
3. sélectionnez ce formulaire comme nouveau "Formulaire de calendrier" par défaut.

Il semble qu'Outlook dispose de cette fonctionnalité dans les versions ultérieures : https://chrismenardtraining.com/post/outlook-buffer-time

Suivez cette ligne directrice :

https://www.datanumen.com/blogs/2-methods-change-default-duration-appointment-meeting-outlook/

et utilisez la macro suivante à la place :

Private WithEvents objInspectors As Outlook.Inspectors
Private 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 TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    'Set the default duration of new appointment
    If objAppointment.CreationTime = #1/1/4501# Then
       objAppointment.Duration = "50"
       objAppointment.Start = DateAdd("n", 5, objAppointment.Start)
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    'When you disable the "All Day Event"
    'Change the default duration of the current appointment
    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = False Then
          objAppointment.Duration = "50"
          objAppointment.Start = DateAdd("n", 5, objAppointment.Start)
       End If
    End If
End Sub