Hola señores. estoy intentando enviar emails atraves de asp. pero la verdad no se nada en absoluto. buscando en el foro encontre un codigo pero no me fucniona. y no se que tiene de malo porque al correr el programa no se muestra nada en la pantalla. ejecute una rutina (tambien expuesta en el foro) y dice que esta instaldo CDOSYS (ISS 5/5.1/6).
espero me colaboren con algo.
<%
'<<<>>> Funcion de envio de mails <<<>>>
function SendEmail
on error resume next
Dim iMsg,iConf,Flds, TextoCuerpo, Cli_Mail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "201.130.2.58" 'aca va el server de salida
.Update
End With
With iMsg
Set .Configuration = iConf
To ="
[email protected]" ' el mail del destinatario
.From = "
[email protected]" 'el mail de evio
.Subject = "Novedades "
' .TextBody = mensaje 'en modo texto
.htmlBody = mensaje 'en modo html
.Send
End With
response.write("se envio")
end function
%>
mil gracias.
