*****************************
IF pbMailSent
*-- Read Log File
nFileHandle = FOPEN(sLogFile, 10)
nFileEnd = FSEEK(nFileHandle, 0, 2)
nFileBeg = FSEEK(nFileHandle, 0)
IF nFileEnd > 0
--->Bad Line---> sFileData = FREAD(nFileHandle, nFileEnd)
ELSE
sFileData = ''
ENDIF
nFileClose = FCLOSE(nFileHandle)
DO LogMail WITH sFileData, .T.
*=MESSAGEBOX('Email sent successfully!' , 48, 'RSVP')
WAIT WINDOW 'Email sent successfully to ' + SUBSTR(psMailTo,2,LEN(psMailTo)-2) NOWAIT
Else
WAIT CLEAR
=MESSAGEBOX('Email not sent. There was an error', 48, 'RSVP')
ENDIF
*********************************
In the bad line above I get the error message 'Function argument, type, or count is invalid'.
These are the values
nfileHandle = 49
nfileEnd = 81500
They are numeric....
so any ideas???
Thanks a heap!
TommyTommy Tillman A+ NetWork+ MCP