You are replying to:

1. • 
   • Indy
   • Posted on Fri 4 Nov 2005 03:41 PM

   Watch out changing profile docs heavily, before you know it you've got multiple profile docs for 1 user! I've have seen mailboxes containing 5 profiledocs where there only shoud be 1!!

   Dim ses As New notessession

   Dim dbCur As notesdatabase

   Dim docProf As notesdocument

   Dim colProfs As notesdocumentcollection

   Dim strForm As String

   Dim n As Integer

   Set dbCur = ses.currentDatabase

   Set colProfs = dbCur.getprofiledocCollection

   Set docProf = colProfs.getFirstDocument

   n=0

   While Not docProf Is Nothing

   strForm = docProf.getItemValue("Form")(0)

   Set docProf = colProfs.getNextDocument(docProf)

   n=n+1

   Print "profile doc: " + Cstr(n)

   Wend

Your Comments