Foros del Web » Programando para Internet » ASP Clásico »

problema enviado mails

Estas en el tema de problema enviado mails en el foro de ASP Clásico en Foros del Web. Hola, estoy utilizando un simple sistema de boletín de noticias "myNewsletter version 1.1.2" con bases de datos Access, la conexion con la base de datos ...
  #1 (permalink)  
Antiguo 15/06/2007, 05:35
Avatar de Maycol  
Fecha de Ingreso: diciembre-2001
Ubicación: Ávila (España)
Mensajes: 539
Antigüedad: 22 años, 4 meses
Puntos: 0
problema enviado mails

Hola, estoy utilizando un simple sistema de boletín de noticias "myNewsletter version 1.1.2" con bases de datos Access, la conexion con la base de datos va genial, pero el envio de emails no funciona, por ejemplo al intentar suscribirme me lanza este error:
Cita:
error '80070003'

/newsletter/subscribeNewsletter.asp, línea 49
Y bueno la linea 49 corresponde con: "newMailObj.send", os pongo algo mas de código:
Código:
set newMailObj =  server.createObject("CDONTS.NewMail")
		newMailObj.BodyFormat = 1
	   newMailObj.MailFormat = 0
		
		newMailObj.from = "no-reply@"&replace(DomainName, "www.", "")
		newMailObj.to = Email
		newMailObj.subject = CompanyName & " Newsletter Signup Confirmation."
		newMailObj.body = Message & Signature
		newMailObj.send
		set newMailObj = nothing
Saludos!

PD: el servidor es arsys
  #2 (permalink)  
Antiguo 15/06/2007, 05:51
Avatar de Maycol  
Fecha de Ingreso: diciembre-2001
Ubicación: Ávila (España)
Mensajes: 539
Antigüedad: 22 años, 4 meses
Puntos: 0
Re: problema enviado mails

al parecer no se puede usar CDONTS en arsys lo cambie a ASPemail y lo deje asi nose si esta bien del todo, pero me da error "Fallo en la Conexión Connection timed out."

Código:
Set Mail = Server.CreateObject("Persits.MailSender")
		Mail.host = "smtp.MIDOMINIO.com"
		
		Mail.from = "no-reply@"&replace(DomainName, "www.", "")
		Mail.addAddress Email
		Mail.Subject = CompanyName & " Newsletter Signup Confirmation."
		
		Mail.Body = Message & Signature
		On Error Resume Next
		Mail.Send
		Set Mail = Nothing
		If Err <>0 then
		   Response.Write "Fallo en la Conexión " & Err.Description
		End if

Última edición por Maycol; 15/06/2007 a las 06:05
  #3 (permalink)  
Antiguo 15/06/2007, 13:06
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 2 meses
Puntos: 88
Re: problema enviado mails

empecemos desde 0(cero), que sistema operativo tienes???

en caso de XP
Código PHP:
<&#37;
response.Write "preparando para enviar<br/>"

dim obj
Set obj
=Server.CreateObject("CDO.Message")

obj.From="[email protected]"
obj.To="[email protected]"

obj.Subject="Mas pruebas de correos mediante CDO del IIS"

obj.HtmlBody="prueba de envio de 4 imagenes<br />"

obj.Send

set obj
=nothing
response
.Write "enviado..."

%> 

el codigo anteriormente puesto esta actualmente funcionando, solo recuerda que los envios se iran directamente a la carpeta de SPAM en yahoo o NO DESEADOS en HOTMAIL debido a que esos servidores (nuestros), no estan debidamente registrados en internet

suerte
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:30.