Index: TECH/Mail/impl/MailAPI.cls.xml
===================================================================
diff -u -r861 -r916
--- TECH/Mail/impl/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 861)
+++ TECH/Mail/impl/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 916)
@@ -4,15 +4,17 @@
 <Super>TECH.Mail.MailAPI,%RegisteredObject</Super>
 
 <Method name="MaakNieuwMail">
+<FormalSpec>Verzender:%String="",Ontvanger:%String="",Onderwerp:%String="",Inhoud:%String=""</FormalSpec>
 <ReturnType>TECH.Mail.Mail</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.Mail.impl.Mail).%New()
+<Implementation><![CDATA[	Quit ##class(TECH.Mail.impl.Mail).%New(Verzender,Ontvanger,Onderwerp,Inhoud)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakNieuwMailVoorICT">
+<FormalSpec>Verzender:%String="",Ontvanger:%String="",Onderwerp:%String="",Inhoud:%String=""</FormalSpec>
 <ReturnType>TECH.Mail.Mail</ReturnType>
 <Implementation><![CDATA[
-	Set Mail = ##class(TECH.Mail.impl.Mail).%New()
+	Set Mail = ##class(TECH.Mail.impl.Mail).%New(Verzender,Ontvanger,Onderwerp,Inhoud)
 	Do Mail.VoegToeOntvanger(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress"))
 	Quit Mail
 ]]></Implementation>