Sending multiple email with CDO 1

[Mighty]

Guys,

I am trying to send an email to multiple users but I don't want to just Bcc them on all the mail as some users use Hotmail and this automatically puts the email in the junk folder if you are Bcc'ed. Therefore, I set up the following code:

Dim objCDO

' Create an email object
Set objCDO = Server.CreateObject("CDONTS.NewMail&quot

' Set the generic email options
objCDO.Mailformat=0
objCDO.Bodyformat=0
objCDO.Subject = Request.Form("Subject&quot
objCDO.From = myEmail

' Send the email to each user
do while not rs.EOF
objCDO.Body = MailBody(rs("UserName&quot) line 221
objCDO.To = rs("Email&quot
objCDO.Send
Recipients = Recipients & rs("Email&quot & ", "
rs.MoveNext
loop

set objCDO = nothing

Using the Recipients variable, I can see that it is generating the email addresses correctly. However, when I run this code, it always sends the email to the first person and then fails with the following error:

error '80040108'
/intranet/admin/sendEmail.asp, line 221

Can I send emails like this using CDO?? Mise Le Meas,

Mighty

 

[link9]

Try creating and destroying the object in the loop... I've had problems before trying to replace existing information about the object, and the re-sending.


do while not rs.EOF
Set objCDO = Server.CreateObject("CDONTS.NewMail&quot

' Set the generic email options
objCDO.Mailformat=0
objCDO.Bodyformat=0
objCDO.Subject = Request.Form("Subject&quot
objCDO.From = myEmail

' Send the email to each user
objCDO.Body = MailBody(rs("UserName&quot) line 221
objCDO.To = rs("Email&quot
objCDO.Send
Recipients = Recipients & rs("Email&quot & ", "
rs.MoveNext
set objCDO = nothing
loop


paul

 

[Mighty]

Thanks Paul,

That worked a treat!! Mise Le Meas,

Mighty

 

[tim080772]

This is how I do it, feel free to hack and borrow.

Do While Not rsMail.EOF
For Each Field in rsmail.Fields
If Field.name="Guest_ID" then txtname = Field.Value
If Field.name="Guest_Email" then txtemail = Field.Value
Next
name=txtname
senderEmail=strFrom
subject=strSubject
recipient=txtemail
body=strBody
set msg=Server.CreateOBject("JMail.Message&quot
msg.Logging=true
msg.silent=true
msg.From=strEmailFrom
msg.FromName=strFrom
msg.AddRecipient recipient
msg.Subject=strSubject
strSentTo = vbcrlf&vbcrlf& "Message sent to: "&rsMail.Fields("Guest_Email&quot.Value
strSentTo = strSentTo &vbcrlf&"ID Number: "&rsMail.Fields("Guest_ID&quot.Value
strSentTo = strSentTo &vbcrlf&vbcrlf&"

http://"

&Request.ServerVariables("SERVER_NAME&quot&"/mailsend/unsubscribe.asp?ID="& rsMail.Fields("Guest_ID&quot.Value &"&Email="& rsMail.Fields("Guest_Email&quot.Value
msg.body=strBody & strSentTo
strTo=rsMail.Fields("Guest_Email&quot.Value
If strTo<>&quot;&quot;then
msg.AddRecipient strTo
if not msg.Send(strHost)then
Response.Write&quot;<font face=Arial size=2>Send Failure...Error was &quot;&msg.log&&quot; User: &quot;&strTo&&quot;</font><BR>&quot;
iFail=iFail+1
else
Response.Write&quot;<font face=Arial size=2>Message sent to: &quot;&strTo&&quot;</font><BR>&quot;
iSuccess=iSuccess+1
end if
end if
rsMail.MoveNext
Set msg=Nothing
Loop Tim Russell

http://www.russellweb.co.uk/nortel

 

[Mighty]

Tim,

One question - what does the following line do??

msg.silent=true

Is it possible to get a read/delivery notification when you send an email using CDO? Mise Le Meas,

Mighty

 

[tim080772]

The msg.silent=true is specific to the Jmail (

http://www.dimac.net)

program I use. Not sure what it does, most of the text was hacked from the included example!

Tim Russell

http://www.russellweb.co.uk/nortel