To simplify my work what i did is this :
m=SYS(5)+CURDIR()+"WEB_BACKUP.ZIP"
n="mailto:
brandini2000@bol.com.br?subject=Web_Backup Envio de Arquivos para Tratamento&body=" ;
+ "Anexe o arquivo " + m + " ao seu e-mail por favor... " +CHR(13) + chr(10)
n= n + "Web_Backup *.dbf *.ini *.log (Gerado Automaticamente)" +CHR(13) + chr(10)
n= n + " pasta de trabalho = " + SYS(5)+CURDIR() +CHR(13) + chr(10)
CHAMAR_URL(n)
FUNCTION chamar_Url
LPAR tcurl, tcaction
tcurl = IIF(TYPE("tcUrl")="C", tcurl, "
http://www.qualquer.com/")
tcaction = IIF(TYPE("tcAction")="C", tcaction, "OPEN")
DECL INTEGER ShellExecute IN SHELL32.dll INTEGER, STRING, STRING, STRING, STRING, INTEGER
DECL INTEGER FindWindow IN WIN32API STRING, STRING
shellexecute(findwindow(0,_SCREEN.caption),tcaction,tcurl,"",SYS(2023),1)
ENDFUNC