Excel VB and Lotus Notes Address Book
Hi
is this he end of the road?
any ideas? one for Dick Kusleika ?
thanks
Tim
"Tim Childs" wrote in message
om...
Hi
thanks for the post
this appears to be the code (below)
I could not get it to compile:
I received the message: "user defined type not defined in relation to
the first Dim statement.
I am on Lotus 5.0.6a, which should be OK but what is the Domino
Designer client mentoned in the spec. - presume I do not have it as I
am a ordinary, humble user of e-mail, so am stuck??.
Thanks
Tim
Sub foo()
Dim domSession As New Domino.NotesSession
Dim domDatabase As New Domino.NotesDatabase
Dim domDocument As NotesDocument
Dim domViewEntry As NotesViewEntry
Dim domView As NotesView
Dim domViewNav As NotesViewNavigator
Dim strName As String
domSession.Initialize
Set domDatabase = domSession.GetDatabase("", _
"names.nsf")
Set domView = domDatabase.GetView("Contacts")
' This view contains the list of names
Set domViewNav = domView.CreateViewNav
Set domViewEntry = domViewNav.GetFirstDocument()
Set domDocument = domViewEntry.Document
strName = domDocument.GetItemValue("FullName")(0)
MsgBox strName
Set domViewEntry = Nothing
Set domViewNav = Nothing
Set domView = Nothing
Set domDocument = Nothing
Set domDatabase = Nothing
Set domSession = Nothing
End Sub
"Dan Merchant" wrote in message
...
Tim,
This may not be the perfect answer but it should get you pointed in a
good
direction;
|