Index: BL/Flow/Offerte/XML2Offerte.cls.xml
===================================================================
diff -u -r29059 -r69842
--- BL/Flow/Offerte/XML2Offerte.cls.xml	(.../XML2Offerte.cls.xml)	(revision 29059)
+++ BL/Flow/Offerte/XML2Offerte.cls.xml	(.../XML2Offerte.cls.xml)	(revision 69842)
@@ -153,14 +153,10 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-//d ##class(BL.Flow.Offerte.XML2Offerte).Instantiate(1).ImportTXT("\\notes01\shared\J C L","Franssen.txt")
-
-]]></Content>
-</UDLText>
-
 <Method name="ImportTXT">
+<Description>
+Oproepen via : 
+  d ##class(BL.Flow.Offerte.XML2Offerte).Instantiate(1).ImportTXT("\\notes01\shared\J C L","Franssen.txt")</Description>
 <FormalSpec>Dir,FileName</FormalSpec>
 <Implementation><![CDATA[
 	
@@ -368,7 +364,8 @@
 	Set Link(1)="KL\"_..KLNr_"\R"
 	If ..DebugMode Set EMailGroep="jcl"
 	Else  Set EMailGroep="JRO;NBR" ;$$EMailGroep^KLOPV(..KLNr,"ORDVW") ; enkel naar "JRO;NBR" CW 18.05.10
-	Set MailId=$$SYSTEM^vhMAIL("KL",..KLNr,Titel,EMailGroep,.Body,.Link,"U")
+	Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail("KL",..KLNr,Titel,EMailGroep,.Body,.Link,"U")
+	;Set MailId=$$SYSTEM^vhMAIL("KL",..KLNr,Titel,EMailGroep,.Body,.Link,"U")
 ]]></Implementation>
 </Method>