Index: vhUSER.mac.rou
===================================================================
diff -u -r29059 -r39737
--- vhUSER.mac.rou	(.../vhUSER.mac.rou)	(revision 29059)
+++ vhUSER.mac.rou	(.../vhUSER.mac.rou)	(revision 39737)
@@ -766,3 +766,16 @@
  	quit UserID
  ;
 
+GeefUserIDViaEmail(Email)
+ 	new SearchString set SearchString = $zconvert(Email,"U")
+ 	new UserID set UserID = ""
+ 	new Gevonden set Gevonden = 0
+ 	for { quit:Gevonden  set UserID = $order(^vhUSER("D",UserID)) quit:UserID=""
+ 		if $D(^vhUSER("D",UserID,"M")) && ($zconvert($P(^vhUSER("D",UserID,"M"),"\",13),"U")=SearchString) set Gevonden=1
+ 	}
+ 	if 'Gevonden {
+	 	do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen gebruiker gevonden met Email : "_Email))	
+ 	}
+ 	quit UserID
+ ;
+