Index: BL/Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r29059 -r31107
--- BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 29059)
+++ BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 31107)
@@ -511,35 +511,35 @@
 	For  Set oIP=Agenda.eMailIntern.GetNext(.Ref) Quit:Ref=""  Do
 	. Set InternTo=InternTo_";"_oIP.%Id()
 	
-	; Vanuit de Agenda zijn er geen interne gebruikers opgegeven -> defaulten naar interne gebruikers
+	
 	Set Q="K",D="\",U=";"
-	Set VerslagGrp=""
-	Set VerslagDerdeID = ""
-	If $IsObject(Agenda.Klant) && $$$Not(Agenda.eMailIntern.Count()) { 
-		Set VerslagDerdeID = Agenda.Klant.%Id()
+	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 VerslagGrp = ..BepaalVerslagGroepIndienKlantSendMailIntern(Klant,Agenda)
-	} Elseif $isObject(Agenda.Architect) && $$$Not(Agenda.eMailIntern.Count() ){
-		Set VerslagDerdeID = Agenda.Architect.%Id()
-		Set VerslagGrp="GeoVerslagAR"  
+
+		Set InternTo = Klant.GeefInterneVerantwoordelijkeEnBackups()
+
+		Set VerslagGrp=""
+		Set VerslagDerdeID = ""
+		If $IsObject(Agenda.Klant) {
+			Set VerslagDerdeID = Agenda.Klant.%Id()
+			Set VerslagGrp = ..BepaalVerslagGroepIndienKlantSendMailIntern(Klant,Agenda)
+		} Elseif $isObject(Agenda.Architect) {
+			Set VerslagDerdeID = Agenda.Architect.%Id()
+			Set VerslagGrp="GeoVerslagAR"  
+		}
+		If (VerslagGrp '= "") && ($$USERID^vhUSER(VerslagGrp)'="") Set InternTo = InternTo_";"_VerslagGrp
 	}
 	
-	If (VerslagGrp '= "") && ($$USERID^vhUSER(VerslagGrp)'="") {
-		Set InternTo = Klant.GeefInterneVerantwoordelijkeEnBackups() 
-		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())
-	While (ResultSet.Next())
-	{
+	While (ResultSet.Next()) {
 		Set InternTo = InternTo_";"_ResultSet.Data("Geinteresseerde")
 	}
-
+	
 	Quit:$TR(InternTo,";","")="" ; geen interne gebruikers
-	Set InternTo = $Extract(InternTo,2,$L(InternTo))
+	Set:$Extract(InternTo)=";" InternTo = $Extract(InternTo,2,*)
 	
 	If $isObject(Derde) Do
 	. Set BetrTyp="KL"
@@ -555,6 +555,8 @@
 	Set Optie("EDIT")="-1"
 	Set Optie("TYPE")="I" /// InfoMail
 	Set CUserId=..User.%Id()
+	
+	Do ##class(Tools.Wlip).%New(195).String("Intern : "_InternTo)
 	Set MailId=$$EXTERN^vhMAIL(BetrTyp,Betreft,Subject,InternTo,.Body,.Lnk,.Optie)
 ]]></Implementation>
 </Method>