Index: TECH/Mail/impl/BestandVerzender.cls.xml
===================================================================
diff -u -r945 -r3476
--- TECH/Mail/impl/BestandVerzender.cls.xml	(.../BestandVerzender.cls.xml)	(revision 945)
+++ TECH/Mail/impl/BestandVerzender.cls.xml	(.../BestandVerzender.cls.xml)	(revision 3476)
@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Mail.impl.BestandVerzender">
+<Description><![CDATA[
+Betere naam is MailNaarBestandVerzender  --> TO DO : rename class ]]></Description>
 <Super>TECH.Mail.Verzender,TECH.RegisteredObject</Super>
 
 <Property name="VerzondenMails">
@@ -51,21 +53,22 @@
 <FormalSpec>Mail:TECH.Mail.Mail</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim BestandVolledigeNaam As %String = ..BepaalBestandVolledigeNaam(Mail.GeefOnderwerp())
+	#dim BestandVolledigeNaam As %String = ..BepaalBestandVolledigeNaam(Mail.GeefOnderwerp(), Mail.GeefIsHTML())
 
-	#dim FileWriter As TECH.File.FileWriter= ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	#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())
 
  	if (Mail.GeefOntvangers().Size) {
-	 	do FileWriter.WriteLine("Ontvangers: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),","))
+	 	do FileWriter.WriteLine("Ontvangers: "_$$$CRLF_$$$TAB_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),$$$CRLF_$$$TAB))
  	}
  	if Mail.GeefOntvangersCC().Size {
-	 	do FileWriter.WriteLine("Ontvangers CC: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersCC(),","))
+	 	do FileWriter.WriteLine("Ontvangers CC: "_$$$CRLF_$$$TAB_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersCC(),$$$CRLF_$$$TAB))
  	}
  	if Mail.GeefOntvangersBCC().Size { 
- 		do FileWriter.WriteLine("Ontvangers BCC: '"_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersBCC(),","))
+ 		do FileWriter.WriteLine("Ontvangers BCC: "_$$$CRLF_$$$TAB_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersBCC(),$$$CRLF_$$$TAB))
  	}
  	
  	do FileWriter.WriteLine("Data:")
@@ -75,13 +78,21 @@
 </Method>
 
 <Method name="BepaalBestandVolledigeNaam">
-<FormalSpec>Onderwerp:%String</FormalSpec>
+<FormalSpec>Onderwerp:%String,IsHTML:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim BestandVolledigeNaam As %String = ..BestandLocatie
-	Set BestandVolledigeNaam = ##class(TECH.Files).AppendFile(BestandVolledigeNaam,"Mail_"_##class(TECH.StringUtils).AlignRight(..VerzondenMails.Count(),0,3)_".txt")
-	Quit BestandVolledigeNaam
+	#dim Extensie As %String
+	If (IsHTML){
+		Set BestandVolledigeNaam = ##class(TECH.Files).AppendFile(BestandVolledigeNaam,"Mail_"_##class(TECH.StringUtils).AlignRight(..VerzondenMails.Count(),0,3)_".html")
+	}
+	Else
+	{
+		Set BestandVolledigeNaam = ##class(TECH.Files).AppendFile(BestandVolledigeNaam,"Mail_"_##class(TECH.StringUtils).AlignRight(..VerzondenMails.Count(),0,3)_".txt")
+
+	}
+    Quit BestandVolledigeNaam
 ]]></Implementation>
 </Method>
 </Class>