home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 March
/
CHIPCD_3_98.iso
/
software
/
testsoft
/
exchange
/
webdata
/
usa
/
lib
/
pubfld.inc
< prev
next >
Wrap
Text File
|
1997-08-25
|
970b
|
38 lines
<%
'!--Microsoft Outlook Web Access-->
'!--PubFld.inc - Anonymous Published Folders functions-->
'!--Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
'=======================
' BIsPublishedFolder
' Checks folder entryid against list of public folders
'
'=======================
Public Function BIsPublishedFolder(szObj)
On Error Resume Next
BIsPublishedFolder = False
' Get list of published folders from objRenderApp
Set objRenderApp = Application( bstrRenderApp )
If (objRenderApp Is Nothing)
ReportError1 L_errApplicNull_ErrorMessage
End If
aPubFolders = objRenderApp.ConfigParameter("Published Public Folders")
If (Not aPubFolders Is Nothing) Then
' Loop through array, looking for match
For counter = LBound(aPubFolders) To UBound(aPubFolders)
If szObj = aPubFolders(counter) Then
BIsPublishedFolder = True
Exit For
End If
Next
End If
End Function
%>