Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml
===================================================================
diff -u -r41438 -r45090
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml	(.../MailVerzender.cls.xml)	(revision 41438)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml	(.../MailVerzender.cls.xml)	(revision 45090)
@@ -69,36 +69,22 @@
 		Set Inhoud = $$$CRLF _ Titel _ $$$CRLF _$$$CRLF _ ..GeefVerwerkOfferteLink(Offerte.GeefID())
 	}
 
-	If $$$Not(Offerte.BestelOpmerking = "") {
-		Set Inhoud = Inhoud _ $$$CRLF _ $$$CRLF _ "Bestelopmerking : " _ $$$CRLF _ Offerte.BestelOpmerking	
-	}
+	Do ..VoegToeAanInhoud(.Inhoud, "Bestelopmerking : ", Offerte.BestelOpmerking)
+	Do ..VoegToeAanInhoud(.Inhoud, "Bestel referentie : ", BestelReferentie)
+	Do ..VoegToeAanInhoud(.Inhoud, "Commissie referentie : ", CommissieReferentie)
 	
-	If $$$Not(BestelReferentie = "") {
-		Set Inhoud = Inhoud _ $$$CRLF _ $$$CRLF _ "Bestel referentie : " _ $$$CRLF _ BestelReferentie
-	}
-
-	If $$$Not(CommissieReferentie = "") {
-		Set Inhoud = Inhoud _ $$$CRLF _ $$$CRLF _ "Commissie referentie : " _ $$$CRLF _ CommissieReferentie
-	}
-	
 	Set Inhoud = $Replace(Inhoud, $$$CRLF, "<br/>")
 	
 	#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)	
 	
-	#dim IsHTML As %Boolean = $$$True
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
-
-	Do Mail.VoegToeOntvanger(MailTo)
-	
-	If Offerte.IsVhisie4(){
-		Do Mail.VoegToeOntvangerCC("DTI@VanHoecke.be")
-	}
-
 	Do Mail.ZetVerzender($$$SystemMail("OV"))
 	Do Mail.ZetOnderwerp(Titel)
 	Do Mail.ZetInhoud(Inhoud)
-	Do Mail.ZetIsHTML(IsHTML)
+	Do Mail.ZetIsHTML($$$True)
+	Do Mail.VoegToeOntvanger(MailTo)
+	Do:Offerte.IsVhisie4() Mail.VoegToeOntvangerCC("DTI@VanHoecke.be")
 	
 	Do ..MailApi.VerstuurMail(Mail)
 	
@@ -107,6 +93,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeAanInhoud">
+<FormalSpec><![CDATA[&Inhoud:%String,Melding:%String,Waarde:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set:$$$Not(Waarde="") Inhoud = Inhoud _ $$$CRLF _ $$$CRLF _ Melding _ $$$CRLF _ Waarde
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerwerkOfferteLink">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Private>1</Private>