| Pregunta: | 17699 - ERROR CON CDONTS |
| Autor: | Catherine Reyes |
| Hola:
Estoy trabajando con el objeto CDONTS y todo impecable hasta cuando quise enviar el mail, entonces me genero un error en la linea de enviar el mail. El error es el siguiente: "The system cannot find the path specified. " Set mailobj = Server.CreateObject("CDONTS.NewMail") mailobj.mailFormat = 0 mailobj.bodyFormat = 0 mailobj.from = "[email protected]" mailobj.to = "[email protected]" mailobj.subject = "Prueba" mailobj.body = "Esta es una prueba" mailobj.send ' Aqui se cae set mailobj = Nothing Alguien sabe como solucionar esto.... Muchas gracias. | |
| Respuesta: | ana ana |
| Para poder enviar un correo con CDONTS, debes tener instalado el IIS sobre un equipo NT SERVER. El iis instalado sobre 95 o nt workstation es solo un parte del servidor web. En otras cosas, el envio de correo esta deshabitado en iis instalados en otras máquinas no nt server. Puede ser que ese sea tu problemas. | |
| Respuesta: | César Ornelas |
| Este es un pequeño scritp que manda email desde tu página, tambien funciona con PWS, solo agrega este código dentro del BODY de la página. El código lo puse en 3 partes para k identifiques como funciona. Si no llega a funcionar por algun error de dedo, fijate en la ultima funcion (SENDMAIL), alli todo es funcional y puedes reemplazar las variables txt... por string por ejemplo txtFrom lo puedes remplazar por una direccion "[email protected]". Pero creo k si es funcional el script...
<% If request.form.count = 0 then Call Normal Else Call SendMail End if %> <%Function Normal %> <form name="form1" method="post" action=""> <p> </p> <table width="27%" border="0"> <tr> <td width="40%">From:</td> <td width="60%"> <input type="text" name="txtFrom"> </td> </tr> <tr> <td width="40%">To:</td> <td width="60%"> <input type="text" name="txtTo"> </td> </tr> <tr> <td width="40%">Subject:</td> <td width="60%"> <input type="text" name="txtSubject"> </td> </tr> </table> <p> <textarea name="txtBody" cols="60" rows="10"></textarea> </p> <p> <input type="submit" name="Submit" value="Enviar"> </p> </form> <%End Function%> <% Function SendMail Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form ("txtFrom") myMail.To = Request.Form ("txtTo") myMail.Subject = Request.Form("txtSubject") myMail.Body = Request.Form("txtBody") myMail.Send Set myMail = Nothing End Function Response.Write "El e-mail se mando con éxito" %> | |