Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml =================================================================== diff -u -r39954 -r40340 --- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml (.../BestandVerwerker.cls.xml) (revision 39954) +++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml (.../BestandVerwerker.cls.xml) (revision 40340) @@ -96,6 +96,7 @@ #dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail() Do Mail.ZetVerzender($$$SystemMail("EDI Bestelling")) + Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke()) Do Mail.VoegToeOntvanger(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres()) #dim Inhoud As %String = "Er werd een EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen" #dim Onderwerp As %String = "EDI bestelling van '"_Klant.GeefNaam()_"' ontvangen"