Index: vhUnitTest/DP/BlumProducten.cls.xml =================================================================== diff -u -r1074 -r2337 --- vhUnitTest/DP/BlumProducten.cls.xml (.../BlumProducten.cls.xml) (revision 1074) +++ vhUnitTest/DP/BlumProducten.cls.xml (.../BlumProducten.cls.xml) (revision 2337) @@ -93,7 +93,7 @@ do Body.Write("") set From = "Dynaplug unittest " - //Do SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body,$get(BodyIsStream,0),blnHTML) + //Do SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,Body,$get(BodyIsStream,0),blnHTML) Quit ##super() ]]> Index: BL/Sys/FOP/Test.cls.xml =================================================================== diff -u -r1074 -r2337 --- BL/Sys/FOP/Test.cls.xml (.../Test.cls.xml) (revision 1074) +++ BL/Sys/FOP/Test.cls.xml (.../Test.cls.xml) (revision 2337) @@ -317,7 +317,7 @@ . ; ... aan FaxAdmin . Set msg=msg_$$$CRLF_"DEBUG INFO: "_$$$CRLF_" scFax: "_$$ParseStatus^vhLib(scFax)_$$$CRLF_"Fax Result: "_$$$CRLF_$$ObjToText^vhLib(FaxStatus)_$$$CRLF_$$$CRLF_"--- End of message ---" . Set msg=msg_$$$CRLF_$$$CRLF_##class(Sys.FOP.Logging).GetJobInfo() - . Set scMail=$$SendMiniMail^vhLib(From,$LB($$$FaxAdminMailTo),Subj,msg) + . Set scMail=$$SendMiniMailForced^vhLib.Mail(From,$LB($$$FaxAdminMailTo),Subj,msg) ; Invullen van het FaxLog-object, indien obj/ID gedefinieerd is ;If ($L(FaxLog))&&($L(UniekFaxID)) Do ; ($IsObject(FaxStatus))&&('FaxStatus.ErrorOccurred)&&($L(FaxStatus.StatusMsg)) Do FishEye: Tag 2337 refers to a dead (removed) revision in file `BL/Sys/FOP/DocBaseOLD.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: BL/Flow/Offerte/ScanEDIMail.cls.xml =================================================================== diff -u -r1863 -r2337 --- BL/Flow/Offerte/ScanEDIMail.cls.xml (.../ScanEDIMail.cls.xml) (revision 1863) +++ BL/Flow/Offerte/ScanEDIMail.cls.xml (.../ScanEDIMail.cls.xml) (revision 2337) @@ -112,7 +112,7 @@ . . Set Subject=FileName_": EDI-verwerking mislukt" . . Set Body=result.GetErrorMessage() . . Set Body=Body_$$$CRLF_$$GetJobInfo^vhLib.System(1,"") - . . Set sc=$$SendMiniMail^vhLib(From,To,Subject,Body,0) + . . Set sc=$$SendMiniMailForced^vhLib.Mail(From,To,Subject,Body,0) . Else Do . . Do ##class(vhLib.Logger).%New(..#EDILoggerGroep).Info("ImportEDI","Data wordt omgezet naar Flow.Offerte (ConvertProxy).") . . Do ..ConvertProxy(.arOffertes,FileName) Index: DS/Sys/LogBase.cls.xml =================================================================== diff -u -r1074 -r2337 --- DS/Sys/LogBase.cls.xml (.../LogBase.cls.xml) (revision 1074) +++ DS/Sys/LogBase.cls.xml (.../LogBase.cls.xml) (revision 2337) @@ -182,7 +182,7 @@ Index: VHSys/Logging.cls.xml =================================================================== diff -u -r1074 -r2337 --- VHSys/Logging.cls.xml (.../Logging.cls.xml) (revision 1074) +++ VHSys/Logging.cls.xml (.../Logging.cls.xml) (revision 2337) @@ -101,7 +101,7 @@ . Set Body=Body_"Actie: "_$G(Actie)_$$$CRLF . Set Body=Body_"Detail: "_$G(Detail)_$$$CRLF . Do ..GetMailFields(.From,.lbTo,.Subj,..%ClassName(1)) - . Do SendMiniMail^vhLib.Mail(From,lbTo,Subj,Body,,,,,) + . Do SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,) If Niveau="D" Do oLog.Debug() @@ -152,7 +152,7 @@ Set Body=$$aelErrorMailBody() Do ..GetMailFields(.From,.lbTo,.Subj,"Error") ; Do ##class(VHSys.Scheduler.LoggingAbstract).GetMailFields(...) Set:($ZError="islist+2^%occRun")&&($$$GETERRORCODE(Error)=$$$GeneralError) lbTo=$LB("ICT_Meldingen@vanhoecke.be") ; Does not provide any extra information - Set sc=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,,,,,) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,) Quit aelErrorMailBody() #define BodyTitle "Error in "_..%ClassName(1)_" : " Index: Prod/GADef/KaderDeur.cls.xml =================================================================== diff -u -r2167 -r2337 --- Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 2167) +++ Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 2337) @@ -1047,7 +1047,7 @@ Set GADataProd=$$kpcGetGADataProduct() If '$IsObject(GADataProd) Do . Set msg="Problem in method Kaderdeur.KPRCreate() : no GAData.Product object. "_$C(13,10)_"System will crash at the next command."_$C(13,10)_$C(13,10)_"--------------"_$C(13,10)_$$GetJobInfo^vhLib(1,"") - . Set sc=$$SendMiniMail^vhLib("System@vanhoecke.be",$LB("ICT_SupportTBX"),"KAD problem - GAData.Product!",msg) ; (From,To,Subject,Body, + . Set sc=$$SendMiniMailForced^vhLib.Mail("System@vanhoecke.be",$LB("ICT_SupportTBX"),"KAD problem - GAData.Product!",msg) ; (From,To,Subject,Body, ;Quit:('$IsObject(GADataProd)) Do GADataProd.ProductSetObjectId(..ProductGetObjectId()) Do GADataProd.KPRCreate(GenPRNr,QtyStaffel,MetPrijs) @@ -1361,7 +1361,7 @@ Set $ZTRAP = "" Set Exception = ##class(TECH.ExceptionHandler).Catch() Set Body="PRNr = "_..ProductGetObjectId()_$$$CRLF_Exception.ToString()_$$$CRLF_$$$CRLF_$$GetJobInfo^vhLib(1,"") - Do SendMiniMail^vhLib.Mail($$$SystemMail("reports"),$LB("ICT_SupportTBX@vanhoecke.be"),"Fout in Kaderdeur KenmerkConversie",Body) + Do SendMiniMailForced^vhLib.Mail($$$SystemMail("reports"),$LB("ICT_SupportTBX@vanhoecke.be"),"Fout in Kaderdeur KenmerkConversie",Body) Quit ]]> Index: APPS/PM/OL/ConsistentieChecker.cls.xml =================================================================== diff -u -r1073 -r2337 --- APPS/PM/OL/ConsistentieChecker.cls.xml (.../ConsistentieChecker.cls.xml) (revision 1073) +++ APPS/PM/OL/ConsistentieChecker.cls.xml (.../ConsistentieChecker.cls.xml) (revision 2337) @@ -162,7 +162,7 @@ } Do Output.WriteLine("") set lbMailTo = $$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.PM.OL.ConsistentieChecker_MailNaar"),";") - Do SendMiniMail^vhLib.Mail($$$SystemMail("OL Controle"),lbMailTo,"Consistency erros in de kenmerken data orgalux website",Output,1,1) + Do SendMiniMailForced^vhLib.Mail($$$SystemMail("OL Controle"),lbMailTo,"Consistency erros in de kenmerken data orgalux website",Output,1,1) ]]> Index: VHSys/Scheduler/Logging.cls.xml =================================================================== diff -u -r1074 -r2337 --- VHSys/Scheduler/Logging.cls.xml (.../Logging.cls.xml) (revision 1074) +++ VHSys/Scheduler/Logging.cls.xml (.../Logging.cls.xml) (revision 2337) @@ -134,7 +134,7 @@ Set Body=$$aelErrorMailBody() Do ..GetMailFields(.From,.lbTo,.Subj,"Error") ; Do ##class(VHSys.Scheduler.LoggingAbstract).GetMailFields(...) Set:($ZError="islist+2^%occRun")&&($$$GETERRORCODE(Error)=$$$GeneralError) lbTo=$LB("ICT_Meldingen@vanhoecke.be") ; Does not provide any extra information - Set sc=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,,,,,) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,) Quit aelErrorMailBody() #define BodyTitle "Queue Processing Error in "_..%ClassName(1)_" : " Index: TECH/Error/impl/ErrorHandler.cls.xml =================================================================== diff -u -r1976 -r2337 --- TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 1976) +++ TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 2337) @@ -165,7 +165,7 @@ Set To = $listbuild(..GetMailAddress(Error)) - Set sc=$$SendMiniMail^vhLib(From,To,Subj,Body,1,,,,) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,To,Subj,Body,1,,,,) If $$$ISERR(sc) { Do ..CrashDuringErrorHandling(sc) @@ -199,7 +199,7 @@ Set:$G(sc) Body=Body_$$$CRLF_$$ParseStatus^vhLib(sc) Set Subj="TECH - ErrorHandler : Crash during error handling" Set To=$listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")) - Set sc=$$SendMiniMail^vhLib(From,To,Subj,Body,,,,,) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,To,Subj,Body,,,,,) ]]> Index: csp/wol.cls.xml =================================================================== diff -u -r1074 -r2337 --- csp/wol.cls.xml (.../wol.cls.xml) (revision 1074) +++ csp/wol.cls.xml (.../wol.cls.xml) (revision 2337) @@ -65,7 +65,7 @@ . Set Key="" . For Set Key=$O(%request.Data(Key)) Quit:Key="" Do . . Set Body=Body_$C(10,13)_Key_" : "_$G(%request.Data(Key,1)) - Set sc=$$SendMiniMail^vhLib(From,lbTo,Subject,Body) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,Body) Quit ExecWOL(MAC) Index: APPS/OV/OrderAanvraagChecker.cls.xml =================================================================== diff -u -r1381 -r2337 --- APPS/OV/OrderAanvraagChecker.cls.xml (.../OrderAanvraagChecker.cls.xml) (revision 1381) +++ APPS/OV/OrderAanvraagChecker.cls.xml (.../OrderAanvraagChecker.cls.xml) (revision 2337) @@ -72,7 +72,7 @@ Do BodyStream.WriteLine($$$Replace($$GetJobInfo^vhLib.System(),$$$CRLF,"
")) Do BodyStream.WriteLine("
") - Set sc=$$SendMiniMail^vhLib(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML) Quit sc ]]> Index: APPS/TBXWeb/OrderChecker.cls.xml =================================================================== diff -u -r1381 -r2337 --- APPS/TBXWeb/OrderChecker.cls.xml (.../OrderChecker.cls.xml) (revision 1381) +++ APPS/TBXWeb/OrderChecker.cls.xml (.../OrderChecker.cls.xml) (revision 2337) @@ -72,7 +72,7 @@ Do BodyStream.WriteLine($$$Replace($$GetJobInfo^vhLib.System(),$$$CRLF,"
")) Do BodyStream.WriteLine("
") - Set sc=$$SendMiniMail^vhLib(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML) Quit sc ]]> Index: BL/Sys/FOP/DocBase.cls.xml =================================================================== diff -u -r1680 -r2337 --- BL/Sys/FOP/DocBase.cls.xml (.../DocBase.cls.xml) (revision 1680) +++ BL/Sys/FOP/DocBase.cls.xml (.../DocBase.cls.xml) (revision 2337) @@ -334,7 +334,7 @@ If $$$ISERR(sc) Do . Do ##class(Sys.FOP.Logging).GetMailFields(.From,.lbTo,.Subj,"Error in PreProcess Command") . Set Body=$$sdfErrorMailBody(sc) - . Set sc=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,) + . Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,) ;d WL^vhDBG("SaveDataInToFilePPC() Finished.") Quit sc sdfErrorMailBody(Error) @@ -471,7 +471,7 @@ ;New From,lbTo,Subj,Body,scMail Set Body=$$rdwErrorMailBody(sc) Do ##class(Sys.FOP.Logging).GetMailFields(.From,.lbTo,.Subj,"Error DocBaseWS") - Set scMail=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,,,,,) + Set scMail=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,) Quit rdwErrorMailBody(Error) #define BodyTitle "FOP Process (RunDocBaseWS) Error : " @@ -633,7 +633,7 @@ Set:($L($G(%TaskInfo("TSEQID")))) Body=Body_$$$CRLF_"TaskSequence "_%TaskInfo("TSEQID")_" - Task "_$G(%TaskInfo("TASKID"))_" - SeqItem "_$G(%TaskInfo("TSEQ-ITEM")) Set:($IsObject($G(fopRes))) Body=Body_$$$CRLF_$$$CRLF_$$ObjToText^vhLib(fopRes) Do ##class(Sys.FOP.Logging).GetMailFields(.From,.lbTo,.Subj,"Warning DocBaseWS") - Set scMail=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,,,,,) + Set scMail=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,) Quit wufAddToTempLog(sLog) ; Add to temp log, only if global node already exists @@ -806,7 +806,7 @@ Else Do Quit 0 . Do cwpLogWSAction("WARNING: Lock Timed Out (3 sec)!") . Do ##class(Sys.FOP.Logging).GetMailFields(.From,.lbTo,.Subj,"Warning DocBaseWS") - . Set scMail=$$SendMiniMail^vhLib(From,$LB("wv@vanhoecke.be"),Subj,"Fop DocBaseWS WARNING: Lock Timed Out - Log:"_($H-30681)_","_$P($H,",",2)_".",,,,,) + . Set scMail=$$SendMiniMailForced^vhLib.Mail(From,$LB("wv@vanhoecke.be"),Subj,"Fop DocBaseWS WARNING: Lock Timed Out - Log:"_($H-30681)_","_$P($H,",",2)_".",,,,,) Quit 1 /* * / @@ -1040,7 +1040,7 @@ Set $ZTRAP="" Set Body=$$sfsErrorMailBody() Do ##class(Sys.FOP.Logging).GetMailFields(.From,.lbTo,.Subj,"Error SFS") - Set sc=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,,,,,) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,) Set $ZE="" Quit sfsErrorMailBody() Index: BL/Flow/Proxy/pxPrijsLijst.cls.xml =================================================================== diff -u -r1074 -r2337 --- BL/Flow/Proxy/pxPrijsLijst.cls.xml (.../pxPrijsLijst.cls.xml) (revision 1074) +++ BL/Flow/Proxy/pxPrijsLijst.cls.xml (.../pxPrijsLijst.cls.xml) (revision 2337) @@ -233,7 +233,7 @@ . If SortKey=99 Do . . If ##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Proxy.pxPrijslijst_SendMail") do . . . Set lbMailto = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Flow.Proxy.pxPrijslijst_MailNaar")) - . . . Do SendMiniMail^vhLib("system@vanhoecke.be",lbMailto,"Missing GENTYPE "_PRNr_" -> "_ProdType,"Controleer ^RES(HAD,PI,GENTYP en ook Res.Vertaling:DOC") + . . . Do SendMiniMailForced^vhLib.Mail("system@vanhoecke.be",lbMailto,"Missing GENTYPE "_PRNr_" -> "_ProdType,"Controleer ^RES(HAD,PI,GENTYP en ook Res.Vertaling:DOC") . If $L($P(SortKey,"`",3)) Set ProdType=$P(SortKey,"`",3),SortKey=$G(^RES("HAD","PI","GENTYP","D",ProdType),99) ; indirectie . Set SortKey=(1000+SortKey)_ProdType . Set List=$G(^HULP(%J,"G",SortKey)) Index: vhUnitTest/Manager.cls.xml =================================================================== diff -u -r1950 -r2337 --- vhUnitTest/Manager.cls.xml (.../Manager.cls.xml) (revision 1950) +++ vhUnitTest/Manager.cls.xml (.../Manager.cls.xml) (revision 2337) @@ -113,11 +113,11 @@ set Message = "http://"_$$$Server_":"_port_"/csp/admin1/vhUnitTest.Report.cls?NS="_##class(%CSP.Page).EscapeURL($znspace)_"&INDEX="_manager.LogIndex_"&SUITE="_testsuite if 'manager.IsSuccess(testsuite) { Set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("vhUnitTest.SendToWhenFailed")) - Do SendMiniMail^vhLib(From,MailTo,"UnitTest "_manager.LogIndex_" Failed on ["_$$$Server_"]",Message,0) + Do SendMiniMailForced^vhLib.Mail(From,MailTo,"UnitTest "_manager.LogIndex_" Failed on ["_$$$Server_"]",Message,0) } else { Set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("vhUnitTest.SendToWhenSucceeded")) - Do SendMiniMail^vhLib(From,MailTo,"UnitTest "_manager.LogIndex_" Succeeded on ["_$$$Server_"]",Message,0) + Do SendMiniMailForced^vhLib.Mail(From,MailTo,"UnitTest "_manager.LogIndex_" Succeeded on ["_$$$Server_"]",Message,0) } } Index: APPS/OV/impl/OrderBevestigingSFS.cls.xml =================================================================== diff -u -r1954 -r2337 --- APPS/OV/impl/OrderBevestigingSFS.cls.xml (.../OrderBevestigingSFS.cls.xml) (revision 1954) +++ APPS/OV/impl/OrderBevestigingSFS.cls.xml (.../OrderBevestigingSFS.cls.xml) (revision 2337) @@ -62,7 +62,7 @@ } else { set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.impl.SFSOrderBevestiging_TestMailNaar")) - set stPost=$$SendMiniMail^vhLib($$$SystemMail("OV_OrderBevestiging"),MailTo,"SFS Order : "_..OrderNr,Stream,1) + set stPost=$$SendMiniMailForced^vhLib.Mail($$$SystemMail("OV_OrderBevestiging"),MailTo,"SFS Order : "_..OrderNr,Stream,1) } If $$$ISERR(stPost) Do Quit stPost Index: vhConsistency/ConsistencyCheck.cls.xml =================================================================== diff -u -r1775 -r2337 --- vhConsistency/ConsistencyCheck.cls.xml (.../ConsistencyCheck.cls.xml) (revision 1775) +++ vhConsistency/ConsistencyCheck.cls.xml (.../ConsistencyCheck.cls.xml) (revision 2337) @@ -71,7 +71,7 @@ Set MailNaar = MailNaar_$ListBuild($Piece(Mails,";",i)) } } - Do SendMiniMail^vhLib(From,MailNaar,"Consistency check failed on ["_$$$Server_"]",..Meldingen,1) + Do SendMiniMailForced^vhLib.Mail(From,MailNaar,"Consistency check failed on ["_$$$Server_"]",..Meldingen,1) } } Set Resultaat = "OK" Index: VHSys/Scheduler/BL/SchedulerAbstract.cls.xml =================================================================== diff -u -r1074 -r2337 --- VHSys/Scheduler/BL/SchedulerAbstract.cls.xml (.../SchedulerAbstract.cls.xml) (revision 1074) +++ VHSys/Scheduler/BL/SchedulerAbstract.cls.xml (.../SchedulerAbstract.cls.xml) (revision 2337) @@ -380,7 +380,7 @@ %Status 0)&&($ZABS(iTSeq-iTask)>MaxDiff) Do . Set sc=$$$ERROR($$$GeneralError,"SyncTaskID - MaxDiff overschreden") . Set MsgBody="Sys.FOP.Task - SyncTaskID:"_$C(13,10)_"Current values: "_(GlobalNameTask)_"="_iTask_" - "_(GlobalNameTSeq)_"="_iTSeq_$C(13,10)_"MaxDiff="_MaxDiff_$C(13,10)_"Error: "_$$ParseStatus^vhLib(sc) - . Set scMail=$$SendMiniMail^vhLib($$$FopMailFromKort,$LB("wv@vanhoecke.be"),"Sys.FOP.Task - SyncTaskID",MsgBody) + . Set scMail=$$SendMiniMailForced^vhLib.Mail($$$FopMailFromKort,$LB("wv@vanhoecke.be"),"Sys.FOP.Task - SyncTaskID",MsgBody) Else If iTSeq Index: vhLib/Logging.cls.xml =================================================================== diff -u -r1853 -r2337 --- vhLib/Logging.cls.xml (.../Logging.cls.xml) (revision 1853) +++ vhLib/Logging.cls.xml (.../Logging.cls.xml) (revision 2337) @@ -175,7 +175,7 @@ If ( scSave ) && ( SendMail ) & ( Niveau '= "D" ) Do . Set Body = oLog.GenMailBody() . Do oLogger.GetMailFields(.From,.lbTo,.Subject,) - . Do SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body,1,,,,) + . Do SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,Body,1,,,,) If Niveau="D" Do oLog.DebugWindow() @@ -221,7 +221,7 @@ ]]> - + Set oLog=##class(VHSys.Logging).AddErrorToLog(Groep,Actie,Error,Detail) 1 @@ -235,7 +235,7 @@ Set Body=$$aelErrorMailBody() Do Logging.GetMailFields(.From,.lbTo,.Subj,"Error") Set:($ZError="islist+2^%occRun")&&($$$GETERRORCODE(Error)=$$$GeneralError) lbTo=$LB("ICT_Meldingen@vanhoecke.be") ; Does not provide any extra information - Set sc=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,,,,,) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,) Quit aelErrorMailBody() #define BodyTitle "Error in "_..%ClassName(1)_" : " Index: WS/EWMS/PrintLabels.cls.xml =================================================================== diff -u -r1074 -r2337 --- WS/EWMS/PrintLabels.cls.xml (.../PrintLabels.cls.xml) (revision 1074) +++ WS/EWMS/PrintLabels.cls.xml (.../PrintLabels.cls.xml) (revision 2337) @@ -3,7 +3,7 @@ WS.EWMS.PrintLabels -%VHMacro +vhLib.Macro 1 %SOAP.WebService 0 @@ -91,15 +91,15 @@ If Status'=1 Do . Set Status = $$ParseStatus^vhLib(Status) . Set Body = FileName _ $C(13,10,13,10,13,10) _ Data - . Do SendMiniMail^vhLib("EWMS ",$LB("ICT_SysOp@vanhoecke.be"),Status,Body,0) + . Do SendMiniMailForced^vhLib.Mail($$$SystemMail("EWMS"),$LB("ICT_SysOp@vanhoecke.be"),Status,Body,0) Quit Status OnError Set $ZT="" Set Error = $ZE Set Body = Error _$C(13,10,13,10,13,10) _ FileName _ $C(13,10,13,10,13,10) _ Data - Do SendMiniMail^vhLib("EWMS ",$LB("ICT_SysOp@vanhoecke.be"),Error,Body,0) + Do SendMiniMail^vhLib($$$SystemMail("EWMS"),$LB("ICT_SysOp@vanhoecke.be"),Error,Body,0) Quit Error ]]> Index: Sys/FOP/QueueItem.cls.xml =================================================================== diff -u -r1074 -r2337 --- Sys/FOP/QueueItem.cls.xml (.../QueueItem.cls.xml) (revision 1074) +++ Sys/FOP/QueueItem.cls.xml (.../QueueItem.cls.xml) (revision 2337) @@ -191,7 +191,7 @@ New From,lbTo,Subj Set $ZTRAP="" Do ##class(Sys.FOP.Logging).GetMailFields(.From,.lbTo,.Subj,"AddToQueue Warning") - Set sc=$$SendMiniMail^vhLib(From,$LB("wv@vanhoecke.be"),Subj,"Fop AddToQueue ""InitialStatusExpr"" : Eval Error in @() :"_$$$CRLF_(EvalExpr)_""_$$$CRLF_$$$CRLF_"$ZERROR: "_$ZE,,,,,) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,$LB("wv@vanhoecke.be"),Subj,"Fop AddToQueue ""InitialStatusExpr"" : Eval Error in @() :"_$$$CRLF_(EvalExpr)_""_$$$CRLF_$$$CRLF_"$ZERROR: "_$ZE,,,,,) Set $ZE="" Quit "" ]]> Index: BL/EC/Session.cls.xml =================================================================== diff -u -r1984 -r2337 --- BL/EC/Session.cls.xml (.../Session.cls.xml) (revision 1984) +++ BL/EC/Session.cls.xml (.../Session.cls.xml) (revision 2337) @@ -376,7 +376,7 @@ If MailMsg'="" Do . Set MailMsg="Gekoppelde gebruiker(s):"_$C(13,10)_MailMsg_$C(13,10,13,10,13,10)_##class(BL.Sys.IPAgent).GetSummary(..#ipaWrongLogin,IP) - . Do SendMiniMail^vhLib("vhisie",$LB("pv@vanhoecke.be"),"Gebruiker '"_FirstUserName_"' heeft problemen met inloggen",MailMsg) + . Do SendMiniMailForced^vhLib.Mail("vhisie",$LB("pv@vanhoecke.be"),"Gebruiker '"_FirstUserName_"' heeft problemen met inloggen",MailMsg) Quit Index: BL/Prod/GAData/TBXLadeXML.cls.xml =================================================================== diff -u -r1571 -r2337 --- BL/Prod/GAData/TBXLadeXML.cls.xml (.../TBXLadeXML.cls.xml) (revision 1571) +++ BL/Prod/GAData/TBXLadeXML.cls.xml (.../TBXLadeXML.cls.xml) (revision 2337) @@ -531,7 +531,7 @@ Set lbTo=$LB("wv@vanhoecke.be") Set Subj="TBox WebOrder - Bestellung" Set Body="Remarks + Attached file."_$$$CRLF_$$$CRLF - Set sc=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,,,,,lbAttachments) + Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,,,,,lbAttachments) // Delete Set sc=##class(%File).Delete(FilePath) Index: BL/FOP/Print.cls.xml =================================================================== diff -u -r1074 -r2337 --- BL/FOP/Print.cls.xml (.../Print.cls.xml) (revision 1074) +++ BL/FOP/Print.cls.xml (.../Print.cls.xml) (revision 2337) @@ -467,7 +467,7 @@ . . Set Subj=Subj_" : Unexpected data in PPOD." . . Set Body="Melding van klasse ""BL.FOP.Print"" method ""QGetWaitingPrintGroupsExecute()"""_$$$CRLF_$$$CRLF_"Unexpected data in PPOD. Some data may not have been rendered."_$$$CRLF_"Please delete empty row from PPOD (ID="_tmpRS.Data("ID")_")" . . Set Body=Body_$$$CRLF_$$$CRLF_"--- End of message ---"_$$$CRLF_$$$CRLF_$$GetJobInfo^vhLib(1,"") - . . Set scMail=$$SendMiniMail^vhLib(From,lbTo,Subj,Body,0) + . . Set scMail=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subj,Body,0) . . Set Taal=tmpRS.Data("Taal") . Set Type=tmpRS.Data("Type") Index: Prod/GAData/Product.cls.xml =================================================================== diff -u -r2249 -r2337 --- Prod/GAData/Product.cls.xml (.../Product.cls.xml) (revision 2249) +++ Prod/GAData/Product.cls.xml (.../Product.cls.xml) (revision 2337) @@ -670,7 +670,7 @@ Set $ZTRAP = "" Set Exception = ##class(TECH.ExceptionHandler).Catch() Set Body="PRNr = "_..ProductGetObjectId()_$$$CRLF_Exception.ToString()_$$$CRLF_$$$CRLF_$$GetJobInfo^vhLib(1,"") - Do SendMiniMail^vhLib($$$SystemMail("reports"),$LB("ICT_SupportTBX@vanhoecke.be"),"Fout in TandemBox KenmerkConversie",Body) + Do SendMiniMailForced^vhLib.Mail($$$SystemMail("reports"),$LB("ICT_SupportTBX@vanhoecke.be"),"Fout in TandemBox KenmerkConversie",Body) Do ##class(vhLib.Logger).%New("Kenmerken conversie").Error("ConverteerProductToIK","Fout in TandemBox KenmerkConversie:"_$$$CRLF_Body) Quit ]]>