Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
email("mike@nowhere.com","boss@mycompany.com")
Function email
Lparameters cUrlto,cUrlcc
cFile = Sys(2023) + Sys(3) + '.URL'
If File(m.cFile)
Erase (m.cFile)
Endif
nFh = Fcreate(m.cFile)
If m.nFh < 0
Wait "Can't create a temporary file for the email" Window Nowait
Return
Endif
= Fputs(m.nFh,'[InternetShortcut]')
= Fwrite(m.nFh,'URL=mailto:' + cUrlto)
= Fwrite(m.nFh,"?CC= &cUrlcc&Subject= Meet for lunch&Body=Please join me and the gang for lunch tomorrow")
= Fflush(m.nFh)
= Fclose(m.nFh)
Run /N2 Start &cFile
Return .T.
Endfunc