Wednesday, December 23, 2009

Get profile documents from a given database

'**********************************************************************************
'@Author : Karthikeyan A
'@Purpose : get profile documents from a specific db
'@Type : Function
'@Name : getProfileDocs
'@Param : db As NotesDatabase
'@Return : NotesDocumentCollection(profile doc collection in a db)
' and Nothing is db doesnot exist or no profile doc is found
'**********************************************************************************

Function getProfileDocs(db As NotesDatabase) As notesdocumentcollection

If not db.isOpen then
Set getProfileDocs=nothing
Exit Function
End If

'set the handle for the set the profile documents in the database and return the same
Set getProfileDocs=db.GetProfileDocCollection

End Function

No comments:

Post a Comment