Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

ENVIO DE CORREO A TRAVÉS DE CDONTS

02/02/2004 - 18:41 por Josep | Informe spam
Ayuda Hacer una pregunta
Hola compañeros,

tengo un windows 2000 server con exchange 2000 montado. El problema es que
he creado una pequeña aplicación interna con ASP con la que pongo código
para mandar un mail y después de depurarlo de varios errores de permisos he
conseguido que no me de ningún error, sin embargo el mail no me lo manda. El
código es el siguiente:

Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From=administrador@es.conitex.com
mail.To= informatica@es.conitex.com
mail.Subject = "Incidencia nueva abierta"
mail.Body= "Tipo de problema"
On Error Resume Next
mail.Send
If Err <> 0 Then
Response.Write "Error: " & Err.Description
End If

Esta es la rutina pero no me manda el correo y no me da ningún mensaje.
Alguien me puede ayudar?

Gracias de antemano.
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Luis Esteban Valencia
02/02/2004 - 19:06 | Informe spam
Ese servidor es el mismo servidor de correo?

De lo contrario tendras que configurar en el IIS del servidor donde esta la
pagina, a través de lasopciones avanzadas del servidor de correo


"Benjamin Porter" escribió en el mensaje
news:%
Veo que faltan las comillas en el from y el to:

mail.from=""
mail.To=""

Además, agregaría

mail.mailformat=0
mail.bodyformat=0 (si es html)
mail.bodyformat=1 (si es texto)


Atentamente
_____________________
Benjamin Porter

(Evidentemente sin el ".punto")





"Josep" escribió en el mensaje
news:
> Hola compañeros,
>
> tengo un windows 2000 server con exchange 2000 montado. El problema es


que
> he creado una pequeña aplicación interna con ASP con la que pongo código
> para mandar un mail y después de depurarlo de varios errores de permisos
he
> conseguido que no me de ningún error, sin embargo el mail no me lo


manda.
El
> código es el siguiente:
>
> Set mail = Server.CreateObject("CDONTS.NewMail")
> mail.From=
> mail.To=
> mail.Subject = "Incidencia nueva abierta"
> mail.Body= "Tipo de problema"
> On Error Resume Next
> mail.Send
> If Err <> 0 Then
> Response.Write "Error: " & Err.Description
> End If
>
> Esta es la rutina pero no me manda el correo y no me da ningún mensaje.
> Alguien me puede ayudar?
>
> Gracias de antemano.
>
>


Preguntas similares

 

Busqueda sugerida :