Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r39895 -r39954
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 39895)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 39954)
@@ -88,7 +88,7 @@
 </Method>
 
 <Method name="VerstuurMail">
-<FormalSpec>ExtraTekst:TECH.String=""</FormalSpec>
+<FormalSpec>ProbleemTekst:TECH.String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..AanvraagHeader.PersonalityID)
@@ -97,14 +97,16 @@
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	Do Mail.ZetVerzender($$$SystemMail("EDI Bestelling"))
 	Do Mail.VoegToeOntvanger(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())
-	Do Mail.ZetOnderwerp("EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen")
 	#dim Inhoud As %String = "Er werd een EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen"
-	If $$$HasLength(ExtraTekst){
-		Set Inhoud = Inhoud _ $$$CRLF _ ExtraTekst
+	#dim Onderwerp As %String = "EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen"
+	If $$$HasLength(ProbleemTekst){
+		Set Inhoud = Inhoud _" met volgend probleem:"_ $$$CRLF _ ProbleemTekst
+		Set Onderwerp = Onderwerp_", maar er was een probleem"
 	} Else {
 		Set Inhoud = Inhoud _ " en ze werd goed verwerkt"
 	}
 	Do Mail.ZetInhoud(Inhoud)
+	Do Mail.ZetOnderwerp(Onderwerp)
 	Do ..MailApi.VerstuurMail(Mail)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r39895 -r39954
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 39895)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 39954)
@@ -116,8 +116,8 @@
 	
 	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
 	Do MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("EDI Bestelling"))
-	Do MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van 'SFS UNIMARKET AG' ontvangen")
-	Do MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van 'SFS UNIMARKET AG' ontvangen"_$$$CRLF_ResultaatMetError.Exceptie.ToString())
+	Do MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van 'SFS UNIMARKET AG' ontvangen, maar er was een probleem")
+	Do MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van 'SFS UNIMARKET AG' ontvangen met volgend probleem:"_$$$CRLF_ResultaatMetError.Exceptie.ToString())
 	Do MailMock.VerwachtMethodCall("VoegToeOntvanger","bbe@vanhoecke.be")
 	
 	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()