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