en este caso te dice que no llegan datos para enviar
o mejor dicho, no esta tomando los valores del FORM, para el correo (FROM), ahora habra que verificar que no falten algunos datos, para esto comparemos contra otros correos que se ha elaborado aki en el foro
Cita: 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") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '2 originalmente con 1 no secesitas smtpserver
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Mail.From = "
[email protected]"
Mail.To = Request.Form("email")
Mail.Subject = Request.Form("asunto")
Mail.HTMLBody = Request.Form("mensaje")
Mail.Send()
si te fijas, agregan campos como el nombre del equipo, puerto de envio etc
anexalas en fase de prueba, y verifiquemos sobre la marcha
