Ayuda! MAIL.ADDCC

Hola quiero hacer una aplicacion quie mande un correo a varios

con copia de carbon (CC).

Tengo un problemita: Porque me dice que los destinatarios estan mal??

Persits.MailSender.4 error '800a0006'
501 Bad address syntax



set mail = server.createObject("Persits.MailSender")
mail.ishtml = True
mail.host = "smtp.x.com"
mail.Port = 25
Mail.From = request.form("nombre")
Mail.FromName = "x"


Mail.from = "" (es correcta)


texto=request.form("texto")
titulo=request.form("titulo")
correos=request.form("correos")
{correos contiene

enlace=cstr(request.form("link"))

mail.Subject = titulo
bodys = bodys & "<br><br><br>Pulsa este enlace para saber mas: <a href="""

link & """>AQUI.</a>"

Do
NextComma = InStr(correos, ",")
If NextComma = 0 Then
Mail.AddAddress Trim(correos)
Exit Do
End If

Address = Left(correos, NextComma - 1)
address = address
Mail.AddCC Trim(Address)
correos = Mid(correos, NextComma + 1)
Loop

mail.body = bodys

mail.send

Con los componentes de correo que yo he usado debes agregar 1 solo correo
a
la vez por cada metodo Add().
Yo haría algo como:

correos=request.form("correos")
separador = ","
aCorreos = split( correos , separador )
' lo anterior crea un vector de correos

for i=lbound(aCorreos) to ubound(aCorreos)
Mail.AddAddress = aCorreos(i)
Mail.AddCC = aCorreos(i)
response.write "<br>" & aCorreos(i) ' para ver que estas tratando de
enviar
next

Salu2
MV


"JimmySlam" wrote in message
news:

Hola quiero hacer una aplicacion quie mande un correo a varios

destinatarios

con copia de carbon (CC).

Tengo un problemita: Porque me dice que los destinatarios estan mal??

Persits.MailSender.4 error '800a0006'
501 Bad address syntax



set mail = server.createObject("Persits.MailSender")
mail.ishtml = True
mail.host = "smtp.x.com"
mail.Port = 25
Mail.From = request.form("nombre")
Mail.FromName = "x"


Mail.from = "" (es correcta)


texto=request.form("texto")
titulo=request.form("titulo")
correos=request.form("correos")
{correos contiene

{,,,,,,,
om}}

enlace=cstr(request.form("link"))

mail.Subject = titulo
bodys = bodys & "<br><br><br>Pulsa este enlace para saber mas: <a
href="""

&

link & """>AQUI.</a>"

Do
NextComma = InStr(correos, ",")
If NextComma = 0 Then
Mail.AddAddress Trim(correos)
Exit Do
End If

Address = Left(correos, NextComma - 1)
address = address
Mail.AddCC Trim(Address)
correos = Mid(correos, NextComma + 1)
Loop

mail.body = bodys

mail.send

Postea el codigo completo e indica donde da el error exactamente.
Salu2
MV