Enviar un Mail con Asp

[tomchat]

Tengo una pequeña duda; estoy trabajando en una maquina XP Professional, la cual posee un componente CDO con conexion a Internet por medio de una LAN. Es posible enviar mail por asp. No se como configurar el sistema ya que genera una error al momento de enviar el mail.

Codigo:

Set Config = Server.createObject ("CDO.Configuration")
Set Mail = Server.CreateObject ("CDO.Message")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.midominio.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Set myMail=CreateObject("CDO.Message")
myMail.Subject = asunto
myMail.From = origen
myMail.To="[email protected]"
myMail.TextBody = mensaje
myMail.Send
set myMail=nothing

[monkyta]

Necesitas cambiar mail.midominio.com por la direccion de tu Correo saliente (SMTP) que estes usando....
Si tienes configurado tu cliente Outlook ; debes verlo en Opcion Cuentas--> Propiedades --> Servidor .... aca debes revisar que direccion tiene el SMTP; y con esta misma direccion puede probar cambiandolo en tu programa

[tomchat]

monkyta:
En el caso que este trabajando con el iss como creo un dominio y configuro este para enviar. Pero lo unico que necesito es enviar el mail, necesariamente necesito un dominio o lo puede hacer con una cuenta externa.

[monkyta]

Yo uso una cuenta externa.... no tiene porque ser tu propio dominio..... y funciona muy bien.... intentalo asi, usando tu servidor SMTP en donde tengas servicio y veras que sirve ...

Suerte

[tomchat]

monkyta :
Si no es mucho abusar me puede pasar ese codigo.

Ah dimo necesariamente tengo que tener el servico SMTP. Por lo que se es va enviar mensajes que dentro de un sistema de correo y yo solo estoy haciendo una aplicación de enviar un correo dentro de mi sistema.

El usuario envia una solicutud ingresando su nombre, correo y comentario. Para despues enviar toda la información a una cuenta externa EJ. una cuenta en yahoo.

Espero es claro. Gracias por tu tiempo

[monkyta]

tomchat este es el codigo que me funciona super bien..... yo uso mi servidor externo SMTP que tengo configurado por Outlook ..... solo debes cambiar el nombre del server y los parametros que tengo como xxxxxx y aaaaaa... el resto no cambies nada.
El parametro 2 indica que es server remoto smtp.. para local se usa 1.... pero aca hay que configurar todo el smtp en la maquina y no es necesario para mandar emails como quieres... yo lo uso asi y funciona

este es

<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
dim cdoMessage, cdoConfig
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "tuserversmtp"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "[email protected]"
.To = "[email protected]"
.Subject = "Prueba"
.TextBody = "Este es un mensaje de prueba"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

Espero te resulte