Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.HR.BrandLijst.BrandLijstService.txt
===================================================================
diff -u -r54282 -r64549
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.HR.BrandLijst.BrandLijstService.txt	(.../WS.HR.BrandLijst.BrandLijstService.txt)	(revision 54282)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.HR.BrandLijst.BrandLijstService.txt	(.../WS.HR.BrandLijst.BrandLijstService.txt)	(revision 64549)
@@ -54,6 +54,19 @@
                     <s:sequence/>
                 </s:complexType>
             </s:element>
+            <s:element name="TestMailBrandlijstViaFOP">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="WerknemersLijst" type="s0:WerknemersLijst"/>
+                        <s:element minOccurs="0" name="MailTo" type="s:string"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:element name="TestMailBrandlijstViaFOPResponse">
+                <s:complexType>
+                    <s:sequence/>
+                </s:complexType>
+            </s:element>
         </s:schema>
     </types>
     <message name="PrintBrandlijstViaFOPSoapIn">
@@ -62,11 +75,21 @@
     <message name="PrintBrandlijstViaFOPSoapOut">
         <part name="parameters" element="s0:PrintBrandlijstViaFOPResponse"/>
     </message>
+    <message name="TestMailBrandlijstViaFOPSoapIn">
+        <part name="parameters" element="s0:TestMailBrandlijstViaFOP"/>
+    </message>
+    <message name="TestMailBrandlijstViaFOPSoapOut">
+        <part name="parameters" element="s0:TestMailBrandlijstViaFOPResponse"/>
+    </message>
     <portType name="BrandLijstServiceSoap">
         <operation name="PrintBrandlijstViaFOP">
             <input message="s0:PrintBrandlijstViaFOPSoapIn"/>
             <output message="s0:PrintBrandlijstViaFOPSoapOut"/>
         </operation>
+        <operation name="TestMailBrandlijstViaFOP">
+            <input message="s0:TestMailBrandlijstViaFOPSoapIn"/>
+            <output message="s0:TestMailBrandlijstViaFOPSoapOut"/>
+        </operation>
     </portType>
     <binding name="BrandLijstServiceSoap" type="s0:BrandLijstServiceSoap">
         <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document"/>
@@ -79,6 +102,15 @@
                 <soap:body use="literal"/>
             </output>
         </operation>
+        <operation name="TestMailBrandlijstViaFOP">
+            <soap:operation soapAction="http://vhisie.vanhoecke.be/V3/WS.HR.BrandLijst.BrandLijstService.TestMailBrandlijstViaFOP" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
     </binding>
     <service name="BrandLijstService">
         <port name="BrandLijstServiceSoap" binding="s0:BrandLijstServiceSoap">
Index: WS/HR/BrandLijst/BrandLijstService.cls.xml
===================================================================
diff -u -r55615 -r64549
--- WS/HR/BrandLijst/BrandLijstService.cls.xml	(.../BrandLijstService.cls.xml)	(revision 55615)
+++ WS/HR/BrandLijst/BrandLijstService.cls.xml	(.../BrandLijstService.cls.xml)	(revision 64549)
@@ -26,6 +26,19 @@
 	;Do ##class(BL.HR.WerknemersLijstBrandDoc).MailWerknemersLijstPDFBijBrand(WerknemersLijst,$lb("jo.willems@vanhoecke.be"),"brandlijstpdf","brand brand",$$$SystemMail("jo") )
 ]]></Implementation>
 </Method>
+
+<Method name="TestMailBrandlijstViaFOP">
+<FormalSpec>WerknemersLijst:APPS.HR.WerknemersLijstBijBrand.dto.WerknemersLijst,MailTo:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	// De pdf kan gemaild worden. Een (html)-lijst wordt nu al gemailed van op cache03.
+	#dim lbMailTo As %List = $ListBuild("wimv@vanhoecke.be")
+	If $Get(MailTo) [ "@vanhoecke.be" {
+		Set lbMailTo = $LB(MailTo)
+	}
+	Do ##class(BL.HR.WerknemersLijstBrandDoc).MailWerknemersLijstPDFBijBrand(WerknemersLijst, lbMailTo, "Testmail brandlijstpdf","brand brand",$$$SystemMail("BrandLijstTest") )
+]]></Implementation>
+</Method>
 </Class>