Index: TECH/Http/impl/PosterMailMock.cls.xml
===================================================================
diff -u -r801 -r874
--- TECH/Http/impl/PosterMailMock.cls.xml	(.../PosterMailMock.cls.xml)	(revision 801)
+++ TECH/Http/impl/PosterMailMock.cls.xml	(.../PosterMailMock.cls.xml)	(revision 874)
@@ -7,9 +7,15 @@
 <FormalSpec>Message:TECH.Http.Message</FormalSpec>
 <Implementation><![CDATA[
 	#dim Applicatie As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
-	
-	#dim MailTo As %list = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress"))
-	do SendMiniMailForced^vhLib.Mail($$$SystemMail("HttpFakePoster"),MailTo, Applicatie _ "Post message" ,Message.Data,1)
+		
+	#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
+	#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail()
+	Do Mail.ZetOnderwerp(Applicatie _ "Post message")
+	Do Mail.ZetVerzender($$$SystemMail("HttpFakePoster"))
+	Do Mail.VoegToeOntvanger(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress"))
+	Do Mail.ZetInhoud(Message.Data)
+	Do Mail.ZetIsHTML(1)
+	Do MailAPI.VerstuurMail(Mail)
 ]]></Implementation>
 </Method>
 </Class>