Help with send email loop

[twwtc]

Re: Help with send email loop

Tom

I'm going to have to do a little research and see how and where the report.saveas() works.

I must have a single button that will send the emails and the button needs to be somewhere on the main menu, because the people that will be using the finished app have zero experience with Alpha Five.

Thanks
Tony

[Stan Mathews]

Re: Help with send email loop

Alpha saves it where you tell it to.

In Tom's example

pdf_filename = "C:\Forecast\reports"+chr(92)+trim(loc1)+"_Pavement_forecast.pdf"

So you just modify

pdf_filename = "YOUR SAVED PDF FILE" <<<<<=================

to save it where you want and name it as you like. Once and done.

[G Gabriel]

Re: Help with send email loop

IF privacy is not an issue.. privacy in this context means the recipients know/do not know who else received the same email.. you could create one string for all recipients and send the email once without looping..
If, however; it is an issue, some email clients supposedly could hide the actual recipients' emails. I can't vouch for that since I did limited testing on it but it seems to work. Thunderbird for instance does that.

[Tom Henkel]

Re: Help with send email loop

Tony,

Once you get the code together and working as you like, save it as a script and then on the menu of your application, create a button with the following as the code:

script_play("your saved script")

All your staff needs to do is to click on the button, and things will progress just fine.

To thwart them form clicking multiple times, I would display some sort of message stating that things are progressing.

see this thread:
http://msgboard.alphasoftware.com/al...ad.php?t=51015

Good luck,

Tom

[twwtc]

Re: Help with send email loop

Tom and Stan

Thanks again for your time and help!

I have saved my report as a pdf.
I pasted the code you last posted and changed the pdf file location to "my" file location as a new script, using the Xbasic editor.

tblC = table.open("tourney")

N = 20 'N is the number of e-mails to do in a batch
L = 5 'L is the number of seconds to wait after each e-mail
M = 60 'M is the number of seconds to wait between batches
Skip = 0 'SKIP is the number of e-mails that had been sent in a previous attempt.
param_to = ""
query.filter = "current = \"Y\""
query.order = ""
ix = tblc.query_create()
I = 1
tblC.fetch_first()
while .not.tblC.fetch_eof()
if I < N
param_to = ""
if G1notify = "Y"
param_to = alltrim(g1email)
end if
if g2notify = "Y"
if param_to <> ""
param_to = param_to +","+alltrim(g2email)
else
param_to = alltrim(g2email)
end if
end if
pdf_filename="C:\GolfDatabase\Golf\Results2-ColTwo.pdf"
msg_text = "Open the attached PDF to view tournament results"
param_subject = "Anson Golf Tournament Results"
param_msg = msg_text
param_attachments = pdf_filename
email_Send(param_to,param_subject,param_msg,param_attachments)
tblC.fetch_next()
I = I+1
sleep(L)
else
sleep(M)
I=0
'tbl1.fetch_next()
end if
end if 'This is Line 40' <<<<<<<<<==========='
end while


When I try to save the script, I get the following error message

"Error at line:40, column:1
Error:Missing END WHILE command"

I noted above where line 40 is

Any ideas what I done wrong?

Tony

[Tom Henkel]

Re: Help with send email loop

I obviously screwed up. Get back to you in a few...

...later

This is why I LOVE indents for if/endif pairs. It was left over from other code.

Here it is fixed.

tblC = table.open("tourney")

