If objSession Is Nothing Then
MsgBox "Must first create MAPI session and log on"
Exit Function
End If
Set objRecipColl = objSession.AddressBook(Title:="Select Attendees", _
forceResolution:=True, _
recipLists:=3, _
toLabel:="&Very Important People", _
ccLabel:="&Fairly Important People", _
bccLabel:="&Secret Important People")
' "recipients:=" parameter not used in preceding call
MsgBox "Name of first recipient = " & objRecipColl.Item(1).NAME
' could be objRecipColl(1) since Item and Name are default properties
Exit Function
End Function