Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml
===================================================================
diff -u -r48555 -r48576
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml	(.../LeverAdresMaker.cls.xml)	(revision 48555)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml	(.../LeverAdresMaker.cls.xml)	(revision 48576)
@@ -18,8 +18,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProjectSettingsApi:DOM.common.ProjectSettingsAPI,LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository</FormalSpec>
+<FormalSpec>ProjectSettingsApi:DOM.common.ProjectSettingsAPI,LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository,MailApi:TECH.Mail.MailAPI="",VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +38,9 @@
 	Set ..Logger = ##class(vhLib.Logger).%New()
 	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi,##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI())
 	Set ..LeverAdresRepository = $$$Inject(LeverAdresRepository,##class(DOM.VKP.impl.LeverAdresRepository).%New())
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -47,6 +60,8 @@
 	If ($$$HasLength(OrderHeader.LocationId) && (..ProjectSettingsApi.IsActiefAxLeverancierId())){
 		If ..LeverAdresRepository.BestaatViaAXLeverAdresId(OrderHeader.LocationId) {
 			Set LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresId(OrderHeader.LocationId)
+		} Else {
+			Do ..VerzendMail(OrderHeader)
 		}
 		Do LeverAdres.ZetID("")
 		Do LeverAdres.ZetAxLeveradresId(OrderHeader.LocationId)
@@ -59,6 +74,35 @@
 	Quit LeverAdres
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendMail">
+<FormalSpec>OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(##class(AXimpl.AxToAdminUtils).ConvertCustomerID(OrderHeader.CustAccount))
+	#dim Gebruiker As DOM.VKP.VanHoeckeKlant = Klant.GeefInterneVerantwoordelijke()
+
+	#dim MailTo As %String = ""
+
+	if $IsObject(Gebruiker) {
+		Set MailTo = Gebruiker.GeefEmailAdres()
+	} Else {
+		Set MailTo = "ICT_Meldingen@vanhoecke.be"
+	}
+
+	#dim Inhoud As %String
+	Set Inhoud = "Er werd geprobeerd een order te maken in Admin vanuit AX voor klant '"_Klant.GeefNaam()_"'. Het gebruikte AxLeverAdresId '"_OrderHeader.LocationId_"' is echter onbekend in Admin."
+			
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("Ax order naar admin"))
+	Do Mail.ZetOnderwerp("Ax order naar admin - onbekende AxLocationId '"_OrderHeader.SalesId_"'")
+	Do Mail.ZetInhoud(Inhoud)
+	Do Mail.ZetIsHTML($$$True)
+	Do Mail.VoegToeOntvanger(MailTo)
+
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml
===================================================================
diff -u -r48560 -r48576
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 48560)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 48576)
@@ -51,7 +51,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: AXLeverAdresId ingevuld en nog niet gekend -&gt; gegevens uit header overnemen">
+<Method name="Test: AXLeverAdresId ingevuld en nog niet gekend -&gt; gegevens uit header overnemen en mail naar de BiDi">
 <Implementation><![CDATA[
 	#dim StandaardOrder As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrder()
 	#dim StandaardOrderHeader As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader = StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1)
@@ -63,7 +63,17 @@
 	Set LeverAdresRepositoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
 	Do LeverAdresRepositoryStub.IndienMethodCall("BestaatViaAXLeverAdresId",..#AXLeverAdresId).DanReturn($$$False)
 	
-	Set LeverAdresMaker = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New(ProjectSettingsApiStub,LeverAdresRepositoryStub)
+	Set MailStub = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailStub.IndienMethodCall("ZetVerzender",$$$ElkeWaarde).DanDoeNiks()
+	Do MailStub.IndienMethodCall("ZetOnderwerp",$$$ElkeWaarde).DanDoeNiks()
+	Do MailStub.IndienMethodCall("ZetInhoud",$$$ElkeWaarde).DanDoeNiks()
+	Do MailStub.IndienMethodCall("ZetIsHTML",$$$ElkeWaarde).DanDoeNiks()
+	Do MailStub.IndienMethodCall("VoegToeOntvanger",$$$ElkeWaarde).DanDoeNiks()
+	Set MailApi = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApi.IndienMethodCall("MaakNieuwMail").DanReturn(MailStub)
+	Do MailApi.VerwachtMethodCall("VerstuurMail",MailStub)
+	
+	Set LeverAdresMaker = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New(ProjectSettingsApiStub,LeverAdresRepositoryStub,MailApi)
 	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeverAdresMaker.MaakLeverAdres(StandaardOrderHeader)
 	
 	Do $$$AssertEquals(LeverAdres.Gemeente,StandaardOrderHeader.DlvAddrCity)
@@ -73,6 +83,8 @@
 	Do $$$AssertEquals(LeverAdres.Naam,StandaardOrderHeader.DeliveryName)
 	Do $$$AssertEquals(LeverAdres.Telefoon,"+3237601900")
 	Do $$$AssertEquals(LeverAdres.AxLeveradresId,..#AXLeverAdresId)
+	
+	Do MailApi.Verifieer()
 ]]></Implementation>
 </Method>