Hi
A user called and said the progress gauge stopped and froze while doing mass
emails. I told them it may
be how their network is setup, if they are using dial up, DSL, how the internet
is connected to that computer
or if they are on a workstation....
But then I started thinking maybe it is my code.
On Start of the Form I Create Temp Table and Insert rows into that, this part
seems very fast. No Indexes
on the memail temp table
One thought I had was to make the Email generic, send it to me email address
then put 20-40 customer
emails on the BC field, instead of sending 300-400 separate emails.
I must be missing something?
Thanks
Marc
SET VAR vresult TEXT
-- THE rest of the Vars are set here
PAUSE 3 USING 'Sending Emails ... Please Stand By ...' +
CAPTION 'Sending Emails ... Please Stand By ...' +
ICON WINDOWS OPTION GAUGE_VISIBLE ON +
|GAUGE_COLOR RED +
|GAUGE_INTERVAL 10 +
|MESSAGE_FONT_NAME VERDANA +
|MESSAGE_FONT_SIZE 10 +
|MESSAGE_FONT_COLOR WHITE +
|THEMENAME Steel Blue
DROP CURSOR c2
DECLARE c2 CURSOR FOR SELECT yesno,firstname,patemail FROM memail +
WHERE yesno = 'Y' AND patemail IS NOT NULL
OPEN c2
FETCH c2 +
INTO vyesno INDICATOR vi1, vfname INDICATOR vi1, vpatemail +
INDICATOR vi1
WHILE SQLCODE <> 100 THEN
SET VAR vbody TEXT = ('Hi '&.vfname +.vreturn + .vemailmess + +
(CHAR(013)) )
SET VAR vparameters = (.vquote +'vResult' +.vpipe + +
'To: '+.vpatemail + .vpipe + +
'Subject:'+ .vdrname & .vsubject + .vpipe + +
'Body: '+.vbody + .vquote)
PLUGINS mapimail4.rbl &vparameters
FETCH c2 +
INTO vyesno INDICATOR vi1, vfname INDICATOR vi1, vpatemail +
INDICATOR vi1
ENDWHILE
DROP CURSOR c2
