Lotus Notes and a Form

[EAB1977]

Hello,

I am hoping someone here has done this before and I could use some
suggestions or a guide in the right direction.

Currently I am in the process of making a form in either Excel or
Access that will upload a file and any contents to a Lotus Notes
database. I have successfully uploaded a file to the correct Notes
database, but I want to enhance it further.

I have a list box that I want to populate the names from our Corporate
Address book to use as people to send custom reports too. I can't quite
figure out how to populate the list box with the Address book on the
Lotus Notes server. Anyone have ideas?

Sub LotusNotesTest()

On Error GoTo Unload

Dim session As Object
Dim doc As Object
Dim db As Object

Set session = CreateObject("Notes.Notessession")
Set db = session.GetDatabase("MAS-NS1/MAS/DCC", "names.nsf")
'Production Server

If Not db.IsOpen Then
MsgBox "Address book did not open or is not found.", , "Lotus
Notes Error"
GoTo Unload
End If

Unload:
Set doc = Nothing
Set db = Nothing
Set session = Nothing
End Sub