Domino VBA

[Peter Neumaier]

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 (dont know why this changed?) where I have to enter my lotus
password, when entering my notes password, my function works fine.
But I have to distribute my application to other clients and users, and
it doesnt make sense to use my password.
So I received a public account from our domino admin, for all of us.
When using "DomSession.Ini tialize (publicLotusPas sword)" there are no
errors.
But the problem is, that that's not a real solution for my
appliacation, because each user has to enter his own password, I dont
want that,
but entering a hard coded password doesnt work, because the password
that is asked 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

[Douglas J. Steele]

I think you'll have more luck asking in a newsgroup related to Notes or
Domino, as opposed to a database group.

Have you tried looking for documentation at http://www.lotus.com?

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"Peter Neumaier" <Pe************ @gmail.com> wrote in message
news:11******** **************@ g14g2000cwa.goo glegroups.com.. .

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 (dont know why this changed?) where I have to enter my lotus
password, when entering my notes password, my function works fine.
But I have to distribute my application to other clients and users, and
it doesnt make sense to use my password.
So I received a public account from our domino admin, for all of us.
When using "DomSession.Ini tialize (publicLotusPas sword)" there are no
errors.
But the problem is, that that's not a real solution for my
appliacation, because each user has to enter his own password, I dont
want that,
but entering a hard coded password doesnt work, because the password
that is asked 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

[Peter Neumaier]

Hi Douglas,

thank you for your answer, but I think that my problem is more VBA and
ACCES than it is to domino databases.

So the only problem I have to solve is, how to use a default password
when accessing the domino database ...

For sure I found documentation on lotus.com, but there isnt anything
regarding my problem
"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in message news:<0c******* *************@r ogers.com>...

I think you'll have more luck asking in a newsgroup related to Notes or
Domino, as opposed to a database group.

Have you tried looking for documentation at http://www.lotus.com?

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"Peter Neumaier" <Pe************ @gmail.com> wrote in message
news:11******** **************@ g14g2000cwa.goo glegroups.com.. .

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 (dont know why this changed?) where I have to enter my lotus
password, when entering my notes password, my function works fine.
But I have to distribute my application to other clients and users, and
it doesnt make sense to use my password.
So I received a public account from our domino admin, for all of us.
When using "DomSession.Ini tialize (publicLotusPas sword)" there are no
errors.
But the problem is, that that's not a real solution for my
appliacation, because each user has to enter his own password, I dont
want that,
but entering a hard coded password doesnt work, because the password
that is asked 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

[Douglas J. Steele]

While I recognize that you're experiencing the problem using automation from
VBA, you're still issuing commands to directly to Domino. I would think that
people more familiar with the Domino programming model would be better able
to help than people familiar with VBA.

YMMV, though.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"Peter Neumaier" <Pe************ @gmail.com> wrote in message
news:98******** *************** ***@posting.goo gle.com...

Hi Douglas,

thank you for your answer, but I think that my problem is more VBA and
ACCES than it is to domino databases.

So the only problem I have to solve is, how to use a default password
when accessing the domino database ...

For sure I found documentation on lotus.com, but there isnt anything
regarding my problem
"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in message
news:<0c******* *************@r ogers.com>...

I think you'll have more luck asking in a newsgroup related to Notes or
Domino, as opposed to a database group.

Have you tried looking for documentation at http://www.lotus.com?

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"Peter Neumaier" <Pe************ @gmail.com> wrote in message
news:11******** **************@ g14g2000cwa.goo glegroups.com.. .

> 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 (dont know why this changed?) where I have to enter my lotus
> password, when entering my notes password, my function works fine.
> But I have to distribute my application to other clients and users, and
> it doesnt make sense to use my password.
> So I received a public account from our domino admin, for all of us.
> When using "DomSession.Ini tialize (publicLotusPas sword)" there are no
> errors.
> But the problem is, that that's not a real solution for my
> appliacation, because each user has to enter his own password, I dont
> want that,
> but entering a hard coded password doesnt work, because the password
> that is asked 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
>