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 |
Partager