User.lss

%REM
  User 
		NotesName container object
	
	@author Jiri Krakora
	@date 31.1.2013
	@extends CollectionItem
	@revision 31.1.2013 1.0  Relesase
%END REM
Public Class User As CollectionItem
	Private oName As NotesName
	
	Public Property Get Name As NotesName
		Set ~Name = Me.oName
	End Property
	
	Public Property Set Name As NotesName
		Set Me.oName = ~Name
	End Property
	
	Public Property Set NameValue As String
		Set Me.oName = New NotesName(NameValue)
	End Property
	
	Public Sub New
		Set Me.oName = New NotesName("")
	End Sub

	%REM
		Return NotesName.Abbreviated value as string
		
		@return Abbreviated name
	%END REM
	Public Function ToString As String
		Let ToString = Me.oName.Abbreviated
	End Function
	
	%REM
		Return NotesName.Canonical value as string
		
		@return Canonical name
	%END REM
	Public Function ToCanonical As String
		Let ToCanonical = Me.oName.Canonical
	End Function
End Class