oMSG.Recipients.Add("display name","SMTP:Email@address",1)MartinJ
lcsubject="Commissary Run Info fm Date: "+lcdatestr+" Jail: "+lcjailabbrev+" Cart: "+lccartabbrev > >oMSG = createobject("CDO.Message") >oMSG.To = ALLTRIM(this.oapplication.osyssetup.cwhemail) >oMSG.From = ALLTRIM(this.oapplication.osyssetup.cexpemailfm) >oMSG.Subject = (lcsubject) >FOR lnloopctr=1 TO 4 >IF NOT EMPTY(lafiles2(lnloopctr)) >oAtt=oMSG.AddAttachment(lafiles2(lnloopctr)) >IF lnloopctr=4 >llemailed=.t. >ENDIF >ENDIF >ENDFOR >oMSG.TextBody = ("Sent: "+TTOC(DATETIME())) > >&& Need to add a confirmation here somehow >oMSG.Send() >>