home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / testsoft / exchange / webdata / usa / lib / pubfld.inc < prev    next >
Text File  |  1997-08-25  |  970b  |  38 lines
  1. <%
  2. '!--Microsoft Outlook Web Access-->
  3. '!--PubFld.inc - Anonymous Published Folders functions-->
  4. '!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
  5.  
  6. '=======================
  7. ' BIsPublishedFolder
  8. ' Checks folder entryid against list of public folders
  9. '
  10. '=======================
  11. Public Function BIsPublishedFolder(szObj)
  12.     On Error Resume Next
  13.  
  14.     BIsPublishedFolder = False
  15.  
  16.     ' Get list of published folders from objRenderApp
  17.     Set objRenderApp = Application( bstrRenderApp )
  18.     If (objRenderApp Is Nothing)
  19.         ReportError1 L_errApplicNull_ErrorMessage
  20.     End If
  21.  
  22.     aPubFolders = objRenderApp.ConfigParameter("Published Public Folders")
  23.  
  24.     If (Not aPubFolders Is Nothing) Then
  25.         ' Loop through array, looking for match
  26.         For counter = LBound(aPubFolders) To UBound(aPubFolders)
  27.             If szObj = aPubFolders(counter) Then
  28.                 BIsPublishedFolder = True
  29.                 Exit For
  30.             End If
  31.         Next
  32.     End If
  33.     
  34. End Function
  35.  
  36. %>
  37.  
  38.