Ayuda! MAIL.ADDCC

15/06/2005 - 14:31 por JimmySlam | Informe spam
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 = "x@x.x" (es correcta)


texto=request.form("texto")
titulo=request.form("titulo")
correos=request.form("correos")
{correos contiene
{1@1.es,2@2.es,4@4.es,7@7.es,9@9vip.es,11@11vip.es,10@10.es,blabla@hotmail.com}}
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
 

Leer las respuestas

#1 Manuel Vera
15/06/2005 - 15:36 | Informe spam
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


Preguntas similares