Je voudrais relier une page ASP avec mon serveur Exchange pour que je puisse voir sur la page ASP le contenue du calendrier qui est dans le "public folder".
J'ai téléchargé Exchange SDK mais je suis plutôt perdu... je ne sais pas trop comment faire mon lien ODBC vers le serveur Exchange car il n'est pas sur le même serveur. Les "Samples" inclus ne fonctionne pas.
Quelqu'un aurait un tutorial sur ça ? ou un code sample ? (Bien expliqué)
J'ai trouvé ce code sur le site de Microsoft mais il ne fonctionne pas même après avoir changé les paramètre qui corresponde à mon réseau.
Code :
<%@ Language=VBScript%>
<%
Dim CalendarURL
Dim Rs
Dim Rec
Dim strSubject
Dim strStartTime
Dim strEndTime
Dim strLocation
Set Rs = CreateObject("ADODB.RecordSet")
Set Rec = CreateObject("ADODB.Record")
CalendarURL = "file://./backofficestorage/somedomain.microsoft.com/MBX/user1/calendar/"
Rec.Open CalendarURL
Set Rs.ActiveConnection = Rec.ActiveConnection
Rs.Source = "SELECT ""DAV:href"", " & _
" ""urn:schemas:httpmail:subject"", " & _
" ""urn:schemas:calendar:dtstart"", " & _
" ""urn:schemas:calendar:dtend"", " & _
" ""urn:schemas:calendar:location"" " & _
"FROM scope('shallow traversal of """ & CalendarURL & """') " & _
"WHERE (""urn:schemas:calendar:dtstart"" >=CAST(""2000-01-01T08:00:00Z"" as 'dateTime')) " & _
"AND (""urn:schemas:calendar:dtend"" <=CAST(""2000-01-31T08:00:00Z"" as 'dateTime'))"
Rs.Open
Rs.MoveFirst
Response.Write "<TABLE border=1>"
Response.Write "<TR><TD>Subject</TD><TD>Start Time</TD><TD>End Time</TD><TD>Location</TD></TR>"
Do Until Rs.EOF
strSubject = Rs.Fields("urn:schemas:httpmail:subject").Value
strStartTime = Rs.Fields("urn:schemas:calendar:dtstart").Value
strEndTime = Rs.Fields("urn:schemas:calendar:dtend").Value
strLocation = Rs.Fields("urn:schemas:calendar:location").Value
response.write "<TR><TD>" & strSubject & "</TD><TD>" & strStartTime & "</TD><TD>" & strEndTime & "</TD><TD>" & strLocation & "</TD></TR>"
Rs.MoveNext
Loop
Response.Write "</TABLE>"
Set Rs = Nothing
Set Rec = Nothing
%>
Merci !