ENVIO DE CORREO A TRAVÉS DE CDONTS

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.
>
>

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.

aqui tengo un codigo de ejemplo, que me adjunta una plantilla depronto,
adaptelo a mi me funciona correctamente, pero con el servidor de salida
correctamente configurado y el componente CDONT, instalado..
suerte

Function SendMail(sFrom,sTo,sBcc,sSubject,sBody,parametro,plant,area)
'response.write sBcc
'' response.write sBcc
' Dim Mail
' Set Mail = CreateObject("CDONTS.NewMail")
' 'Mail.To= ""'sTo
' Mail.From= sFrom
' 'Mail.Cc=""
' Mail.Bcc= sBcc
' Mail.Subject= sSubject
'
' Const Request_POST = 1
' Const Request_GET = 2
' Set xobj = CreateObject("SOFTWING.ASPtear")
' strRetval xobj.Retrieve("http://www.aleriant.com/correo/plan...?accion=Mo
strar&CodMail="&parametro&"&area="&area&"", Request_GET, "", "", "")
' Mail.BodyFormat = 0
' Mail.MailFormat = 0
'
' Mail.Body = "<a
href='http://www.aleriant.com/correo/plan...ar&Cod
Mail="&parametro&"&area="&area&"'>Si no puede observar este mensaje
correctamente, por favor haga click aquí</a><br>" & strRetval
' 'Mail.Body = "<a
href='http://www.camaramed.org.co/correo/...on=Mostrar
&CodMail="&parametro&"'>Si no puede observar este mensaje correctamente, por
favor haga click aquí</a><br>" '& strRetval
' Mail.Send
' Set Mail = nothing
' Set xobj = nothing
SendMail = "True"

End Function






"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.