Hi! Friends,
I have created an agent which register web uesr into names.nsf. User get register sucessfully but the problem is that it not get login immediately. login Id get in to effect after 3-6 min. I also used EnsureUserInNAB() function.
I m writing a code here what I have written. Pls help
In the declaration section I used :
Declare Sub NAMELookup Lib “nnotes.dll” _
(Byval serverName As Integer, _
Byval flags As Integer, _
Byval numNameSpaces As Integer, _
Byval nameSpaces As String, _
Byval numNames As Integer, _
Byval names As String, _
Byval numItems As Integer, _
Byval items As String, _
rethBuffer As Long _
)
Declare Sub OSMemFree Lib “nnotes.dll” (Byval hBuffer As Long)
and function what i have written is :
Sub EnsureUserInNAB(Byval fullname As String)
Dim hBuf As Long
Call NAMELookup(0, 0, 1, "$Users", 1, fullname, 1, "HTTPPassword", hBuf)
Call OSMemFree(hBuf)
Call NAMELookup(0, 0, 1, "$ServerAccess", 1, fullname, 1, "ListName", hBuf)
Call OSMemFree(hBuf)
End Sub
This function get called in the initiation subroutine where I register user:
Call mainFormDoc .ReplaceItemValue(“Form”,“Person”)
Call mainFormDoc .ReplaceItemValue("Type","Person")
Call mainFormDoc .ReplaceItemValue("FirstName",doc.fName(0))
Call mainFormDoc .ReplaceItemValue("MiddleInitial", doc.mName(0))
Call mainFormDoc .ReplaceItemValue("LastName",doc.lName(0))
Call mainFormDoc .ReplaceItemValue("FullName",fullName)
Call mainFormDoc .ReplaceItemValue("HTTPPassword",doc.Password(0))
Call mainFormDoc .ReplaceItemValue("mailServer",doc.serverpath(0))
Call mainFormDoc.ComputeWithForm( False, False )
Call mainFormDoc.Save(True,True)
Call EnsureUserInNAB(fullName)
Please help me
Waiting for your kind response
Vikas K Sinha