Index: TECH/Mail/MailAPI.cls.xml
===================================================================
diff -u -r517 -r519
--- TECH/Mail/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 517)
+++ TECH/Mail/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 519)
@@ -8,6 +8,11 @@
 <ReturnType>TECH.Mail.Mail</ReturnType>
 </Method>
 
+<Method name="MaakNieuwMailVoorICT">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Mail.Mail</ReturnType>
+</Method>
+
 <Method name="VerstuurMail">
 <Abstract>1</Abstract>
 <FormalSpec>Mail:TECH.Mail.Mail</FormalSpec>
Index: TECH/Mail/impl/MailAPI.cls.xml
===================================================================
diff -u -r517 -r519
--- TECH/Mail/impl/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 517)
+++ TECH/Mail/impl/MailAPI.cls.xml	(.../MailAPI.cls.xml)	(revision 519)
@@ -25,6 +25,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakNieuwMailVoorICT">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Mail.Mail</ReturnType>
+<Implementation><![CDATA[
+	Set Mail = ##class(TECH.Mail.impl.Mail).%New()
+	Do Mail.VoegToeOntvanger(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress"))
+	Quit Mail
+]]></Implementation>
+</Method>
+
 <Method name="VerstuurMail">
 <FormalSpec>Mail:TECH.Mail.Mail</FormalSpec>
 <Implementation><![CDATA[