hi,
My requiredment is that invite some attendees from GAL for a meeting ,before
it i want to check whether at that time all the attendees are free or not .
For this i have writen a code and check for freebusy , but i am facing a
problem , the freebusy function always return empty. Please help me. please
tell me whether required some Exchange settings or there is some error in my
code.
please help

'***********my code for Freebusy is as below

Function GetFreeBusyString(strUserUPN As String, dtStartDate As Date,
dtEndDate As Date, Interval As Integer) As String

   Dim iAddr As New CDO.Addressee
   Dim freebusy As String
  Dim Info As New ADSystemInfo
   'Dim Info As Object
  ' Set Info = CreateObject("ADSystemInfo")
   iAddr.EmailAddress = strUserUPN
   If Not iAddr.CheckName("LDAP://" & Info.DomainDNSName) Then
      ' handle error
   End If
   
   'Get the free/busy status in Interval minute intervals from dtStartDate
to dtEndDate
   freebusy = iAddr.GetFreeBusy(dtStartDate, dtEndDate, Interval)
   GetFreeBusyString = freebusy

End Function

i am calling this function like

MsgBox GetFreeBusyString("abc@xyz.local", "10/6/2005 7:00:00 PM", "10/6/2005
7:30:00 PM", 30)
thanks in advance.
regards,
girdhari rawal