Nous sommes actuellement le 28 Mars 2024, 14:04

Le fuseau horaire est UTC-5 heures [Heure d’été]




Publier un nouveau sujet Répondre au sujet  [ 1 message ] 
Auteur Message
 Sujet du message: Exchange ASP
MessagePublié: 21 Mai 2002, 17:10 
Hors-ligne
Fidèle
Fidèle
Avatar de l’utilisateur

Inscription : 08 Jan 2002, 11:08
Message(s) : 575
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 !


Haut
 Profil  
Répondre en citant  
Afficher les messages publiés depuis :  Trier par  
Publier un nouveau sujet Répondre au sujet  [ 1 message ] 

Le fuseau horaire est UTC-5 heures [Heure d’été]


Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 8 invité(s)


Vous ne pouvez pas publier de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum

Recherche de:
Aller vers :  
cron
Propulsé par phpBB® Forum Software © phpBB Group
Traduction et support en françaisHébergement de site