I cannot send batch /multiple emails

[CarverRon]

I was following this thread:
http://msgboard.alphasoftware.com/al...mails+invoices


I copy the following code in a script and when run, I get nothing, no errors or no email gets sent out.

query.filter = "inv_date<={10/26/2011}.and.email<>\"\".and.mailed<>\"Y\""
query.order = "inv_number"

dim distribute_params as p
distribute_params.email_field = "Email"
distribute_params.layout_name = "invocemailMF"
distribute_params.layout_type = "Report"
distribute_params.filter = query.filter
distribute_params.order = query.order
distribute_params.flags = ""
distribute_params.message = <<%txt%
Hello this is a test email to a bunch of customers
Sincerely,
Mf group
%txt%
distribute_params.subject = "Invoice mf oct"
distribute_params.create_log = .t.
distribute_params.logfile_name = "c:\a_sales\layout_distribute_log.dbf"
distribute_params.file_type = "pdf"
distribute_params.cc_field = "clients->email"
distribute_params.bcc_field = ""
distribute_params.profile_name = "sales"
distribute_params.store_in_outbox = .f.
distribute_params.update_table = .t.
distribute_params.update_field = "Mailed"
distribute_params.update_expression_success = "\"Y\""
distribute_params.update_expression_failed = "\"N\""

Am I missing part of the code?

[Stan Mathews]

Re: I cannot send batch /multiple emails

'Now send the e-mails, passing in the settings contained in the 'distribute_params' dot variable
a5_layout_distribute(distribute_params)

[CarverRon]

Re: I cannot send batch /multiple emails

Thanks for the response.
"a5_layout_distribute()"
I saw that part of the code and it gives the error "not recognized", so I did removed it.
In one of your threads, you were questioning it, I understood it was part of the documentation not a function.
In addition I can not find any detail or definition about a5_layout_distribute() .
I am using A9.
Any suggestion?

[CarverRon]

Re: I cannot send batch /multiple emails

Could it be That I am not netmailer?

[Stan Mathews]

Re: I cannot send batch /multiple emails

It does seem to be a Report Mailer function.

[CarverRon]

Re: I cannot send batch /multiple emails

Since I do not have netmailer, is there another script to send batch emails?

[Stan Mathews]

Re: I cannot send batch /multiple emails

Any email script can be put in a loop which selects addresses from a table and emails a file. The addresses can be selected one at a time or in groups.

Are you sending one report to multiple customers or separate reports to each of many customers?

[CarverRon]

Re: I cannot send batch /multiple emails

There will be 2 batch scenarios:
1 Same email to every one in the client db with an email address.
2 An invoice pertinent to the client with an email address.
I guess the script will be very similar.
Was there any script written before?

[CarverRon]

Re: I cannot send batch /multiple emails

I have found the following script from the manual.

dim message as C
query.filter = "between(recno(),1,1000)"
query.order = "recno()"
:Report.SaveAs("Invoice", "HTML", query.filter, query.order, "c:\test.htm", .F.)
wait_until(.F., 5, 5)
if file.exists("c:\test.htm") then
message = file.to_string("c:\test.htm")
end if
email_send("[email protected]", "HTML Message",message, "", "", "", .F., "HTML")
----------------------
Obviously it needs additional criteria.
1 how to place the email of the individual client to the line of email_send

2 How to select/print individual invoice/record in the report?

As of now, if I place a proper email address, in the email_send, it will send the report for all invoices in one report.

Any quick fix?
I have attached a sample DB. The above code is located in the MainMenu Form in a button "send invoices"

[Stan Mathews]

Re: I cannot send batch /multiple emails

For a button on the F_Main form, not the MainMenu form. Change the line.

1. email_send(alltrim(p_email.text), "HTML Message",message, "", "", "", .F., "HTML")

p_email.text is the text in the p_email object of the visible record on the F_Main form

[Stan Mathews]

Re: I cannot send batch /multiple emails

For a button on the F_Main form, not the MainMenu form. Change the line.


2. query.filter = "pqid = "+quote(pqid.text)

filters the report for the id of the currently visible record

[CarverRon]

Re: I cannot send batch /multiple emails

I did apply the change and it works well for a single email in the the fmain form.

My objective is to send invoice by email to all clients in the contact table.

I tried 3 different query.filter
query.filter = "between(recno(),1,1000)"
query.filter = "tbl2.pqid = "+quote(pqid.text)
query.filter = "pqid = "+quote(pqid.text)

The first works, but send the same report to all emails.
The other 2 gives an error that cannot find pqid

What would be the suggested filter syntax?
I put this code in the mainmenu in sendinvoices button.
I did attach the sample.
Here is the full code:
========================

Dim tbl2 as P
dim message as C
tbl2 = table.open("Contacts")

tbl2.fetch_first()
while .not.tbl2.fetch_eof()
param_to = trim(tbl2.P_Email)

'query.filter = "between(recno(),1,1000)"
'query.filter = "tbl2.pqid = "+quote(pqid.text)
query.filter = "pqid = "+quote(pqid.text)

query.order = "recno()"
:Report.SaveAs("Invoice", "HTML", query.filter, query.order, "c:\test.htm", .F.)
wait_until(.F., 5, 5)
if file.exists("c:\test.htm") then
message = file.to_string("c:\test.htm")
end if
email_send(param_to, "HTML Message",message, "", "", "", .F., "HTML")

tbl2.fetch_next()
end while
tbl2.close()

[Stan Mathews]

Re: I cannot send batch /multiple emails

Given

param_to = trim(tbl2.P_Email)

query.filter = "pqid = "+quote(tbl2.pqid)

[CarverRon]

Re: I cannot send batch /multiple emails

That did it.

As we think, we have done everything and still does not work yet, we are missing the obvious.

Thanks & Thanks Stan.

[CarverRon]

Re: I cannot send batch /multiple emails

I have a new need to send email in a group basis.
Attached is a sample of the db.
When I press button 7, I get one email for each entry.
I would like to see only one email per account as it looks under the button #6 using jack.
In the cases were there are 3 entries for one account, the email will be correct with 3 lines, but will produce 3 emails of the same.

here is the code:

dim tbl2 as P
tbl2 = table.open("Contacts")

tbl2.fetch_first()
dim I as N
dim K as N
dim J as N
dim message as C
while .not.tbl2.fetch_eof()
param_to = trim(tbl2.P_Email)

query.filter = "pqid = "+quote(tbl2.pqid)

query.order = "recno()"

:Report.SaveAs("InvoiceByGroupList", "HTML", query.filter, query.order, "c:\test.htm", .F.)
wait_until(.F., 5, 5)
if file.exists("c:\test.htm") then
message = file.to_string("c:\test.htm")
end if
email_send(param_to, "HTML Message",message, "", "", "", .F., "HTML")

tbl2.fetch_next()
end while
tbl2.close()

what line has to be changed?
Is there a newer way of doing this?