Index: zTryout/WV/Demos.cls.xml
===================================================================
diff -u -r36825 -r36863
--- zTryout/WV/Demos.cls.xml	(.../Demos.cls.xml)	(revision 36825)
+++ zTryout/WV/Demos.cls.xml	(.../Demos.cls.xml)	(revision 36863)
@@ -25,6 +25,15 @@
 	Do ##class(zTryout.WV.Demos).TestMail() </Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	
+	/*
+
+	D ##class(TECH.Config.ConfigMgr).Instance().ZetString("MiniMail_SMTPServerNameOrIP","relay.vanhoecke.be")
+	W ##class(TECH.Config.ConfigMgr).Instance().GetString("MiniMail_SMTPServerNameOrIP")
+		relay.vanhoecke.be
+	*/
+	
+	
 	#define AlpnachMail(%v)		""""_%v_""" <TestByVanHoecke@alpnachnorm.ch>"
 	#define FilePath            "F:\Temp\productiedetailDoc.xml" 
 	
@@ -34,15 +43,22 @@
 	#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.ZetVerzender($$$SystemMail("TestingForOutlook"))
+	;Do Mail.ZetVerzender($$$AlpnachMail("TestingForOutlook"))
 
+	Do Mail.VoegToeOntvanger("Wim.Vermeulen@vanhoecke.be")
+	;Do Mail.VoegToeOntvanger("AdminTBX@vanhoecke.be")
+	;Do Mail.VoegToeOntvanger("WV@vanhoecke.be")
 	;Do Mail.VoegToeOntvanger("jurgen@vdssystems.be")
-	Do Mail.VoegToeOntvanger("WV@vanhoecke.be")
+	;Do Mail.VoegToeOntvangerCC("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)
+	#dim Attachments As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($$$FilePath)
 	
+	;#dim MsgBody As %String = "<H2/><P><A href=""http://www.vanhoecke.be"">website</A>THIS IS A TEST FROM  ICT-VAN HOECKE !!! </P>"_$$$CRLF_"<BR/><PRE>Please forward to WV@vanhoecke.be"_$$$CRLF_" Thanks.</PRE>"
+	;Do Mail.ZetIsHTML($$$True)
+
 	Do Mail.ZetIsHTML($$$False)
 	Do Mail.ZetInhoud(MsgBody)
 	;Do Mail.VoegToeBijlagen(Attachments)