I changed to have everything in the browser control (see here:
http://www.cortiel.com/temp1.htm )
and still the hyperlink does not work (the mailto link doen't either <g>
here is my code:
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
Thanks again
>Show them in a listbox and on dblclick ShellExecute.
>Cetin
>
>>I want the control to behave like the attachment control in outlook. Show the filename (with icon if possible) and open the file (stored locally , not on the internet) in the proper app. mostly I will have excel sheets. So clicking should open the file in excel, just as outlook does
>>
>>Thanks
>>
>>Peter
>>>
>>>Peter,
>>>Not sure if this is what you mean:
>>>
>>>.Navigate2('file://c:\')
>>>
>>>Cetin
Peter Cortiel
