Index: WS/TBX/TestMail.cls.xml
===================================================================
diff -u
--- WS/TBX/TestMail.cls.xml	(revision 0)
+++ WS/TBX/TestMail.cls.xml	(revision 442)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.TBX.TestMail">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Description>
+Name of the WebService.</Description>
+<Default>TBX.TestMail</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+TODO: change this to actual SOAP namespace.
+SOAP Namespace for the WebService</Description>
+<Default>http://vhisie.vanhoecke.be</Default>
+</Parameter>
+
+<Method name="SendTBXTestMail">
+<Description>
+Send TestMail (bvb. voor Mail Forwarding Rules te controleren) 
+Provide a Username, RegioID or mailgroup (without @vanhoecke.) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>To:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	If $IsValidNum(To) {
+		Set RegioID=+To
+		Set lbTo=$LB("OV_WebOrder_R"_##class(TECH.StringUtils).AlignRight(RegioID,"0",2)_"@vanhoecke.be")
+	}
+	Else {
+		Set lbTo=$LB($P(To,"@",1)_"@vanhoecke.be")
+	}
+	Set sc=..SendTestMail(lbTo)
+
+	If $$$ISOK(sc) {
+		Set Result="TestMail is verzonden naar "_$$$LCVT(lbTo)
+	}
+	Else {
+		Set Result=$$ParseStatus^vhLib(sc)
+	}
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="SendTestMail">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>lbTo:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set From="""Test by "_$$$Server_""" <AdminTBX@vanhoecke.be>"
+	Set Subject="Test voor Forwarding"
+	Set Body="Test by AdminTBX"
+	Quit $$SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body,0,0)
+]]></Implementation>
+</Method>
+</Class>
+</Export>