TECH.Mockable TECH.Mail.MailAPI 1 MailAPI:TECH.Mail.MailAPI 1 1 %Status 1 Meldingen:%ListOfDataTypes,UserName:%String,Klant:DOM.VKP.VanHoeckeKlant 0) { #dim MailToPrefix As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix") #dim MailTo As %String = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2) #dim Mail As TECH.Mail.Mail = ..MailAPI.MaakNieuwMail() Do Mail.ZetOnderwerp("BLUM OPC - meldingen bij het verwerken van een winkelkar.") Do Mail.ZetVerzender($$$SystemMail("BLUM OPC")) Do Mail.VoegToeOntvanger(MailTo) Do Mail.ZetIsHTML($$$False) Do Mail.ZetInhoud(..MaakMailInhoud(Meldingen, UserName, Klant)) Do Mail.ZetOmleiden($$$False) Do ..MailAPI.VerstuurMail(Mail) } ]]> Meldingen:%ListOfDataTypes,UserName:%String,Klant:DOM.VKP.VanHoeckeKlant 1 %String