Discussion :

[mfrai02]

Bonjour,

après pas mal de recherches, je ne trouve pas comment ouvrir avec une macro (ou sinon en ligne de commande), un nouveau rendez-vous mais en affichant directement "l'assistant de planification". Est-ce que cela est possible ?

Si oui, est-il aussi possible d'ajouter un participant en plus de notre nom déjà pré-rempli ?

Merci d'avance pour vos réponses et votre aide.

[mfrai02]

J'ai finalement pu trouver une solution :


Sub DemoSetSchedulingStartTime()
Dim objOL As Outlook.Application

Const olAppointmentItem = 1
Const olMeeting = 1
Set objOL = CreateObject("Outlook.Application")

Dim oAppt As Outlook.AppointmentItem

Dim oInsp As Outlook.Inspector

' Create and display appointment.Set
Set oAppt = objOL.CreateItem(olMeeting)
' oAppt = Application.CreateItem(olAppointmentItem)
oAppt.MeetingStatus = olMeeting
oAppt.Subject = "Test Appointment"
oAppt.Start = DateAdd("m", 1, Now)
' Display the appointment in the Appointment tab of the inspector.oAppt.Display

Set oInsp = oAppt.GetInspector

' Switch to the Scheduling Assistant tab in that Inspector.
oInsp.SetCurrentFormPage ("Assistant Planification")

' Set the appointment start time in the Scheduling Assistant.
'oInsp.SetSchedulingStartTime (DateAdd("m", 1, Now))
oInsp.Display

End Sub