Index: vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u -r50662 -r50669
--- vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 50662)
+++ vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 50669)
@@ -15,8 +15,8 @@
 </Method>
 
 <Method name="VerzendKlantNietGevondenMelding">
-<FormalSpec>User:%String,KlantID:%String,OrderID:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendKlantNietGevondenMelding",User,KlantID,OrderID)
+<FormalSpec>User:%String,KlantId:%String,OrderId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendKlantNietGevondenMelding",User,KlantId,OrderId)
 ]]></Implementation>
 </Method>
 
Index: AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u -r50662 -r50669
--- AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 50662)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 50669)
@@ -142,17 +142,36 @@
 </Method>
 
 <Method name="VerzendKlantNietGevondenMelding">
-<FormalSpec>User:%String,KlantID:%String,OrderID:%String</FormalSpec>
+<FormalSpec>User:%String,KlantId:%String,OrderId:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim GebruikerId As %String = ..GebruikerLookup.GeefGebruikerId(User)
 	#dim Gebruiker As DOM.common.Gebruiker = ..GebruikerApi.GeefGebruiker(GebruikerId)
 	#dim MailTo As %String = ""
 	
 	if $$$Not($IsObject(Gebruiker)) {
-		Set Gebruiker = ##class(DOM.common.impl.VanHoeckeGebruikerImpl).%New("4682||1130","BDA","")
+		Set VanHoeckeGebruikerBeheerder = ##class(DOM.common.impl.VanHoeckeGebruikerBeheerder).%New()
+		Set Gebruiker = ##class(DOM.common.impl.VanHoeckeGebruikerImpl).%New("1130","BDA","Bart Van Dam", VanHoeckeGebruikerBeheerder)
 	}
 	
+	#dim Titel As %String = ##class(TECH.StringUtils).BuildText("De klant met KlantId '{0}' voor OrderId '{1}' bestaat niet in Cache.", KlantId, OrderId)
+	
+	#dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Voor de klant met KlantId '{0}' voor OrderId '{1}' ", KlantId, OrderId)
+	Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("is er op datum en tijd {0}"_$$$CRLF, ..DateTimeAPI.CurrentTimeStamp()) 
+	Set Inhoud = Inhoud _"een fout opgetreden tijdens het importeren van AX naar admin." _$$$CRLF
+	Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("De klant met KlantId '{0}' bestaat niet in Cache." _$$$CRLF, KlantId)
+	Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("Het order met OrderId '{0}' is niet aangemaakt in admin." _$$$CRLF _$$$CRLF , OrderId)
+	
 	Set MailTo = Gebruiker.GeefEmailAdres()
+	
+	
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("Ax order naar admin"))
+	Do Mail.ZetOnderwerp(Titel)
+	Do Mail.ZetInhoud(Inhoud)
+	Do Mail.ZetIsHTML($$$True)
+	Do Mail.VoegToeOntvanger(MailTo)
+
+	Do ..MailApi.VerstuurMail(Mail)
 ]]></Implementation>
 </Method>