Index: APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml
===================================================================
diff -u -r52457 -r52460
--- APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 52457)
+++ APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 52460)
@@ -58,19 +58,21 @@
 
 	Try {
 		//Data ophalen
+		#dim VorigeLaatstVerwerkteRit As %String = +##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie.LaatstVerwerkteRit")
 		#dim RitDataLijst = ##class(APPS.TRANSP.dto.NacalculatieLijst).%New()
 		Set RitDataLijst = ..TransportdataVoorKlantBepaler.BepaalTransportData(KlantId)
+		#dim HuidigeLaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie.LaatstVerwerkteRit")
 		//csv maken
 		Do ..RapportGenerator.MaakBestand(..RapportDataFactory.MaakRapportData(RitDataLijst, Bestandsnaam))
 		
 		//mailen
-		Do Mail.ZetInhoud("zie attachment - ")
+		Do Mail.ZetInhoud("In de bijlage vind je de nacalculatiegegevens voor klant '"_KlantId_"' vanaf RitId '"_VorigeLaatstVerwerkteRit_"' tot en met RitId '"_HuidigeLaatstVerwerkteRit_"'")
 		Do Mail.VoegToeBijlage(Bestandsnaam)
 		Do ..MailApi.VerstuurMail(Mail)
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ##class(vhLib.Logger).%New().Error("Nacalculator", Exception.ToString())
-		Do Mail.ZetInhoud("Er ging iets mis!! ")
+		Do Mail.ZetInhoud("Er ging iets mis tijdens de nacalculatie voor klant '"_KlantId_"'. ")
 		Do ..MailApi.VerstuurMail(Mail)
 	}
 	//csv verwijderen