Hi,
I am trying to read data from a domino databases (located in our LAN
not on my local machine!) from my access project. I pass a code to the
function checkCodeInDomi no to be verified on Domino. On my local
machine everything went fine, but suddenly there came up following
problem:
I was coding and testing with the code below, and I have never been
asked for my lotus password, now when starting my function, there comes
a box up where I have to enter my lotus password, when entering,
everything finishes fine. When using
"DomSession.Ini tialize (lOTUSpASSWORD) "
it works, but I have to distribute this application to other
colleauges, and it doesnt make sense to use my password. So I received
a public account of our domino admin, for all of us.
But the problem is, that it doesnt work, because each user has to enter
his own password that is referring to
"c:\lotus\notes \data\wk\$userN ame.ID"
Is there any way to use
"DomSession.Ini tialize" in some kind of a "generic" way, so that any
other user can use the function "checkCodeInDom ino"?
Please remember that the domino database is always on a remote machine
and
"'DomSession.In itializeUsingNo tesUserName($Ad min, $Pass)"
does not work!
Here is my code...
Function checkCodeInDomi no(checkCode As Long)
On Error GoTo Err_Quit_Click
Dim DomDir As NotesDatabase
Dim DomContacts As NotesView
Dim DomDoc As NotesDocument
Dim StrName As String
Dim DomSession As NotesSession
Dim serverName As String
Dim databaseFile As String
Set DomSession = CreateObject("L otus.NotesSessi on")
serverName = "myServerNa me"
databaseFile = "myFile"
DomSession.Init ialize
Set DomDir = DomSession.GetD atabase(serverN ame, databaseFile)
Set DomContacts = DomDir.GetView( "myView")
Set DomDoc = DomContacts.Get FirstDocument
While Not (DomDoc Is Nothing)
If DomDoc.GetItemV alue("Dealer_Co de")(0) = checkCode Then
checkCodeInDomi no = True
Exit Function
End If
Set DomDoc = DomContacts.Get NextDocument(Do mDoc)
Wend
checkCodeInDomi no = False
Exit_Quit_Click :
Exit Function
Err_Quit_Click:
MsgBox Err.Description
Resume Exit_Quit_Click
End Function
Thank you for your attention!
Peter Neumaier
I am trying to read data from a domino databases (located in our LAN
not on my local machine!) from my access project. I pass a code to the
function checkCodeInDomi no to be verified on Domino. On my local
machine everything went fine, but suddenly there came up following
problem:
I was coding and testing with the code below, and I have never been
asked for my lotus password, now when starting my function, there comes
a box up where I have to enter my lotus password, when entering,
everything finishes fine. When using
"DomSession.Ini tialize (lOTUSpASSWORD) "
it works, but I have to distribute this application to other
colleauges, and it doesnt make sense to use my password. So I received
a public account of our domino admin, for all of us.
But the problem is, that it doesnt work, because each user has to enter
his own password that is referring to
"c:\lotus\notes \data\wk\$userN ame.ID"
Is there any way to use
"DomSession.Ini tialize" in some kind of a "generic" way, so that any
other user can use the function "checkCodeInDom ino"?
Please remember that the domino database is always on a remote machine
and
"'DomSession.In itializeUsingNo tesUserName($Ad min, $Pass)"
does not work!
Here is my code...
Function checkCodeInDomi no(checkCode As Long)
On Error GoTo Err_Quit_Click
Dim DomDir As NotesDatabase
Dim DomContacts As NotesView
Dim DomDoc As NotesDocument
Dim StrName As String
Dim DomSession As NotesSession
Dim serverName As String
Dim databaseFile As String
Set DomSession = CreateObject("L otus.NotesSessi on")
serverName = "myServerNa me"
databaseFile = "myFile"
DomSession.Init ialize
Set DomDir = DomSession.GetD atabase(serverN ame, databaseFile)
Set DomContacts = DomDir.GetView( "myView")
Set DomDoc = DomContacts.Get FirstDocument
While Not (DomDoc Is Nothing)
If DomDoc.GetItemV alue("Dealer_Co de")(0) = checkCode Then
checkCodeInDomi no = True
Exit Function
End If
Set DomDoc = DomContacts.Get NextDocument(Do mDoc)
Wend
checkCodeInDomi no = False
Exit_Quit_Click :
Exit Function
Err_Quit_Click:
MsgBox Err.Description
Resume Exit_Quit_Click
End Function
Thank you for your attention!
Peter Neumaier