lcFileNAme = GetFile("XLS") TEXT TO m.lcHTML NOSHOW TEXTMERGE <html> <head> </head> <body bgcolor="#ECE9D8"> <table border="0" width="100%" id="table1"> <tr> <td width="83"><font face="Verdana">From:</font></td> <td width="526"><font face="Verdana"><a href="mailto:pac@cortiel.com"> pac@cortiel.com</a></font></td> <td width="54"><font face="Verdana">Sent:</font></td> <td><font face="Verdana"><<Datetime()>></font></td> </tr> </table> <table border="0" width="100%" id="table1"> <tr> <td width="82"><font face="Verdana">To:</font></td> <td width="817"><font face="Verdana">thisform.business.data.CRECIPIENT</font></td> </tr> <tr> <td width="82"><font face="Verdana">CC:</font></td> <td width="817"><font face="Verdana">thisform.business.data.CCCLIST</font></td> </tr> <tr> <td width="82"><font face="Verdana">BCC:</font></td> <td width="817"><font face="Verdana">thisform.business.data.CBCCLIST</font></td> </tr> <tr> <td width="82"><font face="Verdana">Subject</font></td> <td width="817"><font face="Verdana">thisform.business.data.CSUBJECT</font></td> </tr> <tr> <td width="82"><font face="Verdana">Attach</font></td> <td width="817"><font face="Verdana"><a href="file://<<m.lcFileName>>"><<JustFname(m.lcFileName)>></a></font></td> </tr> </table> <table border="1" width="100%" id="table1" style="border-collapse: collapse" height="465" cellpadding="2" bgcolor="#FFFFFF"> <tr> <td width="491" valign="top"><font face="Courier New">thisform.business.data.CMESSAGE</font></td> </tr> </table> </body> </html> endtextCetin
>* Program....: S_EMAIL1.AFTERREFRESH >* Version....: >* Author.....: Peter A. Cortiel >* Date.......: 09/19/05 >* Notice.....: Copyright (c) 2005 ** PCS **, All Rights Reserved. >* Compiler...: Visual FoxPro 09.00.0000.2412 for Windows for Windows >* Abstract...: >* Changes....: > >THISFORM.oSYS_USER.query([user_id=]+TRANSFORM(thisform.business.data.user_id)) > > >TEXT TO THISFORM.lcHTML NOSHOW TEXTMERGE > ><html> > ><head> ></head> > ><body bgcolor="#ECE9D8"> > ><table border="0" width="100%" id="table1"> > <tr> > <td width="83"><font face="Verdana">From:</font></td> > <td width="526"><font face="Verdana"><a href="mailto:pac@cortiel.com"> > pac@cortiel.com</a></font></td> > <td width="54"><font face="Verdana">Sent:</font></td> > <td><font face="Verdana"><<TRANSFORM(thisform.business.data.Tsent)>></font></td> > </tr> ></table> > > ><table border="0" width="100%" id="table1"> > > <tr> > <td width="82"><font face="Verdana">To:</font></td> > <td width="817"><font face="Verdana"><<thisform.business.data.CRECIPIENT>></font></td> > </tr> > <tr> > <td width="82"><font face="Verdana">CC:</font></td> > <td width="817"><font face="Verdana"><<thisform.business.data.CCCLIST>></font></td> > </tr> > <tr> > <td width="82"><font face="Verdana">BCC:</font></td> > <td width="817"><font face="Verdana"><<thisform.business.data.CBCCLIST>></font></td> > </tr> > <tr> > <td width="82"><font face="Verdana">Subject</font></td> > <td width="817"><font face="Verdana"><<thisform.business.data.CSUBJECT>></font></td> > </tr> > <tr> > <td width="82"><font face="Verdana">Attach</font></td> > <td width="817"><font face="Verdana"><a href="file://<<thisform.business.data.cAttach>>"><<thisform.business.data.cAttach>></a></font></td> > > > > > </tr> ></table> ><table border="1" width="100%" id="table1" style="border-collapse: collapse" height="465" cellpadding="2" bgcolor="#FFFFFF"> > > <tr> > <td width="491" valign="top"><font face="Courier New"><<thisform.business.data.CMESSAGE>></font></td> > </tr> ></table> > ></body> > ></html> > >endtext >XINDEX=ADDBS(SYS(5)+SYS(2003))+"HTML\FILENOTES\INDEX.HTM" > >WITH thisform.pgf1.page2.oWB > .Navigate(XINDEX) > lnStartSeconds = SECONDS() > DO WHILE .ReadyState <> 4 ; > AND (SECONDS()-lnStartSeconds <= 1 ) > DOEVENTS > ENDDO > .DOCUMENT.OPEN() > .DOCUMENT.WRITE(thisform.lchtml) > .DOCUMENT.CLOSE() > .visible=.t. >ENDWITH > > >>