Index: CHUI/Derde/EC/Toegang/MainForm.cls.xml
===================================================================
diff -u -r1280 -r1298
--- CHUI/Derde/EC/Toegang/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1280)
+++ CHUI/Derde/EC/Toegang/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1298)
@@ -466,9 +466,11 @@
 	. Do ..txtEmail.SetFocus()
 	. Do $$$ShowMsgBoxSimple(..Caption,"Er is geen emailadres opgegeven.")
 	
-	If ((..txtEmail.Value '= "")  && ('##class(TECH.Mail).Check(..txtEmail.Value,1))){
+	Set ValidMail = ##class(TECH.Mail).Check(..txtEmail.Value,1)
+	If ((..txtEmail.Value '= "")  && 'ValidMail){
 		Do ..txtEmail.SetFocus()
-		Do $$$ShowMsgBoxSimple(..Caption,"Het opgegeven emailadres is niet geldig.")
+		Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
+		Do $$$ShowMsgBoxSimple(..Caption,"Het opgegeven emailadres is niet geldig. "_Feedback)
 		Quit 0
 	}