Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r51322 -r52080
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 51322)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 52080)
@@ -131,6 +131,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEmailAdres">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEmailAdres")
+]]></Implementation>
+</Method>
+
 <Method name="GeefID">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefID")
@@ -455,6 +461,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmailAdres">
+<FormalSpec>EmailAdres:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetEmailAdres",EmailAdres)
+]]></Implementation>
+</Method>
+
 <Method name="ZetIngegevenDoor">
 <FormalSpec>IngegevenDoor:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetIngegevenDoor",IngegevenDoor)
Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r51637 -r52080
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 51637)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 52080)
@@ -194,6 +194,7 @@
 		Do Order.ZetOorsprong(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop())
 		Do Order.ZetOorsprongKetting($$$LCVT(..BepaalOorsprongKetting(Offerte)))
 		Do Order.ZetEDINummer(Offerte.GeefEDINummerVoorEindklant())
+		Do Order.ZetEmailAdres(Offerte.GeefEmailAdres())
 		
 		If ..GebruiktExternTransport(Offerte) {
 			Do Order.ZetLeveringVoorwaarde(##class(DOM.CRM.enu.LeveringVoorwaarde).KostInManueleLijn())
Index: vhTest/Mock/APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r51499 -r52080
--- vhTest/Mock/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 51499)
+++ vhTest/Mock/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 52080)
@@ -62,6 +62,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEmailAdres">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEmailAdres")
+]]></Implementation>
+</Method>
+
 <Method name="GeefExterneId">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefExterneId")
@@ -241,6 +247,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmailAdres">
+<FormalSpec>EmailAdres:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetEmailAdres",EmailAdres)
+]]></Implementation>
+</Method>
+
 <Method name="ZetExterneId">
 <FormalSpec>ExterneId:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetExterneId",ExterneId)
Index: APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r51499 -r52080
--- APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 51499)
+++ APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 52080)
@@ -97,6 +97,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
 <Index name="UIndex">
 <Properties>KlantID,WinkelkarID</Properties>
 <Unique>1</Unique>
@@ -544,6 +548,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmailAdres">
+<FormalSpec>EmailAdres:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..EmailAdres = EmailAdres
+]]></Implementation>
+</Method>
+
+<Method name="GeefEmailAdres">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..EmailAdres
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.VKP.OfferteD</DataLocation>
@@ -647,6 +663,9 @@
 <Value name="30">
 <Value>Oorsprong</Value>
 </Value>
+<Value name="31">
+<Value>EmailAdres</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r51499 -r52080
--- APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 51499)
+++ APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 52080)
@@ -306,6 +306,16 @@
 <Abstract>1</Abstract>
 <FormalSpec>LeverancierOfferteId:%String</FormalSpec>
 </Method>
+
+<Method name="GeefEmailAdres">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ZetEmailAdres">
+<Abstract>1</Abstract>
+<FormalSpec>EmailAdres:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: APPS/EC/dto/Hoofding.cls.xml
===================================================================
diff -u -r29059 -r52080
--- APPS/EC/dto/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 29059)
+++ APPS/EC/dto/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 52080)
@@ -27,6 +27,10 @@
 <Type>%TimeStamp</Type>
 </Property>
 
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
Index: WS/Vhisie4/RequestHeader.cls.xml
===================================================================
diff -u -r50354 -r52080
--- WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 50354)
+++ WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 52080)
@@ -65,6 +65,11 @@
 <Parameter name="VALUELIST" value=",N,F,E,D"/>
 </Property>
 
+<Property name="EmailAdres">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="EmailAdres"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>RequestHeaderState</State>
@@ -91,6 +96,9 @@
 <Value name="7">
 <Value>Taal</Value>
 </Value>
+<Value name="8">
+<Value>EmailAdres</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r51449 -r52080
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 51449)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 52080)
@@ -334,6 +334,7 @@
 	Set Offerte.DocumentReferenties.OrderReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.OrderReferentie)
 	Set Offerte.DocumentReferenties.KlantOrderNummer = ..GeefOpgekuisteTekst(Hoofding.Referentie.KlantOrderNummer)
 	Set Offerte.DocumentReferenties.CommissieReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.CommissieReferentie)
+	Do Offerte.ZetEmailAdres(..GeefOpgekuisteTekst(Hoofding.EmailAdres))
 ]]></Implementation>
 </Method>
 
Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r51424 -r52080
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 51424)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 52080)
@@ -1216,6 +1216,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEmailAdres">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(10)
+]]></Implementation>
+</Method>
+
+<Method name="ZetEmailAdres">
+<FormalSpec>EmailAdres:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(10,EmailAdres)
+	Do ..%SetModified(1)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.VKP.impl.DataM.DataMOrderD</DataLocation>
Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r52079 -r52080
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 52079)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 52080)
@@ -503,6 +503,16 @@
 <Abstract>1</Abstract>
 <ReturnType>DOM.common.Personality</ReturnType>
 </Method>
+
+<Method name="ZetEmailAdres">
+<Abstract>1</Abstract>
+<FormalSpec>EmailAdres:%String</FormalSpec>
+</Method>
+
+<Method name="GeefEmailAdres">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r51366 -r52080
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 51366)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 52080)
@@ -28,6 +28,7 @@
 	Do Order.IndienMethodCall("GeefOorsprongKetting").DanReturn("OorsprongKetting")
 	Do Order.IndienMethodCall("GeefEDINummer").DanReturn("EDINummer")
 	Do Order.IndienMethodCall("GeefEindPersonality").DanReturn(##class(DOM.common.VanHoeckePersonality).Instance())
+	Do Order.IndienMethodCall("ZetEmailAdres",$$$ElkeWaarde).DanDoeNiks()
 
 	Quit Order
 ]]></Implementation>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r50383 -r52080
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 50383)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 52080)
@@ -175,6 +175,8 @@
 	Set Hoofding.Referentie.KlantOrderNummer = ""   
 	Set Hoofding.Referentie.CommissieReferentie = BestelWinkelkarRequest.Winkelkar.CommissieReferentie
 	
+	Set Hoofding.EmailAdres = BestelWinkelkarRequest.Header.EmailAdres
+	
 	Quit Hoofding
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u -r51025 -r52080
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 51025)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 52080)
@@ -56,12 +56,14 @@
 <Method name="Test: BestelWinkelkar bestelt offerte en zet GekozenVerzendmogelijkheid met de juiste waarden">
 <Implementation><![CDATA[
 	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+	Set VerwachteHoofding.EmailAdres = "EmailAdres"
 	#dim KlantPartijId As %String = "KlantPartijId"
 	#dim RandomOfferteId As %String = "RandomOfferteId"
 	
 	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
 	Set BestelWinkelkarRequest.Header.KlantId = "KlantId"
 	Set BestelWinkelkarRequest.Header.PersonalityId = "PersonalityId"
+	Set BestelWinkelkarRequest.Header.EmailAdres = "EmailAdres"
 	
 	Do ..WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", "WinkelkarId").DanReturn(RandomOfferteId)
 	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding", RandomOfferteId, ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks()