Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r53372 -r53413
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 53372)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 53413)
@@ -187,23 +187,10 @@
 	Set Hoofding.Referentie.CommissieReferentie = BestelWinkelkarRequest.Winkelkar.CommissieReferentie
 	
 	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefVhisieEmailadressenNaarAx()) {
-		If (##class(TECH.StringUtils).StartsWith(##class(TECH.StringUtils).ToLower(BestelWinkelkarRequest.Header.EmailAdresBevestiging),"impersonificatie")) || 
-		   (##class(TECH.StringUtils).StartsWith(##class(TECH.StringUtils).ToLower(BestelWinkelkarRequest.Header.EmailAdresBevestiging),"multi")) {
-				Set Hoofding.EmailAdresBevestiging = ""
-		} ElseIf $$$Not(##class(TECH.MailUtils).Check(BestelWinkelkarRequest.Header.EmailAdresBevestiging)) {
-				Set Hoofding.EmailAdresBevestiging = ""
-		} Else {
-				Set Hoofding.EmailAdresBevestiging = BestelWinkelkarRequest.Header.EmailAdresBevestiging
-		}
-		
-		If (##class(TECH.StringUtils).StartsWith(##class(TECH.StringUtils).ToLower(BestelWinkelkarRequest.Header.EmailAdresBesteller),"multi")) {
-				Set Hoofding.EmailAdresBesteller = ""
-		} ElseIf $$$Not(##class(TECH.MailUtils).Check(BestelWinkelkarRequest.Header.EmailAdresBesteller)) {
-				Set Hoofding.EmailAdresBesteller = ""
-		} Else {
-				Set Hoofding.EmailAdresBesteller = BestelWinkelkarRequest.Header.EmailAdresBesteller
-		}
+		Set Hoofding.EmailAdresBevestiging = ..GeefEmailAdresBevestiging(BestelWinkelkarRequest.Header.EmailAdresBevestiging)
+		Set Hoofding.EmailAdresBesteller = ..GeefEmailAdresBesteller(BestelWinkelkarRequest.Header.EmailAdresBesteller)
 	}
+	
 	// ALS DE LOGGING WEER WEG MAG, VERGEET DAN NIET DE SPECIAAL HIERVOOR AANGEMAAKTE NIEUWE PROPERTY OfferteIDVoorLogging TERUG TE VERWIJDEREN !!!
 	Do ##class(vhLib.Logger).%New("Vhisie4EmailAdressen").Debug("EmailAdresBevestiging", "OfferteId: '"_..OfferteIDVoorLogging_"' - Input vanuit Vhisie4 - EmailAdresBevestiging: '"_BestelWinkelkarRequest.Header.EmailAdresBevestiging_"'")
 	Do ##class(vhLib.Logger).%New("Vhisie4EmailAdressen").Debug("EmailAdresBesteller", "OfferteId: '"_..OfferteIDVoorLogging_"' - Input vanuit Vhisie4 - EmailAdresBesteller: '"_BestelWinkelkarRequest.Header.EmailAdresBesteller_"'")
@@ -235,6 +222,47 @@
 	Quit TotaalPrijs
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEmailAdresBevestiging">
+<FormalSpec>HeaderEmailAdresBevestiging:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim EmailAdresBevestiging As %String = ""
+	
+	If (($$$Not(..EmailAdresBegintMet(HeaderEmailAdresBevestiging, "impersonificatie"))) && 
+	   ($$$Not(..EmailAdresBegintMet(HeaderEmailAdresBevestiging, "multi"))) &&
+	   (##class(TECH.MailUtils).Check(HeaderEmailAdresBevestiging))) {
+			Set EmailAdresBevestiging = HeaderEmailAdresBevestiging
+	}
+	
+	Quit EmailAdresBevestiging
+]]></Implementation>
+</Method>
+
+<Method name="GeefEmailAdresBesteller">
+<FormalSpec>HeaderEmailAdresBesteller:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim EmailAdresBesteller As %String = ""
+	
+	If (($$$Not(..EmailAdresBegintMet(HeaderEmailAdresBesteller, "multi"))) &&
+	   (##class(TECH.MailUtils).Check(HeaderEmailAdresBesteller))) {
+			Set EmailAdresBesteller = HeaderEmailAdresBesteller
+	}
+	
+	Quit EmailAdresBesteller
+]]></Implementation>
+</Method>
+
+<Method name="EmailAdresBegintMet">
+<FormalSpec>EmailAdres:TECH.String,Begin:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).StartsWith(##class(TECH.StringUtils).ToLower(EmailAdres), Begin)
+]]></Implementation>
+</Method>
 </Class>