Is askC suppoed to work inside a script?

[[email protected]]

Re: Is askC suppoed to work inside a script?

Hi, yes I changed it to;
if rslt = 1 'email_send() result for good send is 1
tbl.change_begin()
tbl.sent = .t.
tbl.change_end(.T.)
end if

What I did was to start the script and turned the wifi off after say 15 to 20 seconds. Then I looked in the 'Accounts June' folder that had been created and saw that 6 pdfs had ben made, I then looked in the account table and saw that four Ts had been marked as Fs. Presumably the email sending wasn't catching up with hte file creation, no problem. But wWhen I ran the script again, I was hoping the 'send' would start again with the fifth record, i.e. the first one not be marked T.

[[email protected]]

Re: Is askC suppoed to work inside a script?

Here is the whole thing as it is now.
'Date Created: 19-Oct-2013 03:07:47 PM
'Last Updated: 18-Jun-2016 06:17:26 PM
'Created By : Stan Matthews
'Updated By : Trevor

parentform.commit()
tbl = table.current()
tbl.fetch_first()

while .not. tbl.fetch_eof()
query.filter = "cuscode = "+quote(alltrim(tbl.cuscode))' .and. (.not. sent)
query.order = ""

to_param = Lookup("Customers2","cuscode = "+quote(alltrim(tbl.cuscode)),"alltrim(email)")
if alltrim(to_param) > "" .or. (.not. (tbl.sent))'only execute this section if an email address is not found OR 'sent' is not logical true MY LINE
cc_param = a5_eval_expression("",local_variables())
bcc_param = a5_eval_expression("[email protected]",local_variables())
subject_param = "Monthly account from Laprima S.L."
message_param = "Your attached account covers the month of "+cmonth(date())+"."
if filefind.get(a5.Get_Path()+chr(92)+"Accounts "+cmonth(date()),FILE_FIND_DIRECTORY,"PN") = ""
dir_create(a5.Get_Path()+chr(92)+"Accounts "+cmonth(date()))
end if
:report.SaveAs("AccMonthly","PDF",query.filter,query.order,a5.get_path()+chr(92)+"Accounts "+cmonth(date())+chr(92)+"Acct "+tbl.cuscode+".pdf")
sleep(2)
rslt = email_send(to_param,subject_param,message_param,a5.get_path()+chr(92)+"Accounts "+cmonth(date())+chr(92)+"Acct "+alltrim(tbl.cuscode)+".pdf","",bcc_param)
sleep(3)

if rslt = 1 'email_send() result for good send is 1
tbl.change_begin()
tbl.sent = .t.
tbl.change_end(.T.)
end if

end if 'end of section to create and send email if address found

tbl.fetch_next()
end while
fil.flush()
fil.close()

I've tried it without query.filter = "cuscode = "+quote(alltrim(tbl.cuscode))' .and. (.not. sent) and without my line.
Regards.

[Stan Mathews]

Re: Is askC suppoed to work inside a script?

I then looked in the account table and saw that four Ts had been marked as Fs.

That's backwards. You should update the sent field before starting and set all records to .F..
The script should set the sent field to .T. each time it sends and email.

[Tim Kiebert]

Re: Is askC suppoed to work inside a script?

I think the expression should be

query.filter = "cuscode = "+quote(alltrim(tbl.cuscode)) + " .and. (.not. sent)"

[[email protected]]

Re: Is askC suppoed to work inside a script?

Thanks Tim, I'll look at that. Seems to be what your post script refers to !

[[email protected]]

Re: Is askC suppoed to work inside a script?

Yes that's it, seems to working now. Thank you both ! Off to test it to death now.

[Tom Henkel]

Re: Is askC suppoed to work inside a script?

Trevor,
ITs good you got past the issue of restarting, however you still haven't resolved the issue of your network carrier dropping you out after a number of e-mails.

Most ISP's look at numerous e-mails being blasted out as spam and will cut you off, which is what I think you are probably experiencing.

We had a similar situation, and there are a couple of ways around it without getting knocked out by your ISP.

First, you could contact them and explain the situation, and they may open up the threshold so you can get your e-mails out, or,

put some strategic timing into your routine so that it doesn't appear to them that your are pushing out a whole bunch of e-mails that appear to be SPAM.

We chose the latter. Between each e-mail_send, we put a "sleep" command for a couple of seconds, then we also put a 2 minute "sleep" command after 20 or 30 emails so that it didn't appear to the ISP that we were "blasting" out 150 e-mails every 6 hours.

Tom
What your threshold is needs to be experimented with.