2. ASPRunnerPro General questions
  3. Send mass email to all users
This topic is locked

Send mass email to all users

 		9/23/2009 10:44:26 AM
ASPRunnerPro General questions
P
 Philip author

Hi
In the HELP file I found the example "Send mass email to all users".

Unfortunately I'm not able to make it running.
I put the code on the LIST page to the BEFORE PROCESS event.
I replaced in "set data = dal..QueryAll()" users with my actual table name.

I replace in "rmail("to")=data("[color="#FF0000"]email")" with my field name e.g. rmail("to")=data("M_MS_Email")
As a result I get the following error:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'dal.Massmail'

/..../include/Massmail_events.asp, line 76
Who can help me with this?
Philip
J
 		Jane 9/24/2009

Philip,
I recommend you to publish your project on Demo Account and open a ticket at http://support.xlinesoft.com sending a URL to your pages along with instructions on reproducing this error.
P
 		Philip author 9/26/2009

Jane,
I changed my code to this (works fine):
Response.Flush

set data = dal.Massmail.QueryAll()

while not data.eof
'** Send simple email ****
dim tmpDict

set tmpDict = CreateObject("Scripting.Dictionary")

tmpDict("to")=data("Email")

tmpDict("subject")="Sample subject"

tmpDict("body")="Hello there" & vbcrlf & "Best regards"

set ret=runner_mail(tmpDict)

if not ret("mailed") then

response.write ret("message")

end if

data.MoveNext
wend
Philip