PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Calendrier Outllok par ole automation
Calendrier Outllok par ole automation
Iniciado por atcamus, jun., 06 2005 12:21 PM - 1 resposta
#1
Publicado em junho, 06 2005 - 12:21 PM
Bonjour,

J'arrive à enregistrer un rdv sur le calendrier outlook à partir d'une aplli windev:

OUTLOOK est un objet OLE dynamique
CALENDRIER est un objet OLE dynamique
OUTLOOK = allouer un objet OLE "Outlook.Application"
CALENDRIER = OUTLOOK>>CreateItem(1)
CALENDRIER>>subject = "Sujet"
CALENDRIER>>body = "Corps"
CALENDRIER>>start = "12/06/2005 9:00:00 "
CALENDRIER>>end = "12/06/2005 18:00:00 "
CALENDRIER>>Display()
libérer OUTLOOK
libérer CALENDRIER

Le rdv est enregistré dans le calendrier par défaut de outlook.
Dans outlook, j'ai un 2ème calendrier "Calendrier 2". Comment peut on enregistrer un rdv dans celui-ci?

Merci
#2
Publicado em julho, 25 2005 - 5:26 PM
olApp is object OLE Dynamic
olNS is object OLE Dynamic
olMsg is object OLE Dynamic
olFldr is object OLE Dynamic
olAppt is object OLE Dynamic

olApp =allouer un objet ole "OutLook.Application"
olNS = olApp>>GetNameSpace("MAPI")
olMsg =olApp>>createItem(1)
olFldr = olNS>>GetDefaultFolder(9)
//ici changement de calendrier
olFldr = olFldr>>Folders("Calendrier 2")
olAppt = olFldr>>Items>>Add()
start is string = "1200"
stoppen is string = "1300"
olAppt>>Start = dateversentier(datesys())-dateversentier("19000101")+2 + ((val(start[[1 à 2]])/24) + (val(start[[3 à 4]])/24/60))
olAppt>>End = dateversentier(datesys())-dateversentier("19000101")+2 + ((val(stoppen[[1 à 2]])/24) + (val(stoppen[[3 à 4]])/24/60))
olAppt>>Subject = "ITNEVEN.BE"
olAppt>>Save()
→ Voltar para WINDEV 2024