Macro : Afficher l'assistant de planification
mfrai02
Messages postés
2
Statut
Membre
-
mfrai02 Messages postés 2 Statut Membre -
mfrai02 Messages postés 2 Statut Membre -
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.
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.
A voir également:
- Macro : Afficher l'assistant de planification
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
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
