Bonjour,
j'utilise WD18 et je souhaite retranscrire dans une appli WinDev avec le champ planning, des plannings de ressources exchange (collaborateurs, salles, matériels...). J'avais il y a quelques année réalisé la chose en .ASP avec une chaine de connexion ADO vers le serveur exchange sous la forme suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
'Ici utilisation d'ADO pour créer un connection sur exchange
 
'Création d'un objet "Record" (Rec) et d'un objet "Recordset" (Rs)
	Set Rec = CreateObject("ADODB.Record")
	Set Rs = CreateObject("ADODB.Recordset")
 
'Chemin sur le serveur de messagerie pour atteindre le dossier calendrier 
	CheminDossier = "MBX/"& Nom &"/Calendrier"
 
'Chaîne de connection pour le Record"
	strURL = "file://./backofficestorage/" & DomainNom & "/" & CheminDossier
 
'Ouverture de la connection	
Rec.Open strURL
 
'Affectation du Recordset (Rs) à la connection active
Set Rs.ActiveConnection = Rec.ActiveConnection
 
'Requete sql pour lister les rdvs de la semaine du calendrier de chaque BAL 
 
Rs.Source = "SELECT 	 ""urn:schemas:calendar:duration"", " & _
						" ""urn:schemas:calendar:busystatus"", " & _
							" ""http://schemas.microsoft.com/exchange/sensitivity"", " & _
							" ""urn:schemas:httpmail:subject"", " & _
							" ""urn:schemas:calendar:uid"", " & _
							" ""urn:schemas:calendar:Location"", " & _
							" ""urn:schemas:calendar:dtstart"", " & _
							" ""urn:schemas:calendar:dtend"" " & _
"FROM scope('shallow traversal of """ & strURL & """')" & _
 
"WHERE  ""urn:schemas:calendar:dtstart"" >= '"& FiltreDebutSe &"' and ""urn:schemas:calendar:dtstart"" <= '"& FiltreFinSe &"'" & _
				"or  ""urn:schemas:calendar:dtend"" >= '"& FiltreDebutSe &"' and ""urn:schemas:calendar:dtend"" <= '"& FiltreFinSe &"'" & _
		        "or  ""urn:schemas:calendar:dtstart"" <= '"& FiltreDebutSe &"' and ""urn:schemas:calendar:dtend"" >= '"& FiltreFinSe &"'" & _
"ORDER BY ""urn:schemas:calendar:dtstart"" ASC"
 
Rs.Open
Question, commet faire dans WinDev cette connexion ?, Est-il possible de créer une analyse avec une connexion vers Exchange ?

Je suis preneur de toutes les pistes sur ce sujet.

ALAIN F