Como enviar un email desde asp?

[vpino]

Señores del foro: Espero todos esten bien. mi inquietud es la siguiente: estoy desarrollando una aplicacion en asp y necesito enviar un email una vez evaluado determinadas fechas, desconozco por completo como funciona el envio de email y por ello les pido el favor me indique que necesito y que debo hacer.

cualquier informacion sera muy valiosa para mi. de antemano mil gracias por la colaboracion.

[Nelo8009]

Si quieres saber sobre ese tema búsca aquí:
http://www.desarrolloweb.com/articulos/1037.php
en esa página aparecen cosas importantes del tema.
Suerte

[05111955]

Hola, vPino

Te pase este codigo para mails en asp
OJO que solo funciona con win2000 Server o superior...
espero te sirva


<%
function SendEmail

on error resume next 'This code will only work on a Win2k server.
Dim iMsg,iConf,Flds, TextoCuerpo, Cli_Mail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
' assume constants are defined within script file
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 90
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxx.xxx" ' aca pone el smtp server saliente
.Update
End With

With iMsg
Set .Configuration = iConf
.To = "[email protected]" 'mail a donde se envia
.From = "[email protected]" 'mail de quien lo envia
.Subject = "Novedades"
' .TextBody = "mensaje" 'para enviar solo texto
.htmlBody = "mensaje" 'para enviar html
.Send
End With
if err0 then
Response.write("Algo ha fallado")
else
Response.write("Parece que funciona")
end if

end function
%>

[vpino]

mil gracias 05111955 por ayudarme, revisare el codigo y mas adelante te cuento sobre los resultados obtenidos. nuevamente te agradezco la colaboracion.