Ask a question

Search Forums:

• Search Development Forum
• Search All Exchange Server Forums
• Search All Microsoft TechNet Forums

 

Render Free/Busy info in a web page?

• Thursday, November 05, 2009 6:47 PMcomplexmind

   
  

  0

  Sign In to Vote
  Hi all. Thanks for the great help recently. I have another issue.
  
  I am trying to render Free/Busy info for a user or group of users (dist list) to a web page (asp). I have been researching this for quite a while and I have hit a wall. In the code below I get a 'return true' for a known user but the freebusy info doesn't return in a way that is usable. What am I missing.
  
  I have been using this:
  http://msdn.microsoft.com/en-us/library/ms526898(EXCHG.10).aspx
  and this:
  http://msdn.microsoft.com/en-us/library/aa494234.aspx
  as guides.
  
  Here is the code I have now:
  
  

  <%@ Language=VBscript%>
  <%
      Sub PrintStatus(strStatus)
     Select Case strStatus
     Case "0"   'Free
        Response.Write "<TD>Free</TD></TR>"
     Case "1"   'Tentative
        Response.Write "<TD>Tentative</TD></TR>"
     Case "2"   'Busy
        Response.Write "<TD>Busy</TD></TR>"
     Case "3"   'Out Of Office
  
        Response.Write "<TD>Out Of Office</TD></TR>"
     End Select
      End Sub
  
      UserName = "knownuser"
      DomainName = "mydomain.com"
      ServerName = "mydomaincontroller.mydomain.com"
      strStartTime = #11/1/2009 7:00:00 AM#
      strEndTime = #11/10/2000 11:00:00 AM#
      iInterval = 30
  
      Set iAddr = createobject("CDO.Addressee")
      iAddr.EmailAddress = UserName & "@" & DomainName
      iAddr.CheckName ("LDAP://" & ServerName)
  
      strFreebusy = iAddr.GetFreeBusy(strStartTime, strEndTime, iInterval)
  
      Response.Write "<Table Border =1>"
      For i = 1 To Len(strFreebusy)
     If i = 1 Then
        Response.Write "<TR><TD>Start Time</TD><TD>" & strStartTime & " ~ </TD>"
     Elseif i = len(strFreebusy) Then
        Response.Write "<TR><TD>End Time</TD><TD>" & strEndTime & " ~ </TD>"
     Else
        Response.Write "<TR><TD>.</TD><TD> + " & iInterval & " min ~ </TD>"
     End If
     Call PrintStatus(Mid(strFreebusy, i, 1))
      Response.Write "</TABLE>"
      Set iAddr = Nothing
  %>

  Thank you all soooo much!!! Cheers!!!
  • Reply
  • Quote