Index: BL/Legacy/vhMAIL.cls.xml
===================================================================
diff -u -r69810 -r69833
--- BL/Legacy/vhMAIL.cls.xml	(.../vhMAIL.cls.xml)	(revision 69810)
+++ BL/Legacy/vhMAIL.cls.xml	(.../vhMAIL.cls.xml)	(revision 69833)
@@ -5,6 +5,11 @@
 <Class name="BL.Legacy.vhMAIL">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="KlantNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="VerstuurViaSmtpIpvSystemMail">
 <Description>
 Via deze method kunnen de Admin/Systeem-mails (i.e. $$SYSTEM^vhMAIL() ) omgezet worden naar outlook-mails. 
@@ -15,15 +20,23 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[BetrTyp:%String="",Betreft:%String,Onderwerp:%String,ToUserId:%String,&mdTekstBody:%String,&mdLinkRefer:%String,Urgentie:%String="",DelKode:%String="",Optie:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
-
-	// Velden omzetten van SYSTEM-mail naar SMTP-mail : 
-	#dim MailTo As %String = ToUserId
 	#dim IsAanTePassenNaarBidiSupport As %Boolean = $$$True   ; Momenteel enkel te gebruiken voor BIDISupport 
 	If IsAanTePassenNaarBidiSupport {
-		Set MailTo = "BidiSupport@vanhoecke.be"
+		Set LegacyVhMAIL = ..%New()
+		Do LegacyVhMAIL.VerstuurNaarBidiSupportIpvSystemMail(BetrTyp, Betreft, Onderwerp, ToUserId, .mdTekstBody, .mdLinkRefer, Optie)
 	}
+]]></Implementation>
+</Method>
+
+<Method name="VerstuurNaarBidiSupportIpvSystemMail">
+<FormalSpec><![CDATA[BetrTyp:%String="",Betreft:%String,Onderwerp:%String,ToUserId:%String,&mdTekstBody:%String,&mdLinkRefer:%String,Optie:%String=""]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim MailTo As %String = ToUserId
+	Set MailTo = "BidiSupport@vanhoecke.be"
 	
-	#dim Inhoud As %String = "Outlook mail i.p.v. Admin Systeem mail (bestemd voor "_$$USERNAME^vhUSER(ToUserId)_", id='"_ToUserId_"'). "
+	Set ..KlantNaam = ..GeefKlantNaam(BetrTyp, Betreft)
+
+	#dim Inhoud As %String = "Outlook mail i.p.v. Admin Systeem mail, bestemd voor "_$$USERNAME^vhUSER(ToUserId)_" (id='"_ToUserId_"'). "
 	
 	If $$$HasLength(Betreft) {
 		Set Inhoud = Inhoud _ $$$CRLF_$$$CRLF
@@ -43,8 +56,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantNaam">
+<FormalSpec>TypeKlantOfLeverancier:%String,BetreftRef:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantNaam As %String = ""
+
+	If $$$HasLength(BetreftRef) && ($$$UCase(TypeKlantOfLeverancier) = "KL") {
+		#dim DomeinContext As DOM.DomeinContext = ##class(DOM.DomeinContext).Instance()
+		#dim KlantID As %String = DomeinContext.GeefLegacyPartijAPI().GeefKlantPartijID(BetreftRef)
+		#dim Klant As DOM.VKP.VanHoeckeKlant = DomeinContext.GeefVerkoopAPI().GeefKlant(KlantID)
+		Set KlantNaam = Klant.GeefNaam()
+	}
+	
+	Quit KlantNaam
+]]></Implementation>
+</Method>
+
 <Method name="GeefBetreftInfo">
-<ClassMethod>1</ClassMethod>
 <FormalSpec>TypeKlantOfLeverancier:%String,BetreftRef:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -54,10 +84,7 @@
 	If $$$HasLength(BetreftRef) {
 		Set BetreftInfo = "Betreft: "_TypeKlantOfLeverancier _ " " _ BetreftRef
 		If $$$UCase(TypeKlantOfLeverancier) = "KL" {
-			#dim DomeinContext As DOM.DomeinContext = ##class(DOM.DomeinContext).Instance()
-			#dim KlantID As %String = DomeinContext.GeefLegacyPartijAPI().GeefKlantPartijID(BetreftRef)
-			#dim Klant As DOM.VKP.VanHoeckeKlant = DomeinContext.GeefVerkoopAPI().GeefKlant(KlantID)
-			Set BetreftInfo = BetreftInfo _ "  Klant: "_Klant.GeefNaam()
+			Set BetreftInfo = BetreftInfo _ "  Klant: "_..KlantNaam
 		}
 	}
 	
@@ -66,14 +93,13 @@
 </Method>
 
 <Method name="VerstuurSmtpMail">
-<ClassMethod>1</ClassMethod>
 <FormalSpec>MailTo:%String,Onderwerp:%String,Inhoud:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim MailApi As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
 
 	#dim Mail As TECH.Mail.Mail = MailApi.MaakNieuwMail()
-	Do Mail.ZetVerzender($$$SystemMail("Admin mailer"))
+	Do Mail.ZetVerzender($$$SystemMail( $$$If(..KlantNaam="", "Admin mailer", "Klant "_..KlantNaam) ))
 	Do Mail.ZetOnderwerp(Onderwerp)
 	Do Mail.ZetInhoud(Inhoud)
 	Do Mail.ZetIsHTML($$$False)