Estuve haciendo pruebas:
Tengo este codigo por ahora, que ni siquiera me carga y me tira errores:
Código HTML:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
function enviaEmail(para,cc,desde,asunto,mensaje,servidor)
on error resume next
enviaEmail = false
dim objCDO,objCDOConfig,objFields
Set objCDO = CreateObject("CDO.Message")
Set objCDOConfig *= CreateObject("CDO.Configuration")
Set objFields * *= objCDOConfig.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mi mail"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "la clave"
.Update
End With
With objCDO
.Configuration *= objCDOConfig
.To = para
if cc <> false then
.cc = cc
end if
.From = desde
.Subject = asunto
.TextBody = mensaje
.Send
End With
Set objFields = Nothing
Set objCDO = Nothing
Set objCDOConfig = Nothing
if err.number = 0 then
enviaEmail = true
else
enviaEmail = err.description
end if
on error goto 0
end function
%>
<script language="JavaScript">function enviar(){Contacto.submit();}</script>
<form action="email.asp" method="post" name="Contacto">
<span>Nombre:</span><input name="nombre" type="text" maxlength="25">
<span>Email:</span><input name="email" type="text" maxlength="250">
<br>
<br>
<a href="enviaEmail([email protected],[email protected],[email protected],"gran asunto","Este es una prueba de correo","mail.midominio.com")">ENVIAR</a>
</form>
</body>
</html> Como lo puedo ir arreglando ?
Es bastante complicado esto de mandar un email desde un formulario autenticicado... ajajaj igualmente gracias a los que puedan ayudarme.
Saludos
