function SendBlatmail LPARAMETERS lcTo,lcCC,lcBCC,lcSubject,lcMessageString,lcMessageFile,lcAttachments,lcFrom LOCAL llReturn llReturn = .T. IF EMPTY(lcTo) AND EMPTY(lcCC) AND EMPTY(lcBCC) && nobody to send to! messagelog('SendBlatMail was called with no email TO addresses - Can NOT send mail!') RETURN .f. endif IF EMPTY(lcto) lcto = '' ENDIF IF EMPTY(lcCC) lcCC = '' ENDIF IF EMPTY(lcBCC) lcBCC = '' ENDIF IF EMPTY(lcSubject) lcSubject = '' ENDIF IF EMPTY(lcMessageString) lcMessageString = '' ENDIF IF EMPTY(lcMessageFile) lcMessageFile = '' ENDIF IF EMPTY(lcAttachments) lcAttachments = '' ENDIF oBlatMail=NEWOBJECT('sendblatmail','blatmail.prg') IF VARTYPE(oBlatMail) <> 'O' llReturn = .f. ENDIF IF llReturn llReturn = oBlatMail.send(lcto,lccc,lcbcc,lcSubject,lcMessageString,lcMessageFile,IIF(!EMPTY(lcMessageString),.T.,.F.),lcAttachments,lcFrom) ENDIF && llReturn && clean up, get out.. IF VARTYPE(oBlatMail) = 'O' RELEASE oBlatMail ENDIF RETURN llReturn