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()