Index: TECH/Mail/impl/MailAPIMetBestandVerzender.cls.xml
===================================================================
diff -u -r861 -r3475
--- TECH/Mail/impl/MailAPIMetBestandVerzender.cls.xml	(.../MailAPIMetBestandVerzender.cls.xml)	(revision 861)
+++ TECH/Mail/impl/MailAPIMetBestandVerzender.cls.xml	(.../MailAPIMetBestandVerzender.cls.xml)	(revision 3475)
@@ -1,6 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Mail.impl.MailAPIMetBestandVerzender">
+<Description>
+DEPRECATED !!!
+  Vanaf nu deze gebruiken : vhTest.Utils.MailNaarBestandAPI </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Mail.impl.MailAPI,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -10,8 +13,8 @@
 <FormalSpec>BestandLocatie:%String</FormalSpec>
 <ReturnType>TECH.Mail.impl.MailAPIMetBestandVerzender</ReturnType>
 <Implementation><![CDATA[
-	do ##class(TECH.Context).Instance().PushMailAPIClassName("TECH.Mail.impl.MailAPIMetBestandVerzender")
-	#dim MailAPI As TECH.Mail.MailAPIMetBestandVerzender = ##class(TECH.Context).Instance().GeefMailAPI()
+	do ##class(TECH.Context).Instance().PushMailAPIClassName(..%ClassName(1))
+	#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
 	#dim BestandVerzender As TECH.Mail.Verzender = ##class(TECH.Mail.impl.BestandVerzender).%New(BestandLocatie)
 	Do MailAPI.IndienMethodCall("GeefVerzender").DanReturn(BestandVerzender)
 	Quit MailAPI