Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r56968 -r57966
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 56968)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 57966)
@@ -173,9 +173,13 @@
 	
 	Set ..Resultaat.Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New($$$DummyString)
 
+	#dim VerwachteInhoud As %String = "Er is een EDI bestelling ontvangen van '"_ ..DummyKlant.GeefNaam()_ "'. Er zijn problemen opgetreden tijdens het verwerken van deze bestelling! Dit probleem moet opgelost worden door IT. Het bestand staat ofwel in de 'Archive' of in de 'Error' map! "
+	Set VerwachteInhoud = VerwachteInhoud _ $$$CRLF _ "Meer details: " _ $$$CRLF _ "Bestand:'"_ ..BestandVolledigeNaam _"'. "_$$$CRLF_..Resultaat.Exceptie.ToString()
+
 	Do ..MailMock.VerwachtMethodCall("VoegToeOntvanger", "ICT_Meldingen@vanhoecke.be")
+	Do ..MailMock.VerwachtMethodCall("VoegToeOntvangerCC", ..DummyGebruiker.GeefEmailAdres())
 	Do ..MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van '"_..DummyKlant.GeefNaam()_"' ontvangen, maar er was een probleem, dus de klant krijgt zijn goederen wellicht niet!")
-	Do ..MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van '"_..DummyKlant.GeefNaam()_"' ontvangen met volgend probleem, dat je aan ICT moet melden, tenzij je dit probleem vanuit BIDI kan oplossen! :"_$$$CRLF_"Bestand:'"_ ..BestandVolledigeNaam _"'. "_$$$CRLF_..Resultaat.Exceptie.ToString())
+	Do ..MailMock.VerwachtMethodCall("ZetInhoud", VerwachteInhoud)
 	
 	Do ..Act()
 	
@@ -189,8 +193,9 @@
 	
 	Set ..Resultaat.Exceptie = ""
 	
+	Do ..MailMock.VerwachtMethodCall("VoegToeOntvanger", ..DummyGebruiker.GeefEmailAdres())
 	Do ..MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van '"_..DummyKlant.GeefNaam()_"' ontvangen")
-	Do ..MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van '"_..DummyKlant.GeefNaam()_"' ontvangen en ze werd goed verwerkt")
+	Do ..MailMock.VerwachtMethodCall("ZetInhoud", "Er is een EDI bestelling ontvangen van '"_..DummyKlant.GeefNaam()_"'. Deze bestelling is goed verwerkt.")
 		
 	Do ..Act()
 	
@@ -246,7 +251,7 @@
 	
 	Set ..MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
 	Do ..MailMock.VerwachtMethodCall("ZetVerzender", $$$SystemMail("EDI Bestelling"))
-	Do ..MailMock.VerwachtMethodCall("VoegToeOntvanger", ..DummyGebruiker.GeefEmailAdres())
+	//Do ..MailMock.VerwachtMethodCall("VoegToeOntvanger", ..DummyGebruiker.GeefEmailAdres())
 	Set ..MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
 	Do ..MailApiMock.VerwachtMethodCall("VerstuurMail", ..MailMock)
 	Do ..MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(..MailMock)
Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r56968 -r57966
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 56968)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 57966)
@@ -133,18 +133,29 @@
 	
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	Do Mail.ZetVerzender($$$SystemMail("EDI Bestelling"))
+	
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($$$SystemUser)
-	Do Mail.VoegToeOntvanger(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())
-	#dim Inhoud As %String = "Er werd een EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen"
-	#dim Onderwerp As %String = "EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen"
-	If $$$HasLength(ProbleemTekst){
-		Set Inhoud = Inhoud _" met volgend probleem, dat je aan ICT moet melden, tenzij je dit probleem vanuit BIDI kan oplossen! :"_ $$$CRLF _ ProbleemTekst
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($$$SystemUser)	
+	
+	#dim Inhoud As %String = "Er is een EDI bestelling ontvangen van '" _ Klant.GeefNaam() _ "'. "
+	#dim Onderwerp As %String = "EDI bestelling van '" _ Klant.GeefNaam() _ "' ontvangen"
+	
+	If $$$HasLength(ProbleemTekst) {
+		Set Inhoud = Inhoud _ "Er zijn problemen opgetreden tijdens het verwerken van deze bestelling! "
+		Set Inhoud = Inhoud _ "Dit probleem moet opgelost worden door IT. Het bestand staat ofwel in de 'Archive' of in de 'Error' map! "
+		Set Inhoud = Inhoud _ $$$CRLF
+		Set Inhoud = Inhoud _ "Meer details: "
+		Set Inhoud = Inhoud _ $$$CRLF
+		Set Inhoud = Inhoud _ ProbleemTekst
+		
 		Set Onderwerp = Onderwerp_", maar er was een probleem, dus de klant krijgt zijn goederen wellicht niet!"
 		Do Mail.VoegToeOntvanger("ICT_Meldingen@vanhoecke.be")
+		Do Mail.VoegToeOntvangerCC(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())
 	} Else {
-		Set Inhoud = Inhoud _ " en ze werd goed verwerkt"
+		Set Inhoud = Inhoud _ "Deze bestelling is goed verwerkt."
+		Do Mail.VoegToeOntvanger(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())
 	}
+	
 	If $IsObject(VerwerkteOrderInfo) {
 		Set VerwerkteOrderInfoIterator = ##class(TECH.ListIterator).%New(VerwerkteOrderInfo)
 		While VerwerkteOrderInfoIterator.HasNext() {
@@ -153,10 +164,12 @@
 			Set Inhoud = Inhoud _ $$$CRLF _ " - Offerte " _ AdminOrderId _ " :  ref. '" _ BestelReferentie _ "'"
 		}
 	}
+	
 	Set:($Length(TijdelijkOrderID)) Inhoud = Inhoud _ $$$CRLF _ "Tijdelijk order " _ TijdelijkOrderID _ " werd aangemaakt EN gesloten in Admin, en overgebracht naar AX."
 	If $IsObject(VerwerkteOrderInfo){
 		Set:(VerwerkteOrderInfo.Count()>1) Inhoud = Inhoud _ $$$CRLF _ "!!!! De tandemboxOfferte moet nog verwerkt worden!!!!"
 	}
+	
 	Do Mail.ZetInhoud(Inhoud)
 	Do Mail.ZetOnderwerp(Onderwerp)
 	Do ..MailApi.VerstuurMail(Mail)