Index: TRANSPExport2File.mac.rou
===================================================================
diff -u -r53323 -r53327
--- TRANSPExport2File.mac.rou	(.../TRANSPExport2File.mac.rou)	(revision 53323)
+++ TRANSPExport2File.mac.rou	(.../TRANSPExport2File.mac.rou)	(revision 53327)
@@ -29,16 +29,23 @@
 ExportEnMail(TranspNr,lbAdressen)
 	New FileNaam,Pad,PadEnFile,Subject,Body
 	Set FileNaam="Transport "_TranspNr_".txt"
+	
 	Set Pad=##class(TECH.File).GetTempDir()
 	Set:($$$Server = "CACHE01") Pad="C:\SCRATCH"
 	Set PadEnFile=$$ExportNaarBestand(TranspNr,Pad,FileNaam)
 	Quit:PadEnFile=""
 	Set lbAttachments=$LB($LB(PadEnFile))
-	Set Subject="Transportlijst "_TranspNr
+
 	Set IsTussentijdseExport = $Data(^TRANSP("IO",TranspNr))
+	
+	Set Subject="Transportlijst "_TranspNr
+	Set:IsTussentijdseExport Subject = "Tussentijdse vooraanmelding " _ Subject
+	
 	Set ActieOmschrijving=$Select(IsTussentijdseExport:"Tussentijdse vooraanmelding", 1:"Afsluiting")
 	Set Body=ActieOmschrijving _ " van transport "_TranspNr_", details zie bijlage."_$$$CRLF
+	
 	Set Mail=$$SendMiniMail^vhLib.Mail("RDL@VANHOECKE.BE",lbAdressen,Subject,Body,,,,,lbAttachments)
+	
 	Do DELFILE^vhDEV(PadEnFile)
 	Do ##class(vhLib.Logger).%New("Transport").Info("Mail Transportlijst", "Mail van transport "_TranspNr_" naar "_lbAdressen)
 	Quit