OVH Cloud OVH Cloud

Création RV Outlook en dév

4 réponses
Avatar
Cédric
Bonjour, j'arrive à créer par programmation un RV Outllok, mais comment
accéder à la liste des participants de ce RV (quelle méthode utiliser pour
en ajouter?)

Merci pour toute info

Cédric


Local oOutlook,oNameSpace

oOutlook = Createobject('outlook.application')

oNameSpace = oOutlook.getnamespace('MAPI')

loItem= oOutlook.createitem(1)

With loItem

.Subject ="Réunion chez Microsoft"

.Location ="Montréal"

.Start=DATETIME()+2*3600

.End = DATETIME()+3*3600

.ReminderSet =.T.

.ReminderMinutesBeforeStart =20

.Save

ENDWITH

4 réponses

Avatar
Laurent Francfort [MS]
Bonjour,

Il faut transformer ton rendez-vous en réunion (propriété MeetingStatus), et
ensuite tu ajoutes les participants dans la collection recipients, comme
s'il s'agissait d'un message.

Set myitem = myOlApp.CreateItem(olAppointmentItem)
myitem.MeetingStatus = olMeeting
Set recip = myitem.Recipients.Add("<emailAddressHere>")
recip.Type = olRequired
recip.Resolve
...
...
myitem.send


Laurent

"Cédric" a écrit dans le message de news:

Bonjour, j'arrive à créer par programmation un RV Outllok, mais comment
accéder à la liste des participants de ce RV (quelle méthode utiliser pour
en ajouter?)

Merci pour toute info

Cédric


Local oOutlook,oNameSpace

oOutlook = Createobject('outlook.application')

oNameSpace = oOutlook.getnamespace('MAPI')

loItem= oOutlook.createitem(1)

With loItem

.Subject ="Réunion chez Microsoft"

.Location ="Montréal"

.StartÚTETIME()+2*3600

.End = DATETIME()+3*3600

.ReminderSet =.T.

.ReminderMinutesBeforeStart

.Save

ENDWITH




Avatar
Cédric
Merci pour l'info, j'essaie cela de suite...

Cédric

"Laurent Francfort [MS]" a écrit dans le
message de news: uMHzv%
Bonjour,

Il faut transformer ton rendez-vous en réunion (propriété MeetingStatus),
et ensuite tu ajoutes les participants dans la collection recipients,
comme s'il s'agissait d'un message.

Set myitem = myOlApp.CreateItem(olAppointmentItem)
myitem.MeetingStatus = olMeeting
Set recip = myitem.Recipients.Add("<emailAddressHere>")
recip.Type = olRequired
recip.Resolve
...
...
myitem.send


Laurent

"Cédric" a écrit dans le message de news:

Bonjour, j'arrive à créer par programmation un RV Outllok, mais comment
accéder à la liste des participants de ce RV (quelle méthode utiliser
pour en ajouter?)

Merci pour toute info

Cédric


Local oOutlook,oNameSpace

oOutlook = Createobject('outlook.application')

oNameSpace = oOutlook.getnamespace('MAPI')

loItem= oOutlook.createitem(1)

With loItem

.Subject ="Réunion chez Microsoft"

.Location ="Montréal"

.StartÚTETIME()+2*3600

.End = DATETIME()+3*3600

.ReminderSet =.T.

.ReminderMinutesBeforeStart

.Save

ENDWITH








Avatar
Cédric
J'ai fait l'essai, cela fonctionne très bien, merci...

Dans le même esprit, est il possible d'assigner (toujour par programmation)
une tâche à quelqu'un

Merci d'avance

Cédric

"Laurent Francfort [MS]" a écrit dans le
message de news: uMHzv%
Bonjour,

Il faut transformer ton rendez-vous en réunion (propriété MeetingStatus),
et ensuite tu ajoutes les participants dans la collection recipients,
comme s'il s'agissait d'un message.

Set myitem = myOlApp.CreateItem(olAppointmentItem)
myitem.MeetingStatus = olMeeting
Set recip = myitem.Recipients.Add("<emailAddressHere>")
recip.Type = olRequired
recip.Resolve
...
...
myitem.send


Laurent

"Cédric" a écrit dans le message de news:

Bonjour, j'arrive à créer par programmation un RV Outllok, mais comment
accéder à la liste des participants de ce RV (quelle méthode utiliser
pour en ajouter?)

Merci pour toute info

Cédric


Local oOutlook,oNameSpace

oOutlook = Createobject('outlook.application')

oNameSpace = oOutlook.getnamespace('MAPI')

loItem= oOutlook.createitem(1)

With loItem

.Subject ="Réunion chez Microsoft"

.Location ="Montréal"

.StartÚTETIME()+2*3600

.End = DATETIME()+3*3600

.ReminderSet =.T.

.ReminderMinutesBeforeStart

.Save

ENDWITH








Avatar
Cédric
Finalement, j'ai trouvé (cela ressemble fortement au code propose pour le RV
avec le Assign en +) :

l = loItem.Recipients.Add(adresseEmail)
l.Resolve()

loItem.Assign()



Merci encore

Cédric

"Cédric" a écrit dans le message de news:

J'ai fait l'essai, cela fonctionne très bien, merci...

Dans le même esprit, est il possible d'assigner (toujour par
programmation) une tâche à quelqu'un

Merci d'avance

Cédric

"Laurent Francfort [MS]" a écrit dans le
message de news: uMHzv%
Bonjour,

Il faut transformer ton rendez-vous en réunion (propriété MeetingStatus),
et ensuite tu ajoutes les participants dans la collection recipients,
comme s'il s'agissait d'un message.

Set myitem = myOlApp.CreateItem(olAppointmentItem)
myitem.MeetingStatus = olMeeting
Set recip = myitem.Recipients.Add("<emailAddressHere>")
recip.Type = olRequired
recip.Resolve
...
...
myitem.send


Laurent

"Cédric" a écrit dans le message de news:

Bonjour, j'arrive à créer par programmation un RV Outllok, mais comment
accéder à la liste des participants de ce RV (quelle méthode utiliser
pour en ajouter?)

Merci pour toute info

Cédric


Local oOutlook,oNameSpace

oOutlook = Createobject('outlook.application')

oNameSpace = oOutlook.getnamespace('MAPI')

loItem= oOutlook.createitem(1)

With loItem

.Subject ="Réunion chez Microsoft"

.Location ="Montréal"

.StartÚTETIME()+2*3600

.End = DATETIME()+3*3600

.ReminderSet =.T.

.ReminderMinutesBeforeStart

.Save

ENDWITH