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
 ;
 
CheckEmail(Email)
 New ValidMail,Feedback
 Set ValidMail = 1
 If Email '= "" {
	 Set ValidMail = ##class(TECH.MailUtils).Check(Email,1)
	 If ('ValidMail){
	 	 /// ValidMail kan geforceerd worden.
	 	 Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2)
	 	 If ($Get(%ShowMailPopup)){		 	
	 	 	Set ValidMail=$$^vhTXTPOP("TECH.MAIL","CHECKMAIL","",Email,Feedback)
	 	 }Else{
		 	 Set FP=0201
		 	 Write @F,@FMTI,@FMTK,"Email niet geldig : "_Feedback,@FMTk,@FMTi
		 }
	  }
 }
 Quit ValidMail
 
CHECK(EMAdres)
 New Check,Emails,EmailIt,Email
 Set Check = 1
 Set Emails = $G(EMAdres)
 Set EmailIt = ##class(TECH.PiecesIterator).%New(Emails,";")
 While(EmailIt.HasNext()){
	  Set Email = EmailIt.Next()
	  Set Check = $$CheckEmail(Email)
 }
 Quit Check
 
EMAILCTR 
 Goto JOB^EMAILCTR
 
EMAILIN 
 Goto EMAILIN^vhEMAIL4
 ;
ERROR 
 Do:$ZE'["<NOSYS>" ^cA400
 Quit
 ;