Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r53413 -r53766
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 53413)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 53766)
@@ -116,7 +116,7 @@
 		} Else {
 			#dim Omschrijving As %String = ""
 			Set Omschrijving = Omschrijving _ "De offerte is reeds besteld, maar de vorige verwerking is misschien niet goed verlopen. "
-			Set Omschrijving = Omschrijving _"Controleer voor alle zekerheid de offerte op Vhisie4 en offerte en order in cache/admin ! "
+			Set Omschrijving = Omschrijving _ "Controleer voor alle zekerheid de offerte op Vhisie4 en offerte en order in cache/admin ! "
 			
 			#dim Melding As %String = ##class(TECH.StringUtils).Concatenate(Omschrijving, $$$CRLF, $$ObjToXML^vhLib(BestelWinkelkarRequest))
 			
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml
===================================================================
diff -u -r52417 -r53766
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 52417)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 53766)
@@ -42,28 +42,32 @@
 <Method name="VerzendViaOfferteID">
 <FormalSpec>OfferteID:%String,Melding:%String</FormalSpec>
 <Implementation><![CDATA[
-		Do ##class(CHUI.Context).Instance().ZetHeeftUserInterface($$$False)
-		#Dim Offerte As APPS.VKP.impl.Offerte = ..OfferteService.GeefOfferte(OfferteID)
-		Do ..Verzend(Offerte, Melding)
+	Do ##class(CHUI.Context).Instance().ZetHeeftUserInterface($$$False)
+	
+	#dim Offerte As APPS.VKP.impl.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+	Do ..Verzend(Offerte, Melding)
 ]]></Implementation>
 </Method>
 
 <Method name="Verzend">
 <FormalSpec>Offerte:APPS.VKP.Offerte,Melding:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Offerte.GeefKlantID())	
+	#dim Titel As %String = "Offerte met OfferteID '" _ Offerte.GeefID() _ "' van KlantID '" _ Offerte.GeefKlantID() _ "' is niet automatisch verwerkt!"
+	#dim BestelReferentieInfo As %String = "Bestel referentie : " _ $$$CRLF _ Offerte.GeefDocumentReferenties().OrderReferentie
+	#dim CommissieReferentieInfo As %String = "Commissie referentie : " _ $$$CRLF _ Offerte.GeefDocumentReferenties().CommissieReferentie
+	#dim Link As %String = ..GeefVerwerkVhisie4OfferteLink(Offerte)
+	
+	#dim Info As %String = ""
+	Set Info = Info _ "Controleer de offerte via de Vhisie4 webshop en eventueel in admin bij tijdelijke orders!"
+	Set Info = Info _ $$$CRLF _ $$$CRLF
+	Set Info = Info _ BestelReferentieInfo
+	Set Info = Info _ $$$CRLF _ $$$CRLF
+	Set Info = Info _ CommissieReferentieInfo
+	Set Info = Info _ $$$CRLF
+	Set Info = Info _ Link
 
-	#dim Titel As %String = "Offerte met OfferteID '" _Offerte.GeefID() _"' van KlantID '" _ Offerte.GeefKlantID() _ "' is niet automatisch verwerkt!"
-	#dim BestelReferentie As %String = Offerte.GeefDocumentReferenties().OrderReferentie
-	#dim CommissieReferentie As %String = Offerte.GeefDocumentReferenties().CommissieReferentie
-
-	#dim Inhoud As %String = Melding
-	Set Inhoud = $$$CRLF _Inhoud _$$$CRLF _"Controleer de offerte via de Vhisie4 webshop en eventueel in admin bij tijdelijke orders!"
-	Do ..VoegToeAanInhoud(.Inhoud, "Bestel referentie : ", BestelReferentie)
-	Do ..VoegToeAanInhoud(.Inhoud, "Commissie referentie : ", CommissieReferentie)
-	Set Inhoud = $$$CRLF _Inhoud _$$$CRLF _..GeefVerwerkVhisie4OfferteLink(Offerte)
-
-
+	#dim Inhoud As %String = ##class(TECH.StringUtils).Concatenate(Info, $$$CRLF _ $$$CRLF, Melding)
 	#dim MailToPrefix As %String = ..ConfigMgr.GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix")
 	#dim MailTo As %String = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2)	
 	
