Index: vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml
===================================================================
diff -u -r39749 -r39750
--- vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml	(.../Test.cls.xml)	(revision 39749)
+++ vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml	(.../Test.cls.xml)	(revision 39750)
@@ -33,6 +33,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GebruikerEmail">
+<Type>TECH.String</Type>
+<InitialExpression>"WillekeurigeGebruikerEmail"</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Property name="GebruikerBeheerder">
 <Type>DOM.common.VanHoeckeGebruikerBeheerder</Type>
 <Private>1</Private>
@@ -66,6 +72,7 @@
 <Implementation><![CDATA[
 	Do ..AssertGebruiker(..GebruikerBeheerder.GeefGebruiker(..GebruikerId))
 	Do ..AssertGebruiker(..GebruikerBeheerder.GeefGebruikerViaPincode(..Pincode))
+	Do ..AssertGebruiker(..GebruikerBeheerder.GeefGebruikerViaEmail(..GebruikerEmail))
 ]]></Implementation>
 </Method>
 
@@ -109,6 +116,7 @@
 	Do $$$AssertEquals(Gebruiker.GeefVhUserID(), ..GebruikerId)
 	Do $$$AssertEquals(Gebruiker.GeefInitialen(), ..GebruikerInitialen)
 	Do $$$AssertEquals(Gebruiker.GeefNaam(), ..GebruikerNaamExtern)
+	Do $$$AssertEquals(Gebruiker.GeefEmailAdres(), ##class(TECH.StringUtils).ToLower(..GebruikerEmail))
 ]]></Implementation>
 </Method>
 
@@ -117,6 +125,7 @@
 <Implementation><![CDATA[
 	Set ^vhUSER("IW", ..Pincode) = ..GebruikerId
 	Set ^vhUSER("D", ..GebruikerId) = "\" _ ..GebruikerNaamIntern _"\\" _ ..GebruikerInitialen _ "\" _ ..GebruikerNaamExtern _ "\\\\\\\\\\\\"
+	Set ^vhUSER("D", ..GebruikerId,"M") = "\\\\\\\\\\\\" _ ..GebruikerEmail _"\"
 ]]></Implementation>
 </Method>