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;