Index: CHUI/MN/TRANSPCLOF.cls.xml
===================================================================
diff -u -r50728 -r57549
--- CHUI/MN/TRANSPCLOF.cls.xml	(.../TRANSPCLOF.cls.xml)	(revision 50728)
+++ CHUI/MN/TRANSPCLOF.cls.xml	(.../TRANSPCLOF.cls.xml)	(revision 57549)
@@ -275,6 +275,29 @@
 	quit result
 ]]></Implementation>
 </Method>
+
+<Method name="IsTTC">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Quit:$G(TranspNr)'=6671 0 ; TTC
+	#dim RitID As %String = $P(^HULP(%J,SelClose("SELECT")),"\",21)
+	Quit RitID&&$D(^TRANSP("IO",RitID)) ; openstaand transport
+]]></Implementation>
+</Method>
+
+<Method name="MailTTC">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim RitID As %String = $P(^HULP(%J,SelClose("SELECT")),"\",21)
+	If ..IsTTC()
+	{
+		Set lbAdressen=$lb("luchuybrechts@ttctransport.be")
+		Do ExportEnMail^TRANSPExport2Csv(RitID,lbAdressen)
+	}
+]]></Implementation>
+</Method>
 </Class>