lcMessage=[] IF lnNumRows > 0 SELECT ccPrint SCAN IF NOT EMPTY(ccPrint.insuser_id) SELECT sys_user x5 = LOOKUP(username,ccPrint.insuser_id,user_id,'user_id') REPLACE f3 WITH x5 IN ccPrint ENDIF ldDateFrom = ConvertTime2AmPm( ccPrint.STARTDATE,.T.) lcStat = LEFT(ccPrint.f2,1) lcSpeakStat = LEFT(ccPrint.fl,4) TEXT TO lCMessage NOSHOW TEXTMERGE ADDITIVE <b><i><<m.ldDateFrom >></i> [<<lcStat>>] [<<lcSpeakStat>>]</b><br> <<ccPrint.activity)>><br> <<ccPrint.LocName>><br> <<STRTRAN(ccPrint.LOCATION,CRLF,", ")>><br> <<ccPrint.Contacts>><br><hr> ENDTEXT ENDSCAN * \\send email to user SET CLASSLIB TO E:\vAPPTest\wwIPstuff\wwIPSTUFF.vcx oMail=CREATEOBJECT("wwIPStuff") oMail.cMailServer = "pop.state.ct.us" oMail.cSenderEmail = "peter.cortiel@ct.gov" oMail.cSenderName = "PAC" oMail.cRecipient= _csendto oMail.cCCLIST='peter.cortiel@ct.gov' oMail.cSubject="Subject" oMail.cMessage="Treasury Connections - Auto" WITH oMail .cUsername = "cortielp" .cPassword='1kkkebd77#$4' .cSubject=TEXTMERGE([Treasury Connection: <<lddate1>> to <<ldDate2>> ] ) .cMessage=lcMessage .cContentType=[text/html] IF .SendMail() STRTOFILE(crlf+"Email Sent"+TRANSFORM(DATETIME())+[sent to ]+oMail.cRecipient ,lcLogFile ,1) ELSE STRTOFILE(crlf+"!!!!!!!!!!!!!!!!!!!!!!!!!!!" ,lcLogFile ,1) STRTOFILE(crlf+.cErrorMsg ,lcLogFile ,1) STRTOFILE(crlf+"Email NOT Sent"+TRANSFORM(DATETIME()) ,lcLogFile ,1) STRTOFILE(crlf+"!!!!!!!!!!!!!!!!!!!!!!!!!!!" ,lcLogFile ,1) ENDIF ENDWITH * \\end email ENDIF STRTOFILE(crlf+[done ]+TRANSFORM(DATETIME())+[================] ,lcLogFile ,1)