Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
KaBoom!
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00609042
Message ID:
00609077
Vues:
13
This message has been marked as the solution to the initial question of the thread.
Hi Tommy

Although it doesn't solve your question, if you are using VFP6 or VFP7, you could use the FILETOSTR() function to fill sFillData.

>This code is part of a email package that sends out emails automatically to our salesreps - and has worked great in other systems here...
>
>but..
>
>the latest one I released to production just blew up when run for the 1st time (at least that I've been told).
>
>Here is the code..
>
>

>*****************************
>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!
>Tommy

hth,
Frank Camp
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform