Index: APPS/TBXWeb/OrderChecker.cls.xml =================================================================== diff -u -r1333 -r1381 --- APPS/TBXWeb/OrderChecker.cls.xml (.../OrderChecker.cls.xml) (revision 1333) +++ APPS/TBXWeb/OrderChecker.cls.xml (.../OrderChecker.cls.xml) (revision 1381) @@ -54,21 +54,24 @@ Set Source="TBoxWeb" Set BodyIsStream=1 - Set BodyIsHTML=0 + Set BodyIsHTML=1 Set Subject="Verzonden TBX-orders niet verwerkt"_$S($L(Source):" ("_Source_")", 1:"") Set From=$$$SystemMail("TBX OrderChecker") Set lbTo=$$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.TBXWeb.OrderChecker_MailTo"),";") Set BodyStream = ##class(%Library.GlobalCharacterStream).%New() Do BodyStream.WriteLine("Volgende orders werden nog niet verwerkt via Tandembox website: ") - Do BodyStream.WriteLine() + Do BodyStream.WriteLine("
") If $D(TabelArray) { Set TabelStream=$$ArrayToHTMLTable^vhLib(.TabelArray) Set sc=BodyStream.CopyFrom(TabelStream) - Set BodyIsHTML=1 } + Do BodyStream.WriteLine("

") + Do BodyStream.WriteLine($$$Replace($$GetJobInfo^vhLib.System(),$$$CRLF,"
")) + Do BodyStream.WriteLine("
") + Set sc=$$SendMiniMail^vhLib(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML) Quit sc ]]>