Hola de nuevo weno buscando un poco mas a fondo me di con la sorpresa q si hay forma pero en la mayoria de las paginas q hablan del tema solo dan el codigo pero incompleto .. bueno sin mas ni mas aka les dejo el codigo posteado anteriormente.. ya q no conocia como se llamaba la libreria
Código ASP:
Ver original<%
if (Request.Form()<>"") then
Dim Mail, Config
Set Mail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
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
Mail.To = Request.Form("email")
Mail.Subject = Request.Form("asunto")
Mail.HTMLBody = Request.Form("mensaje")
Mail.Send()
Set Mail = Nothing
Response.Write("E-mail enviado correctamente")
else %>
<form name="formail" method="post" action="sendmail.asp">
<table align="center" cellpadding="3" cellspacing="1">
<tr><td>Email: </td>
<td><input type="text" name="email" /></td> </tr>
<tr><td>Asunto: </td>
<td><input type="text" name="asunto" /></td> </tr>
<tr><td>Mensaje: </td>
<td><textarea name="mensaje"></textarea></td> </tr>
<tr><td colspan="2" align="center">
<input type="submit" value=" Enviar " name="ok"> </td> </tr>
</table>
</form>
<% end if %>
PD:si no tienen la libreria descargenla y registrenle saludos