Function AddresseeDomain(addressee As String) As String
	Dim nam As New NotesName(addressee)
	
	'Strip angle brackets if they exist
	If Instr(1, addressee, "<") > 0 Then
		Let addressee = nam.Addr821
	End If
	
	'Get the domain if there is one
	If Instr(addressee, "@") > 0 Then
		If Not(nam.IsHierarchical) Then
			'Get the internet domain (everything after the @ symbol)
			AddresseeDomain = Lcase(Strrightback(addressee, "@", 5, 1))
		Else
			'Get the users Domino domain
			Dim domains As Variant
			Let domains = Split(addressee, "@")
			AddresseeDomain = domains(1)	'domains(0) will always be the user name and
									'domains(1) will always be the internet or home Domino domain
		End If
	Else
		AddresseeDomain = ""
	End If
End Function