Index: TECH/Mail/impl/BestandVerzender.cls.xml
===================================================================
diff -u -r921 -r945
--- TECH/Mail/impl/BestandVerzender.cls.xml	(.../BestandVerzender.cls.xml)	(revision 921)
+++ TECH/Mail/impl/BestandVerzender.cls.xml	(.../BestandVerzender.cls.xml)	(revision 945)
@@ -53,24 +53,24 @@
 <Implementation><![CDATA[
 	#dim BestandVolledigeNaam As %String = ..BepaalBestandVolledigeNaam(Mail.GeefOnderwerp())
 
-	set File = ##class(TECH.File.impl.FileWriter).%New(BestandVolledigeNaam)
+	#dim FileWriter As TECH.File.FileWriter= ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open(BestandVolledigeNaam)
+ 	do FileWriter.WriteLine("Onderwerp: "_Mail.GeefOnderwerp())
+ 	do FileWriter.WriteLine("Verzender: "_Mail.GeefVerzender())
 
- 	do File.WriteLine("Onderwerp: "_Mail.GeefOnderwerp())
- 	do File.WriteLine("Verzender: "_Mail.GeefVerzender())
-
  	if (Mail.GeefOntvangers().Size) {
-	 	do File.WriteLine("Ontvangers: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),","))
+	 	do FileWriter.WriteLine("Ontvangers: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),","))
  	}
  	if Mail.GeefOntvangersCC().Size {
-	 	do File.WriteLine("Ontvangers CC: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersCC(),","))
+	 	do FileWriter.WriteLine("Ontvangers CC: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersCC(),","))
  	}
  	if Mail.GeefOntvangersBCC().Size { 
- 		do File.WriteLine("Ontvangers BCC: '"_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersBCC(),","))
+ 		do FileWriter.WriteLine("Ontvangers BCC: '"_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersBCC(),","))
  	}
  	
- 	do File.WriteLine("Data:")
- 	do File.WriteStream(Mail.GeefInhoud())
- 	do File.Close()
+ 	do FileWriter.WriteLine("Data:")
+ 	do FileWriter.WriteStream(Mail.GeefInhoud())
+ 	do FileWriter.Close()
 ]]></Implementation>
 </Method>