Macro : Afficher l'assistant de planification
Fermé
mfrai02
Messages postés
2
Date d'inscription
lundi 13 mai 2013
Statut
Membre
Dernière intervention
14 mai 2013
-
13 mai 2013 à 11:00
mfrai02 Messages postés 2 Date d'inscription lundi 13 mai 2013 Statut Membre Dernière intervention 14 mai 2013 - 14 mai 2013 à 10:33
mfrai02 Messages postés 2 Date d'inscription lundi 13 mai 2013 Statut Membre Dernière intervention 14 mai 2013 - 14 mai 2013 à 10:33
A voir également:
- Macro : Afficher l'assistant de planification
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Macro souris ✓ - Forum Windows
1 réponse
mfrai02
Messages postés
2
Date d'inscription
lundi 13 mai 2013
Statut
Membre
Dernière intervention
14 mai 2013
14 mai 2013 à 10:33
14 mai 2013 à 10:33
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
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