Index: TECH/Mail/impl/Mail.cls.xml
===================================================================
diff -u -r912 -r916
--- TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 912)
+++ TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 916)
@@ -1,8 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Mail.impl.Mail">
-<IncludeCode>vhLib.Macro</IncludeCode>
-<Super>TECH.Mail.Mail</Super>
+<Super>TECH.RegisteredObject,TECH.Mail.Mail</Super>
 
 <Property name="Verzender">
 <Type>%String</Type>
@@ -64,12 +63,19 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>Verzender:%String="",Ontvanger:%String="",Onderwerp:%String="",Inhoud:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	set ..Verzender = Verzender
+	do:$length(Ontvanger) ..VoegToeOntvanger(Ontvanger)
+	set ..Onderwerp = Onderwerp
+
 	set ..MailMessage = ##class(%Net.MailMessage).%New()
+	do ..ZetInhoud(Inhoud)
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>