Peter,
I didn't exactly tested the same code but this one and got "Open, save ..." dialog.
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
>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:
>
>* 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
>
>
>
>
>
>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
