Custom form could not be opened

[Ken Slovak - [MVP - Outlook]]

Item.Save.

 

[masani paresh]

Ken,

If I do Item.Save after adding item into Item.Recipient then It is not
displaying free/busy status for any conf rooms irrespective of whether I
touched the Scheduling tab or not. :-(

Please refer my code.
Sub CommandButton2_Click

Dim confRoomName
If Not IsNull(Item.GetInspector.ModifiedFormPages("Find Conference
Room").Controls("ListBox1").Value) Then
If Not InStr(Item.GetInspector.ModifiedFormPages("Find Conference
Room").Controls("ListBox1").Value, "(Free)") = 0 Then
confRoomName = Split(Item.GetInspector.ModifiedFormPages("Find Conference
Room").Controls("ListBox1").Value, "(Free)", -1, 1)
Else
confRoomName = Split(Item.GetInspector.ModifiedFormPages("Find Conference
Room").Controls("ListBox1").Value, "(Busy)", -1, 1)
End If
Item.Recipients.Add(confRoomName(0))
Item.Save
Else
MsgBox "Please select any conference room"
End If

End Sub

Thanks,
Paresh

 

[Ken Slovak - [MVP - Outlook]]

I have no idea what that code is trying to do or how it relates to free/busy
information. To get free/busy information you either call for
Recipient.FreeBusy or AddressEntry.GetFreeBusy.

So if you add a recipient, then resolve it and then query its F/B
information you should get it. Or you can get the AddressEntry objects for
all resources you are interested in and then call GetFreeBusy() for those
AddressEntry objects.

This really seems to be quite removed from the issue you originally posted,
that you couldn't open a custom form. It's dragged on for so long and with
so many changes of problems that you might be best off just starting a new
thread and explaining what problem you face currently there since at this
point I have no idea what the problem is.