Le muestro como genere mis códigos:
mail.asp ---> es este:
<html>
<%
Nombre= Request.Form("nom")
Empresa= Request.Form("emp")
Sugerencias= Request.Form("sug")
strTo = "
[email protected]"
strSubject = "Envio de sugerencias de: " & Nombre
strBody = "<html><body>"
strBody = strBody & "Este es un mensaje generado por el formulario:" &
"<br><br>"
strBody = strBody & "Nombre: "& Nombre &"<br>"
strBody = strBody & "Empresa: "& Empresa &"<br>"
strBody = strBody & "Sugerencias: "& Sugerencias &"<br>"
strBody = strBody & "</body></html>"
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Creación del objeto
objCDOMail.From = "
[email protected]" 'No hay problema en que sea la
misma que la anterior.
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.BodyFormat=0 objCDOMail.MailFormat=0 '
objCDOMail.Body = strBody
objCDOMail.Send 'Envía el mail
Set objCDOMail = Nothing
%>
</html>
y el otro (envia.asp):
<%
Dim strDe
Dim strPara
Dim strAsunto
Dim strMensaje
Dim objCDOMail
strDe = Request.Form("De")
strPara = Request.Form("Para")
strAsunto = Request.Form("Asunto")
strMensaje = Request.Form("Mensaje")
'Creamos una instancia del objeto NewMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = StrDe 'Pudiera ser tambien "
[email protected]"
objCDOMail.To = strPara
objCDOMail.Subject = strAsunto
objCDOMail.Body = strMensaje
objCDOMail.Send
Set objCDOMail = Nothing
%>
A ver que me dicen,
salu2