Index: TECH/Mail.cls.xml
===================================================================
diff -u -r45 -r380
--- TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 45)
+++ TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 380)
@@ -47,6 +47,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IsHTML">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Bijlagen">
 <Type>%String</Type>
 <Collection>list</Collection>
@@ -189,6 +194,7 @@
 	set ..MailMessage.Bcc = ..GeefOntvangersBCC()
 	set ..MailMessage.ReplyTo = ..GeefAntwoordenNaar()
 	set ..MailMessage.Subject = ..Onderwerp
+	set ..MailMessage.IsHTML=..IsHTML
 	
 	if ..MailOmleiden() {
 		do ..VoegToeInfoOrigineleOntvangers()
@@ -300,6 +306,11 @@
 	Set:(..MailMessage.To.Count()>0) RecipientsInfo=RecipientsInfo_"  To  : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.To,", ")_$$$CRLF
 	Set:(..MailMessage.Cc.Count()>0) RecipientsInfo=RecipientsInfo_"  Cc  : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.Cc,", ")_$$$CRLF
 	Set:(..MailMessage.Bcc.Count()>0) RecipientsInfo=RecipientsInfo_"  Bcc : "_##class(TECH.ListUtils).ListToPieces(..MailMessage.Bcc,", ")_$$$CRLF
+	Set RecipientsInfo=RecipientsInfo_"============================================================"_$$$CRLF
+	If ..IsHTML {
+		Set RecipientsInfo=$$$Replace(RecipientsInfo,$$$CRLF,"<BR>")
+		Set RecipientsInfo=RecipientsInfo_"<BR>"
+	}
 	Quit RecipientsInfo
 ]]></Implementation>
 </Method>