@@ -93,7 +97,6 @@
 	Do ..VoegToeAanInhoud(.Inhoud, "Bestel referentie : ", BestelReferentie)
 	Do ..VoegToeAanInhoud(.Inhoud, "Commissie referentie : ", CommissieReferentie)
 
-
 	#dim MailToPrefix As %String = ..ConfigMgr.GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix")
 	#dim MailTo As %String = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2)	
 	
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer/Test.cls.xml
===================================================================
diff -u -r49491 -r53766
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer/Test.cls.xml	(.../Test.cls.xml)	(revision 49491)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Mailer/Test.cls.xml	(.../Test.cls.xml)	(revision 53766)
@@ -5,40 +5,95 @@
 
 <Method name="Test: Verzend melding met offertegegevens naar OV">
 <Implementation><![CDATA[
-	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
-	Do MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("OV")).ExactAantalKeer(1).DanDoeNiks()
-	Do MailMock.VerwachtMethodCall("ZetOnderwerp","Offerte met OfferteID 'OfferteID' van KlantID 'KlantID' is niet automatisch verwerkt!").ExactAantalKeer(1).DanDoeNiks()
-	Do MailMock.VerwachtMethodCall("ZetInhoud", $$$CRLF _$$$CRLF _"Melding"_$$$CRLF_"Controleer de offerte via de Vhisie4 webshop en eventueel in admin bij tijdelijke orders!" _$$$CRLF _$$$CRLF _"Bestel referentie : " _$$$CRLF_"OrderReferentie"_$$$CRLF _$$$CRLF_"Commissie referentie : "_$$$CRLF_"CommissieReferentie"_$$$CRLF_"<a href='http://website.testing.vanhoecke.be/user/login?destination=/ov/manage/ExterneId'>Verwerk (vhisie4) offerte 'ExterneId'</a>").ExactAantalKeer(1).DanDoeNiks()
-	Do MailMock.VerwachtMethodCall("ZetIsHTML","1").ExactAantalKeer(1).DanDoeNiks()
-	Do MailMock.VerwachtMethodCall("VoegToeOntvanger","OV_weborder_R09").ExactAantalKeer(1).DanDoeNiks()
-	Do MailMock.VerwachtMethodCall("VoegToeOntvangerCC","DTI@VanHoecke.be").ExactAantalKeer(1).DanDoeNiks()
+	#dim DummyDocumentReferenties As DOM.VKP.DocumentReferenties = ##class(vhTest.Utils.DOM.VKP.DocumentReferenties).%New().StandaardDocumentReferenties()
+	#dim RandomMelding As %String = "RandomMelding"
 	
-	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
-	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
-	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailMock).ExactAantalKeer(1).DanDoeNiks()
+	#dim VerwachteInhoud As %String = "Controleer de offerte via de Vhisie4 webshop en eventueel in admin bij tijdelijke orders!"
+	Set VerwachteInhoud = VerwachteInhoud _ $$$CRLF _ $$$CRLF
+	Set VerwachteInhoud = VerwachteInhoud _ "Bestel referentie : " _ $$$CRLF _ DummyDocumentReferenties.OrderReferentie
+	Set VerwachteInhoud = VerwachteInhoud _ $$$CRLF _ $$$CRLF 
+	Set VerwachteInhoud = VerwachteInhoud _ "Commissie referentie : " _ $$$CRLF _ DummyDocumentReferenties.CommissieReferentie
+	Set VerwachteInhoud = VerwachteInhoud _ $$$CRLF
+	Set VerwachteInhoud = VerwachteInhoud _ "<a href='http://website.testing.vanhoecke.be/user/login?destination=/ov/manage/ExterneId'>Verwerk (vhisie4) offerte 'ExterneId'</a>"
+	Set VerwachteInhoud = VerwachteInhoud _ $$$CRLF _ $$$CRLF 
+	Set VerwachteInhoud = VerwachteInhoud _ RandomMelding
 	
