Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml
===================================================================
diff -u -r49899 -r49961
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml	(.../HaefeleBE.cls.xml)	(revision 49899)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/HaefeleBE.cls.xml	(.../HaefeleBE.cls.xml)	(revision 49961)
@@ -58,7 +58,7 @@
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		
-		Do ..Logger.ErrorMail(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_FAILED", "Offerte = " _ ..Offerte.GeefID() _ " Error: " _ Exceptie.GeefOmschrijving())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml
===================================================================
diff -u -r49899 -r49961
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml	(.../HttpVerzender.cls.xml)	(revision 49899)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender.cls.xml	(.../HttpVerzender.cls.xml)	(revision 49961)
@@ -58,12 +58,17 @@
 		#dim OfferteId As %String = ..Offerte.GeefID()
 		#dim Omschrijving As %String = "De bestelling " _ $Get(OfferteId) _ " van de eindklant kon niet naar " _ ..GeefPersonality().GeefNaam() _ " verzonden worden."
 
-		Do ..Logger.ErrorMail(Omschrijving, Exceptie.ToString())
-
 		#dim NieuweExceptie As TECH.Exceptions.Exception = ##class(TECH.Exceptions.BaseException).%New(Exceptie.GeefExceptionCode(), Omschrijving)
 		Do NieuweExceptie.VoegToeInnerExceptie(Exceptie)
-		
-		Do ##class(TECH.ExceptionHandler).Throw(NieuweExceptie)	
+
+		Do ..Logger.ErrorMail(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_FAILED", NieuweExceptie.ToStream())
+
+		If $$$Not(Exceptie.%Extends(##class(TECH.Exceptions.CommunicationErrorException).%ClassName($$$True))) {
+			Do ##class(TECH.ExceptionHandler).Throw(NieuweExceptie)	
+		}
+		Else {
+			// De HttpPost-fout is gemeld (via log en mail); de code mag verder uitgevoerd worden. 
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -115,7 +120,7 @@
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		
-		Do ..Logger.ErrorMail(..GeefPersonality().GeefCode() _ "_ORDERS2_POST_FAILED", "Offerte = " _ ..Offerte.GeefID() _ " Error: " _ Exceptie.GeefOmschrijving())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml
===================================================================
diff -u -r49960 -r49961
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml	(.../Test.cls.xml)	(revision 49960)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml	(.../Test.cls.xml)	(revision 49961)
@@ -99,7 +99,7 @@
 <Method name="Test: Exceptie wordt verwacht en gelogd indien een fout optreedt bij het verzenden van de HttpMessage">
 <Implementation><![CDATA[
 	#dim LoggerMock As vhTest.Mock.vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("ErrorMail", $$$ElkeWaarde, $$$ElkeWaarde)
+	Do LoggerMock.VerwachtMethodCall("ErrorMail", "HaefeleBE_ORDERS2_POST_FAILED", $$$ElkeWaarde)
 	
 	#dim OfferteGeneratorStub As vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New()
 	Do OfferteGeneratorStub.IndienMethodCall("GeefOfferteDto", $$$ElkeWaarde).DanReturn(##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte).%New())