Discussion :

[HektorParis]

Bonjour,

je souhaite créer un rendez-vous outlook à partir d'une plage horaire que j'aurais sélectionnée dans le calendrier.
Certaines caractéristiques du rendez-vous seront standard (titre du rendez-vous, invités, rappels, ...).

Par exemple, je sélectionne la plage de 08h30 à 11h00 le mardi, je lance la macro, et je souhaite voir s'ouvrir une fenêtre de rendez-vous sur l'horaire 08h30-11h00, en date du mardi, et les caractéristiques standard pré-remplies.

=> Et je ne vois pas comment récupérer la plage horaire sélectionnée dans outlook.
Le reste, j'arriverai à m'en sortir.

Je suis preneur de toute aide et tout conseil.
Bien à vous.

[HektorParis]

Bon,
en cherchant bien dans la documentation de Microsoft, j'ai trouvé la solution.
Il faut utiliser les propriétés .SelectedStartTime et .SelectedEndTime de la vue du calendrier.

Voici une partie du code que j'ai utilisé et qui fait le boulot, c'est-à-dire qu'un rendez-vous outlook est créé avec les horaires correspondant aux créneaux sélectionnés dans la vue du calendrier, et avec un invité optionnel comme je cherche à le faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim datDebut As Date, datFin As Date
Const datNull As Date = #1/1/4501#
Dim rdvTrajet As AppointmentItem
Dim vwCal As CalendarView
Dim fldCal As Outlook.Folder
 
Set fldCal = ActiveExplorer.CurrentFolder
Set vwCal = ActiveExplorer.CurrentView
 
datDebut = vwCal.SelectedStartTime: datFin = vwCal.SelectedEndTime
Set rdvTrajet = fldCal.Items.Add("IPM.Appointment")
If datDebut <> datNull And datFin <> datNull Then
  With rdvTrajet
    .Start = datDebut: .End = datFin: .Subject = "trajet": .ReminderSet = False
    .BusyStatus = olOutOfOffice: .MeetingStatus = olMeeting
    .OptionalAttendees = "...@outlook.fr"
    .Display
  End With
End If

Si cela peut aider quelqu'un...