Index: APPS/VKP/Commissie/impl/AanbrengerInformeerder.cls.xml
===================================================================
diff -u -r40777 -r50146
--- APPS/VKP/Commissie/impl/AanbrengerInformeerder.cls.xml	(.../AanbrengerInformeerder.cls.xml)	(revision 40777)
+++ APPS/VKP/Commissie/impl/AanbrengerInformeerder.cls.xml	(.../AanbrengerInformeerder.cls.xml)	(revision 50146)
@@ -87,15 +87,17 @@
 <Description>
 Mag niet private, wegens powertool.</Description>
 <FormalSpec>AanbrengerKlantNr:%String,Commissies:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim MailVerstuurd As %Boolean = 0
+
 	#dim CommissieService As APPS.VKP.Commissie.CommissieService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefCommissieService()
 
 	#dim AanbrengerKlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(AanbrengerKlantNr)
 	#dim Aanbrenger As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(AanbrengerKlantID)
 		
 	do ..CommissieMailNaarAanbrenger.OpzettenVanDeNodigeVariabelen(AanbrengerKlantNr, Commissies)
 	if CommissieService.ControleerAanbrengerHeeftCommissieVerantwoordelijkeMetEmail(Aanbrenger, ..CommissieMailNaarAanbrenger) {	
-		#dim MailVerstuurd As %Boolean = 0
 		try {
 			do ..CommissieMailNaarAanbrenger.VerstuurMail(AanbrengerKlantNr, Commissies)
 			set MailVerstuurd = 1
@@ -108,9 +110,11 @@
 			Do ##class(vhLib.Logger).%New("VKP.COMMISSIESERVICE").ErrorMail("InformeerAanbrengerOverCommissies", Bericht)
 		}
 		if MailVerstuurd do CommissieService.MarkeerCommissiesAlsVerstuurd(Commissies,..CommissieMailNaarAanbrenger.GeefReferentie())
+	} Else {
+		Do ##class(vhLib.Logger).%New("VKP.COMMISSIESERVICE").Warning("Controle Aanbrenger", "Aanbrenger klant '"_AanbrengerKlantNr_"' is niet ok om mail te versturen.")
 	}
 	
-	quit
+	quit MailVerstuurd
 ]]></Implementation>
 </Method>
 
Index: vhPowerTools/APPS/VKP/AanbrengerInformeerder.cls.xml
===================================================================
diff -u -r40777 -r50146
--- vhPowerTools/APPS/VKP/AanbrengerInformeerder.cls.xml	(.../AanbrengerInformeerder.cls.xml)	(revision 40777)
+++ vhPowerTools/APPS/VKP/AanbrengerInformeerder.cls.xml	(.../AanbrengerInformeerder.cls.xml)	(revision 50146)
@@ -26,7 +26,8 @@
 		Do CommissieService.KeurCommissiesGoed(CommissieIDs)	
 		
 		set AanbrengerInformeerder = ##class(APPS.VKP.Commissie.impl.AanbrengerInformeerder).%New() 
-		Do AanbrengerInformeerder.InformeerAanbrengerOverCommissies(AanbrengerKlantNr, CommissieIDs)
+		#Dim MailVerstuurd As %Boolean = AanbrengerInformeerder.InformeerAanbrengerOverCommissies(AanbrengerKlantNr, CommissieIDs)
+		Write "Mail verstuurd: " _ MailVerstuurd _ " (zie logginggroep 'VKP.COMMISSIESERVICE' indien 0)", !
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
 	}