N = 20 'N is the number of e-mails to do in a batch
L = 5 'L is the number of seconds to wait after each e-mail
M = 60 'M is the number of seconds to wait between batches
Skip = 0 'SKIP is the number of e-mails that had been sent in a previous attempt.
param_to = ""
query.filter = "current = \"Y\""
query.order = ""
ix = tblc.query_create()
I = 1
tblC.fetch_first()
while .not.tblC.fetch_eof()
	if I < N
		param_to = ""
		if G1notify = "Y"
			param_to = alltrim(g1email)
		end if
		if g2notify = "Y"
			if param_to <> ""
				param_to = param_to +","+alltrim(g2email)
			  else
				param_to = alltrim(g2email)
			end if
		end if
		pdf_filename="C:\GolfDatabase\Golf\Results2-ColTwo.pdf"
		msg_text = "Open the attached PDF to view tournament results"
		param_subject = "Anson Golf Tournament Results"
		param_msg = msg_text
		param_attachments = pdf_filename
		email_Send(param_to,param_subject,param_msg,param_attachments)
		tblC.fetch_next()
		I = I+1
		sleep(L)
	  else
		sleep(M)
		I=0
		'tbl1.fetch_next()
	end if
end while

[twwtc]

Re: Help with send email loop

Tom

Saved and ran, 3 errors returned.

Variable "G1notify" not found

Variable "G2notify" not found

Could not connect to SMTP Server

G1notify and G2notify are fields in my table, in case that matters.

Thanks

Tony

[Tom Henkel]

Re: Help with send email loop

That's me again...:o

g1notify and g2notify should be prefixed with "tblC."

Same for g1email and g2email.

Did you set up the Alpha e-mail client?

You need to specify whether you're using the built-in Alpha e-mail client or an external e-mail client such as outlook or eudora. If you're using the Alpha e-mail client, you need to set up the profile, SMTP server, POP server, etc.

Click on View->Settings->Email.

Once that is done, you should be OK.

Tom

[twwtc]

Re: Help with send email loop

Tom

Sorry, I should have included that info in my first post.
I am using Outlook Express

Do I need to change anything since I'm using Outlook Express?

Tony

[Tom Henkel]

Re: Help with send email loop

see attached. If yours looks like this, you should be OK. If the system seems to be sending e-mails, then abruptly stops, its your ISP shutting you down for spamming. Change your timing numbers (up) until they don't close you down.

Tom

[twwtc]

Re: Help with send email loop

Tom
I have not set anything up within Alpha Five concerning email. Just to use my default Outlook acct. My email settings in Alpha Five looks like the screen shot you posted last night. However, the other tabs are blank. Is that the way it should be?

Using the first script I posted at the top of this thread, everything works fine with my Outlook Express email account. (Just the problem that only one record gets looked at, thus only the possibility of one email, containing two email addresses, being sent)

Any other ideas or different approaches?

Thanks
Tony

[Tom Henkel]

Re: Help with send email loop

If you're using Outlook, then nothing else needs to be done with the settings. My guess is a timing issue. change the delay setting variables up by a few seconds

N = 20 'N is the number of e-mails to do in a batch
L = 5 'L is the number of seconds to wait after each e-mail
M = 60 'M is the number of seconds to wait between batches

[COLOR="Red"]N = 10[/COLOR] 'N is the number of e-mails to do in a batch
[COLOR="Red"]L = 8[/COLOR] 'L is the number of seconds to wait after each e-mail
[COLOR="Red"]M = 90[/COLOR] 'M is the number of seconds to wait between batches

I had a lot of trouble with my ISP thinking I was sending SPAM. This is something you will need to play with until it flows. It may be slow, but it will go.

Tom

[twwtc]

Re: Help with send email loop

Tom
The following code is working for me, but I think I may need to put the timer code in, because some of the people on the email list are not getting the pdf attachment.
I am only assuming that the problem may trying to send 50 or 60 emails, all at once, with attachments.
Can you help me with the code to include the timers?
Thanks
Tony

dim t as p

t = table.open("email")

t.fetch_first()
while .not. t.fetch_eof()

dim pm as P
pm.attachments = "C:\Flights.pdf"
pm.lrelated = .T.
pm.from = "[email protected]"
pm.from_alias = "my_company"
pm.to = t.email
pm.subject = "flight results"
pm.message = ""
email_send2(pm)
t.fetch_next()
end while

[Tom Henkel]

Re: Help with send email loop

Tony,

I don't have my code here at the office, but I will get it at home this weekend, and show you the full looping script.

Tom