image
Inicio » Foros » ASP

ASP

Problema al crear objeto cdo.Message

Volver al foro | Responder | Añadir nuevo tema


De: sisuka
Fecha: 07/04/2006
Mensaje:

Hola,
el siguiente código me deja de rular justo cuando llega a la línea:
Set myMail=CreateObject("cdo.Message")

¿alguien sabe por qué?

El código entero es:

 Function Enviar(lista_email)    
        Document.Write("Enviando...")
  Document.Write(lista_email)
  Set ArrayEmails = CreateObject("Scripting.Dictionary")
  ArrayEmails = Split(lista_email, ";")


  txtMensaje = "Prueba"
  txtSubject = "Prueba"
  
  Set myMail=CreateObject("cdo.Message")
    
        myMail.Subject = txtSubject
  myMail.From="miCorreo"
  myMail.Configuration.Fields.Item _
  ("schemas.xxxx.xxx") = 2

  'Name or IP of remote SMTP server'
  myMail.Configuration.Fields.Item _
  ("schemas.xxxx.xxx") _
  ="xx.xxx.es"
  'Server port'
  myMail.Configuration.Fields.Item _
  ("schemas.xxxx.xxx") _
  =25   
  myMail.Configuration.Fields.Update
  myMail.TextBody = txtMensaje
  for k=0 to 3000
   Document.Write("Enviando a: " & ArrayEmails(k) & "...")  
   myMail.To=ArrayEmails(k)
   myMail.Send
  next
  set myMail=nothing
  
     End function


No tengo ningún fallo en la configuración del correo puesto que esto mismo me funciona en otro programa perfectamente...
Gracias! saludos




Volver al foro | Responder | Añadir nuevo tema

Quizás le interese:

WebEstilo.com no se hace responsable de las opiniones que los usuarios puedan verter en cualquiera de los foros existentes.

Si te solucionó el problema pulsa en G+1


Gracias!






Comparte



Última modificación:31 de Agosto de 2017. Spain - Espa�a.
© 1998-2004 por . Todos los derechos reservados.