almost there!

[gcue]

all i get is blank values...

Public DomSession As New NotesSession

Sub GetUserNames()

StrTestDomSession = DomSession.CommonUserName

Set DOMNAB = DomSession.GetDatabase("SERVER06", "names.nsf")

Set DomView = DOMNAB.GetView("($Users)")

Set DomAssoc = DomSession.GetDatabase("SERVER06", "ALIST.nsf")

Set DomAssocView = DomAssoc.GetView("(Export by Username)")

nIndex = 1

strinitials = Trim(Cells(nIndex + 5, 1).Value)

Set DomDoc = DomView.GetDocumentByKey(strinitials, True)

Set DomAss = DomAssocView.GetDocumentByKey(strinitials, True)

MsgBox (strinitials)

Do Until strinitials = ""

If Not (DomDoc Is Nothing) Then

Cells(nIndex + 5, 3) = DomDoc.GetItemValue("FirstName")(0)

End If

nIndex = nIndex + 1

end sub

$username = "BEE32"

$session = ObjCreate("Notes.NotesSession")
$testsession = $session.CommonUserName

;~ $session.InitializeUsingNotesUserName

$DOMNAB = $session.GetDatabase("SERVER06","names.nsf")
$DomView = $DOMNAB.GetView("($Users)")

$DomAssoc = $session.GetDatabase("SERVER06","ALIST.nsf")
$DomAssocView = $DomAssoc.GetView("(Export by Username)")

$DomDOC = $DomView.GetDocumentByKey($username, True)
$DomAss = $DomAssocView.GetDocumentByKey($username, True)

While 1
    If Not IsObj($DomDOC) Then ExitLoop

$first_name = $DomDOC.GetItemValue("FirstName")

MsgBox(0,"",$first_name)

WEnd

[BrettF]

Just a long shot because I can't see a real problems. What does VarGetType ($first_name) return?

Cheers,

Brett