Index: APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml
===================================================================
diff -u -r66685 -r66694
--- APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml	(.../UitgesteldeZendingLijst.cls.xml)	(revision 66685)
+++ APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml	(.../UitgesteldeZendingLijst.cls.xml)	(revision 66694)
@@ -27,7 +27,7 @@
 <Implementation><![CDATA[
 	Set ..MailAPI = $$$Inject(MailAPI,##class(TECH.Mail.impl.MailAPI).%New())
 	Set ..TransportAPI = $$$Inject(TransportAPI,##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New())
-	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New(..%ClassName(1)))
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -80,9 +80,8 @@
 		Do ..Logger.Info("Verstuurde lijst voor transport " _ TransportNr,Stream)
 	
 		#Dim Mail as TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
-		;Do Mail.VoegToeOntvanger("liesbeth@vrd.be")
-		;Do Mail.VoegToeOntvangerBCC("jwi@vanhoecke.be")
-		Do Mail.VoegToeOntvanger("jwi@vanhoecke.be")
+		Do Mail.VoegToeOntvanger("liesbeth@vrd.be")
+		Do Mail.VoegToeOntvangerBCC("jwi@vanhoecke.be")
 		Do Mail.VoegToeBijlageStream(Stream,"UitgesteldeLeveringen_"_$ZD($h,3)_"_"_TransportNr_".csv" )
 		Do Mail.VoegToeLijn("Beste,")
 		Do Mail.VoegToeLijn("")
@@ -91,7 +90,7 @@
 		Do Mail.VoegToeLijn("Met vriendelijke groeten.")
 		Do Mail.VoegToeLijn("")
 		Do Mail.VoegToeLijn("Van Hoecke Verzending.")
-		Do Mail.ZetOnderwerp("Lijst zendingen voor uitgestelde levering")
+		Do Mail.ZetOnderwerp("Lijst zendingen voor uitgestelde levering " _ TransportNr)
 		Do Mail.ZetVerzender($$$SystemMail("Verzending Van Hoecke"))
 		Do ..MailAPI.VerstuurMail(Mail)
 	}