vhEMAIL ;EMail [ 09/08/97  5:25 PM ]
 ;
SELECT(Type,Ref,EMAdres) 
 ;Type (M,L,K) = (Manueel, Leverancier, Klant)
 Set Type=$G(Type,"M"),Ref=$G(Ref),EMAdres=$G(EMAdres)
 Quit $$SELECT^vhEMAIL2(Type,Ref,EMAdres)
 ;
BLDIAM 
 Do BLDIAM^vhEMAIL3
 Quit
 ;
 
CHECK(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 Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
	 	 	Set ValidMail=$$^vhTXTPOP("TECH.MAIL","CHECKMAIL","",Email,Feedback)
	 	 }	
	 	 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
 
EMAILIN 
 Goto EMAILIN^vhEMAIL4
 ;
ERROR 
 Do:$ZE'["<NOSYS>" ^cA400
 Quit
 ;