-	Set VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).%New().StandaardKlant()
+	#dim MailMock As vhTest.Mock.TECH.Mail.Mail = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailMock.VerwachtMethodCall("ZetVerzender", $$$SystemMail("OV")).ExactAantalKeer(1).DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetOnderwerp", "Offerte met OfferteID 'OfferteID' van KlantID 'KlantID' is niet automatisch verwerkt!").ExactAantalKeer(1).DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetInhoud", VerwachteInhoud)
+	Do MailMock.VerwachtMethodCall("ZetIsHTML", "1").ExactAantalKeer(1).DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("VoegToeOntvanger", "OV_weborder_R09").ExactAantalKeer(1).DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("VoegToeOntvangerCC", "DTI@VanHoecke.be").ExactAantalKeer(1).DanDoeNiks()
 	
-	Set VerkoopAPIMock =  ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant","KlantID").DanReturn(VanHoeckeKlant)
+	#dim MailApiMock As vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail", MailMock).ExactAantalKeer(1).DanDoeNiks()
 	
-	Set DocumentReferenties = ##class(vhTest.Utils.DOM.VKP.DocumentReferenties).%New().StandaardDocumentReferenties()
+	#dim VerkoopAPIMock As vhTest.Mock.DOM.VKP.VerkoopAPI =  ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", "KlantID").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).%New().StandaardKlant())
 	
-	Set OfferteMock = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	#dim OfferteMock As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteMock.VerwachtMethodCall("GeefKlantID").DanReturn("KlantID")
 	Do OfferteMock.VerwachtMethodCall("GeefID").DanReturn("OfferteID")
-	Do OfferteMock.VerwachtMethodCall("GeefDocumentReferenties").DanReturn(DocumentReferenties)
+	Do OfferteMock.VerwachtMethodCall("GeefDocumentReferenties").DanReturn(DummyDocumentReferenties)
 	Do OfferteMock.VerwachtMethodCall("GeefExterneId").DanReturn("ExterneId")
 	
-	Set Mailer = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New(MailApiMock, VerkoopAPIMock)
-	Do Mailer.Verzend(OfferteMock,"Melding")
+	#dim Mailer As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New(MailApiMock, VerkoopAPIMock)
+	Do Mailer.Verzend(OfferteMock, RandomMelding)
 	
 	Do OfferteMock.Verifieer()
 	Do MailMock.Verifieer()
 	Do MailApiMock.Verifieer()
 	Do VerkoopAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Verzenden van mail met te grote inhoud crashed niet op MAXSTRING">
+<Implementation><![CDATA[
+	#dim RandomKlantId As %String = "RandomKlantId"
+	
+	#dim VerkoopApiStub As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiStub.IndienMethodCall("GeefKlant", RandomKlantId).DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).%New().StandaardKlant())
+	
+	#dim OfferteStub As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteStub.IndienMethodCall("GeefKlantID").DanReturn(RandomKlantId)
+	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("RandomId")
+	Do OfferteStub.IndienMethodCall("GeefDocumentReferenties").DanReturn(##class(vhTest.Utils.DOM.VKP.DocumentReferenties).%New().StandaardDocumentReferenties())
+	Do OfferteStub.IndienMethodCall("GeefExterneId").DanReturn("RandomExterneId")
+	
+	#dim MailStub As vhTest.Mock.TECH.Mail.Mail = ##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()
+	Do MailStub.IndienMethodCall("VoegToeOntvangerCC", $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim MailApiMock As vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailStub)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail", MailStub).DanDoeNiks()
+	
+	#dim Mailer As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New(MailApiMock, VerkoopApiStub)
+	Do Mailer.Verzend(OfferteStub, ..GeefMaxMelding())
+	
+	Do MailApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaxMelding">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Melding As %String = ""
+
+	While ($Length(Melding) < $SYSTEM.SYS.MaxLocalLength()) {
+		Set Melding = Melding _ "a"	
+	}
+	
+	Quit Melding
+]]></Implementation>
+</Method>
 </Class>