Enviar Mail

[jair20x]

hola quisiera saber como enviar un correo por medio de Asp ,e visitado varias paginas donde hay ejemplos con el componente CDonts pero no funcionan
espero me puedan ayudar

[monkyta]

Aca te mando un ejemplo que funciona muy bien ; eso si que utiliza un servidor SMTP remoto en donde tengo mi cuenta de correo; ya que no tengo configurado en mi PC un Server SMTP.

Estas 2 lineas se cambian asi para server local SMTP
.Item(cdoSendUsingMethod) = 1
.Item(cdoSMTPServer) = "127.0.0.1" o "local"

<!--
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) = "tuserverSMPTremotovaaca"
.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
%>