Index: zTryout/WV/APPS/EC/EDIImport.cls.xml
===================================================================
diff -u -r31311 -r32528
--- zTryout/WV/APPS/EC/EDIImport.cls.xml	(.../EDIImport.cls.xml)	(revision 31311)
+++ zTryout/WV/APPS/EC/EDIImport.cls.xml	(.../EDIImport.cls.xml)	(revision 32528)
@@ -26,6 +26,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestMail">
+<Description>
+Oproepen via 
+	Do ##class(zTryout.WV.APPS.EC.EDIImport).TestMail() </Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#define AlpnachMail(%v)		""""_%v_""" <TestByVanHoecke@alpnachnorm.ch>"
+	#define FilePath            "F:\Temp\productiedetailDoc.xml" 
+	
+	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	;Do RuntimeContext.ZetGebruikerID("4682||1007")
+	
+	#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
+	#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail()
+	Do Mail.ZetOnderwerp("Test EDI Alpnach (By WimV) "_$ZDT($H,3))
+	Do Mail.ZetVerzender($$$AlpnachMail("Test By WimV"))
+
+	Do Mail.VoegToeOntvanger("WV@vanhoecke.be")
+	;Do Mail.VoegToeOntvangerBCC("WV@vanhoecke.be")
+	
+	#dim MsgBody As %String = "THIS IS A TEST FROM  ICT-VAN HOECKE !!! "_$$$CRLF_"EDI-file in attachment should be processed by Van Hoecke NotesMail."_$$$CRLF_"Please forward to WV@vanhoecke.be"_$$$CRLF_" Thanks."
+	#dim Attachments As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($$$FilePath)
+	
+	Do Mail.ZetIsHTML($$$False)
+	Do Mail.ZetInhoud(MsgBody)
+	Do Mail.VoegToeBijlagen(Attachments)
+	
+	Do Mail.ZetOmleiden($$$False)
+	
+	Do MailAPI.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
 <Method name="ExportXML">
 <Description>
 Oproepen via 
@@ -59,7 +92,7 @@
 <Implementation><![CDATA[
 	#dim SubFolder As %String = "EdiOrdersTest"
 	#dim BestandLocatie As %String = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory"),SubFolder)
-	set BestandNaam = "EdiOrderXMLSchema.xsd"
+	set BestandNaam = "EdiOrderXMLSchema2.xsd"
 	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,BestandNaam)
 	
 	Set FileStream=##class(%GlobalCharacterStream).%New()