Lookup information from the NAB

@COMMANDS in a [Button]

tmpName := @Name([CN];@UserName);
FIELD PhoneNumberField := "";

@If(!@IsError(@Subset(@DbLookup("":"NoCache"; "Enter Database 
 ReplicaID"; "($Users)";tmpName;"OfficePhoneNumber");1)); 
@SetField("PhoneNumberField";@Subset(@DbLookup("":"NoCache"; "Enter
  Database ReplicaID"; "($Users)"; tmpName;"OfficePhoneNumber");1));

@If(!@IsError(@Subset(@DbLookup("":"NOCACHE";"Enter Database 
 ReplicaID";"People";tmpName;"OfficePhoneNumber");1)); 
@SetField("PhoneNumberField";@Subset(@DbLookup("":"NOCACHE";"Enter 
 Database ReplicaID";"People";tmpName;OfficePhoneNumber);1)); 

@SetField("PhoneNumberField";"Not Available")));
@Prompt([OK];"Using @Commands";tmpName+"'s phone number is " + 
 PhoneNumberField)


LOTUSSCRIPT in a [Function]

Public Function GetOfficePhoneNumber(tmpUser As String) As String
	On Error Goto processError
	Dim tmpSession As New NotesSession
	
	Forall tmpAddressBook In tmpSession.AddressBooks
		If tmpAddressBook.IsPublicAddressBook Then  
			tmpAddressBook.Open  "",""
			GetOfficePhoneNumber =
 tmpAddressBook.GetView("($VIMPeople)").GetDocumentByKey
 (tmpUser, False)
.OfficePhoneNumber(0)
			Exit Forall
		End If
	End Forall
	Exit Function
	
processError:
	GetOfficePhoneNumber = ""
	Resume Next
End Function