I first saw this routine posted by (I think) Steven S and it works fine under the Win9x family. Under XP it fails because START.EXE no longer exists. Does anybody have a solution for XP (and I presume all the NT family)?
Thanks in advance,
ChrisMc
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:' + cURL)
= FWRITE(m.nFH,'?subject=Enter subject')
= FFLUSH(m.nFH)
= FCLOSE(m.nFH)
RUN /N2 START &cFile
RETURN .T.
Thanks in advance,
ChrisMc
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:' + cURL)
= FWRITE(m.nFH,'?subject=Enter subject')
= FFLUSH(m.nFH)
= FCLOSE(m.nFH)
RUN /N2 START &cFile
RETURN .T.