Index: DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml
===================================================================
diff -u -r37878 -r39749
--- DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml	(.../VanHoeckeGebruikerBeheerder.cls.xml)	(revision 37878)
+++ DOM/common/impl/VanHoeckeGebruikerBeheerder.cls.xml	(.../VanHoeckeGebruikerBeheerder.cls.xml)	(revision 39749)
@@ -47,6 +47,15 @@
 	Quit Gebruiker
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGebruikerViaEmail">
+<FormalSpec>Email:TECH.String</FormalSpec>
+<ReturnType>DOM.common.VanHoeckeGebruiker</ReturnType>
+<Implementation><![CDATA[
+	#dim InterneId As %String = $$GeefUserIDViaEmail^vhUSER(Email)
+	Quit ..GeefGebruiker(InterneId)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml
===================================================================
diff -u -r37653 -r39749
--- vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml	(.../Test.cls.xml)	(revision 37653)
+++ vhUnitTest/DOM/common/impl/VanHoeckeGebruikerBeheerder/Test.cls.xml	(.../Test.cls.xml)	(revision 39749)
@@ -91,6 +91,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Exceptie wordt geraised indien Email niet gevonden wordt">
+<Implementation><![CDATA[
+	#dim OnbestaandEmailAdres As TECH.String = "OnbestaandEmailAdres"
+	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen gebruiker gevonden met Email ", OnbestaandEmailAdres)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
+	
+	Do ..GebruikerBeheerder.GeefGebruikerViaEmail(OnbestaandEmailAdres)
+]]></Implementation>
+</Method>
+
 <Method name="AssertGebruiker">
 <FormalSpec>Gebruiker:DOM.common.VanHoeckeGebruiker</FormalSpec>
 <Private>1</Private>