Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml
===================================================================
diff -u -r39713 -r40798
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml	(.../MailVerzender.cls.xml)	(revision 39713)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender.cls.xml	(.../MailVerzender.cls.xml)	(revision 40798)
@@ -36,10 +36,13 @@
 	#dim Titel As %String = "Bestelling voor klant " _ KlantNr _ " '" _ Partij.GeefNaam() _ "' "
 	#dim BestelReferentie As %String = Offerte.GeefDocumentReferenties().OrderReferentie
 	#dim CommissieReferentie As %String = Offerte.GeefDocumentReferenties().CommissieReferentie
-	#dim Inhoud As %String = $$$CRLF _ Titel _ $$$CRLF _ $$$CRLF _ ..GeefVerwerkOfferteLink(Offerte.GeefID())
+	#dim Inhoud As %String = $$$CRLF _ Titel _ $$$CRLF
 
 	If Offerte.IsVhisie4(){
-		Set Inhoud = $$$CRLF _ "NIEUWE VHISIE 4 WINKELKAR -- DIT IS WAARSCHIJNLIJK EEN TEST!" _ $$$CRLF _Inhoud
+		Set Inhoud = "NIEUWE VHISIE 4 WINKELKAR -- DIT IS WAARSCHIJNLIJK EEN TEST!" _ $$$CRLF _Inhoud
+		Set Inhoud = $$$CRLF _Inhoud _$$$CRLF _..GeefVerwerkVhisie4OfferteLink(Offerte.GeefExterneId())
+	} else {
+		Set Inhoud = $$$CRLF _Inhoud _$$$CRLF _ ..GeefVerwerkOfferteLink(Offerte.GeefID())
 	}
 
 	If $$$Not(Offerte.BestelOpmerking = "") {
@@ -84,19 +87,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefURIVerwerkOfferte">
+<Method name="GeefVerwerkOfferteLink">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "vhintra:vkp-externeofferteverwerking-presentation-mainview?offerteId=" _ OfferteID
+<Implementation><![CDATA[
+	#dim URIVerwerkOfferte As %String = "vhintra:vkp-externeofferteverwerking-presentation-mainview?offerteId=" _ OfferteID
+	Quit "<a href='" _ URIVerwerkOfferte _ "'>" _ "Verwerk offerte '" _ OfferteID _ "'" _ "</a>"
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVerwerkOfferteLink">
+<Method name="GeefVerwerkVhisie4OfferteLink">
 <FormalSpec>OfferteID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "<a href='" _ ..GeefURIVerwerkOfferte(OfferteID) _ "'>" _ "Verwerk offerte '" _ OfferteID _ "'" _ "</a>"
+<Implementation><![CDATA[
+	#dim ServerUrl As %String = "http://" _$$$Server _"/csp/" _$$$NSpace
+	#dim URIVerwerkOfferte As %String = ServerUrl _ "/Vhisie4/WinkelkarTotOrderVerwerker/View.csp?WinkelkarId=" _ OfferteID
+	Quit "<a href='" _ URIVerwerkOfferte _ "'>" _ "Verwerk (vhisie4) offerte '" _ OfferteID _ "'" _ "</a>"
 ]]></Implementation>
 </Method>
 </Class>