Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r38477 -r39494
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 38477)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 39494)
@@ -284,6 +284,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFacturatieEmailAdressen">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
+	
+	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(..GeefID())
+	Set itPersonen = ##class(TECH.ListIterator).%New(Partij.GeefPersonen())
+	While ( itPersonen.HasNext() ) {
+		#dim Persoon As DOM.common.Persoon = itPersonen.Next()
+		If Persoon.GeefVoorkeurDocumenten().Find(##class(DOM.CRM.enu.VoorkeurDocument).Factuur()) {
+			Do EmailAdressenLijst.Insert(Persoon.GeefEmail())
+		}
+	}
+		
+	Quit ##class(TECH.ListUtils).ListToPieces(EmailAdressenLijst,",")
+]]></Implementation>
+</Method>
+
 <Method name="GeefDoorstuurwijzeWMS">
 <ReturnType>DOM.CRM.enu.DoorstuurwijzeWMS</ReturnType>
 <Implementation><![CDATA[	Quit ..Node2.GeefPiece(8)