Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml
===================================================================
diff -u -r49961 -r49967
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml	(.../HttpVerzender.cls.xml)	(revision 49961)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml	(.../HttpVerzender.cls.xml)	(revision 49967)
@@ -56,9 +56,10 @@
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim OfferteId As %String = ..Offerte.GeefID()
-		#dim Omschrijving As %String = "De bestelling " _ $Get(OfferteId) _ " van de eindklant kon niet naar " _ ..GeefPersonality().GeefNaam() _ " verzonden worden."
+		#dim Omschrijving As %String = "De bestelling " _ $Get(OfferteId) _ " van "_ ..GeefKlantInfo(.OfferteDto) _" kon niet naar '" _ ..GeefPersonality().GeefNaam() _ "' verzonden worden."
+		#dim InfoVoorRetry As %String = "Probeer deze opnieuw mauneel te verzenden via volgende command : "_$$$CRLF_"Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().BestelAfhandelingOpnieuwVerwerken("_$G(OfferteId)_")"
 
-		#dim NieuweExceptie As TECH.Exceptions.Exception = ##class(TECH.Exceptions.BaseException).%New(Exceptie.GeefExceptionCode(), Omschrijving)
+		#dim NieuweExceptie As TECH.Exceptions.Exception = ##class(TECH.Exceptions.BaseException).%New(Exceptie.GeefExceptionCode(), Omschrijving_$$$CRLF_InfoVoorRetry)
 		Do NieuweExceptie.VoegToeInnerExceptie(Exceptie)
 
 		Do ..Logger.ErrorMail(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_FAILED", NieuweExceptie.ToStream())
@@ -73,6 +74,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantInfo">
+<FormalSpec>OfferteDto:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantInfo As %String = ""
+	Try {
+		If $IsObject(OfferteDto) {
+			Set KlantInfo = OfferteDto.KlantNaam_" (ID='"_OfferteDto.KlantNummer_"')"
+		}
+		ElseIf $IsObject(..Offerte)  {
+			Set KlantInfo = "klant (ID='"_..Offerte.GeefKlantID()_"')"
+		}
+	}
+	Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Error("GeefKlantInfo", Exception.ToStream())
+	}
+	Set:(KlantInfo = "") KlantInfo = "eindklant"
+	Quit KlantInfo
+]]></Implementation>
+</Method>
+
 <Method name="GeefPersonality">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml
===================================================================
diff -u -r49961 -r49967
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml	(.../Test.cls.xml)	(revision 49961)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml	(.../Test.cls.xml)	(revision 49967)
@@ -15,6 +15,7 @@
 	
 	Set ..OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do ..OfferteStub.IndienMethodCall("GeefID").DanReturn($$$DummyInteger)
+	Do ..OfferteStub.IndienMethodCall("GeefKlantID").DanReturn("UT_KlantID")
 ]]></Implementation>
 </Method>
 
@@ -78,7 +79,7 @@
 
 <Method name="Test: Exceptie wordt verwacht en gelogd indien een fout optreedt vóór het verzenden van de HttpMessage">
 <Implementation><![CDATA[
-	#dim OmschrijvingSubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De bestelling", $$$DummyInteger, "van de eindklant kon niet naar Häfele Belgium NV/SA verzonden worden")
+	#dim OmschrijvingSubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De bestelling", $$$DummyInteger, "van klant (ID='UT_KlantID') kon niet naar 'Häfele Belgium NV/SA' verzonden worden","Probeer deze opnieuw mauneel te verzenden via volgende command")
 	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.BaseException", OmschrijvingSubStrings)
 	
 	Do ..ZetVerwachteExceptie(VerwachteExceptie)