Index: BL/Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r31108 -r31146
--- BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 31108)
+++ BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 31146)
@@ -488,7 +488,7 @@
 Email van de klant en interne tekst naar de interne personen
 set bl=##class(BL.Derde.Agenda.Agenda).%New() d bl.Initialize(22)
 D bl.SendMailIntern("1008||60157||2973")</Description>
-<FormalSpec>Agenda</FormalSpec>
+<FormalSpec>Agenda:%CacheString</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New (Agenda,Klant,KlantNiveau,Regio,%this)
@@ -514,23 +514,24 @@
 	
 	Set Q="K",D="\",U=";"
 	if $$$Not(Agenda.eMailIntern.Count()) { ; Vanuit de Agenda zijn er geen interne gebruikers opgegeven -> defaulten naar interne gebruikers
-		#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(Agenda.Klant.%Id())
-		#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
-
-		Set InternTo = Klant.GeefInterneVerantwoordelijkeEnBackups()
-
 		Set VerslagGrp=""
 		Set VerslagDerdeID = ""
 		If $IsObject(Agenda.Klant) {
+			#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(Agenda.Klant.%Id())
+			#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
+			
 			Set VerslagDerdeID = Agenda.Klant.%Id()
 			Set VerslagGrp = ..BepaalVerslagGroepIndienKlantSendMailIntern(Klant,Agenda)
+			
+			Set:$$$HasLength(VerslagGrp) InternTo = Klant.GeefInterneVerantwoordelijkeEnBackups()
+			
 		} Elseif $isObject(Agenda.Architect) {
 			Set VerslagDerdeID = Agenda.Architect.%Id()
 			Set VerslagGrp="GeoVerslagAR"  
 		}
 		If (VerslagGrp '= "") && ($$USERID^vhUSER(VerslagGrp)'="") Set InternTo = InternTo_";"_VerslagGrp
 	}
-	
+
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT Geinteresseerde FROM APPS_CRM_impl.BezoekVerslagGeinteresseerde WHERE FOR SOME %ELEMENT(IsGeinteresseerdIn) (%Value = ?)")
 	Do ResultSet.Execute(..User.%Id())