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
]]>