Index: WS/TBX/TestMail.cls.xml
===================================================================
diff -u -r522 -r593
--- WS/TBX/TestMail.cls.xml	(.../TestMail.cls.xml)	(revision 522)
+++ WS/TBX/TestMail.cls.xml	(.../TestMail.cls.xml)	(revision 593)
@@ -28,6 +28,9 @@
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	If To?1"R"1.3N {
+		Set $E(To,1)=""	  ; Is voor RegioID te testen 
+	}
 	If $IsValidNum(To) {
 		Set RegioID=+To
 		Set lbTo=$LB("OV_WebOrder_R"_##class(TECH.StringUtils).AlignRight(RegioID,"0",2)_"@vanhoecke.be")