Index: vhEMAIL.mac.rou
===================================================================
diff -u -r734 -r1264
--- vhEMAIL.mac.rou	(.../vhEMAIL.mac.rou)	(revision 734)
+++ vhEMAIL.mac.rou	(.../vhEMAIL.mac.rou)	(revision 1264)
@@ -9,9 +9,25 @@
  Do BLDIAM^vhEMAIL3
  Quit
  ;
+ 
 CHECK(EMAdres) 
- Quit $$CHECK^vhEMAIL2($G(EMAdres))
- ;
+ Set Check = 1
+ Set Emails = $G(EMAdres)
+ Set EmailIt = ##class(TECH.PiecesIterator).%New(Emails,";")
+ While(EmailIt.HasNext()){
+	  Set Email = EmailIt.Next()
+	  Set ValidMail = ##class(TECH.Mail).Check(Email,1)
+	  If ('ValidMail){
+	 	 /// ValidMail kan geforceerd worden.
+	 	 If ($Get(%ShowMailPopup)){
+	 	 	Set ValidMail=$$^vhTXTPOP("TECH.MAIL","CHECKMAIL","",Email)
+	 	 }	
+	 	 Set:'ValidMail Check = ValidMail 	 
+	  }
+ }
+ Quit Check
+ /// JBL : oorspronkelijke check was : Quit $$CHECK^vhEMAIL2($G(EMAdres))
+ /// Deze is vervangen door bovenstaande check.
 EMAILCTR 
  Goto JOB^EMAILCTR