Index: BL/Legacy/vhMAIL.cls.xml
===================================================================
diff -u
--- BL/Legacy/vhMAIL.cls.xml	(revision 0)
+++ BL/Legacy/vhMAIL.cls.xml	(revision 69810)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="BL.Legacy.vhMAIL">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="VerstuurViaSmtpIpvSystemMail">
+<Description>
+Via deze method kunnen de Admin/Systeem-mails (i.e. $$SYSTEM^vhMAIL() ) omgezet worden naar outlook-mails. 
+De input parameters lopen gelijk met de argumenten van $$SYSTEM^vhMAIL(); 
+FYI : Urgentie, DelKode zijn enkel nodig bij Admin-mail 
+Oproepen via : 
+  Do ##class(BL.Legacy.vhMAIL).VerstuurViaSmtpIpvSystemMail()</Description>
+<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"
+	}
+	
+	#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
+		Set Inhoud = Inhoud _ ..GeefBetreftInfo(BetrTyp, Betreft)
+	}
+	Set Inhoud = Inhoud _ $$$CRLF_$$$CRLF
+	Set Inhoud = Inhoud _ $$$IfLength($G(mdTekstBody), "", $$$CRLF)
+	Set Inhoud = Inhoud _ ##class(TECH.MultiDimUtils).OneDimValuesToString(.mdTekstBody,$$$CRLF)
+
+	If $$$HasLength($Get(mdLinkRefer(1))) {
+		Set Inhoud = Inhoud _ $$$CRLF_$$$CRLF
+		Set Inhoud = Inhoud _ "Document link in Admin: " _$$$CRLF
+		Set Inhoud = Inhoud _ ##class(TECH.MultiDimUtils).OneDimValuesToString(.mdLinkRefer,$$$CRLF)
+	}
+	
+	Do ..VerstuurSmtpMail(MailTo,Onderwerp,Inhoud)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBetreftInfo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TypeKlantOfLeverancier:%String,BetreftRef:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BetreftInfo As %String = ""
+
+	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()
+		}
+	}
+	
+	Quit BetreftInfo
+]]></Implementation>
+</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.ZetOnderwerp(Onderwerp)
+	Do Mail.ZetInhoud(Inhoud)
+	Do Mail.ZetIsHTML($$$False)
+
+	Do Mail.VoegToeOntvanger(MailTo)
+
+	Do MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+</Class>
+</Export>