Index: zTryout/WV/Demos.cls.xml
===================================================================
diff -u -r32570 -r36824
--- zTryout/WV/Demos.cls.xml	(.../Demos.cls.xml)	(revision 32570)
+++ zTryout/WV/Demos.cls.xml	(.../Demos.cls.xml)	(revision 36824)
@@ -19,6 +19,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestMail">
+<Description>
+Oproepen via 
+	Do ##class(zTryout.WV.Demos).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 voor Outlook (By WimV) "_$ZDT($H,3))
+	Do Mail.ZetVerzender("wv@vanhoecke.be")
+
+	Do Mail.VoegToeOntvanger("jurgen@vdssystems.be")
+	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_"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)
+	
+	try {
+		Do MailAPI.VerstuurMail(Mail)
+		Write !,"Mail verzonden.",!
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Write !!,"Error : "_Exception.ToString(),!
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Demo4">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>