Index: CHUI/Derde/EC/Toegang/dlgOpen.cls.xml
===================================================================
diff -u -r1074 -r1327
--- CHUI/Derde/EC/Toegang/dlgOpen.cls.xml	(.../dlgOpen.cls.xml)	(revision 1074)
+++ CHUI/Derde/EC/Toegang/dlgOpen.cls.xml	(.../dlgOpen.cls.xml)	(revision 1327)
@@ -541,6 +541,12 @@
 	;Paswoord verzenden (emailadres valideren)
 	Set EmailAddress=objToegang.EmailAdres
 	Quit:($$$InputBox(..Caption,"Paswoord verzenden naar:",.EmailAddress)=$$$mrCancel)
+	
+	Set ValidMail = ##class(TECH.Mail).Check(EmailAddress,1)
+	If ('ValidMail) {
+		Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
+		Quit:($$$InputBox(..Caption,"Email foutief :"_Feedback_" Toch verzenden ? ",.EmailAddress)=$$$mrCancel)
+	}
 	Quit:(EmailAddress="")
 	$$$blToegang
 	Set FromEmailAddress=$S($IsObject(%Application.User):%Application.User.eMail,1:"unknown@vanhoecke.be")