Envio de un formulario un mail
Publicado por Diego Encinas (1 intervención) el 07/12/2006 20:04:09
Buenas Tardes con todos, spero q me puedan ayudar con un problema q tengo al momento q quiero mandar un formulario a un mail...este es el codigo q tengo...en la pagina ASP
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html;charset=iso-8859-1">
<TITLE>CDONTSMail</TITLE>
<%
Sub Write(strWriteThis)
'Esta subrutina registra todo
'lo que se le indique.
response.write(strWriteThis & "<br>")
end sub
%>
</HEAD>
<BODY>
<%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
'Las siguientes asignaciones de variables no son necesarias
'sólo están aquí para facilitar la interpretación de la línea
'myCDONTSMail.Send. Puede poner las instrucciones
'Request.Form en la línea .Send para reducir
'la cantidad de código del archivo.
strFrom=request.form("txtDe")
strTo=request.form("txtPara")
strSubject = request.form("txtAsunto")
strBody=request.form("txtMensaje")
lngImportance = request.form("optImportancia")
'Las cuatro líneas de código siguientes son sólo
'de prueba para ver las variables que se han incluido desde el
'formulario HTM.
Write("strFrom = " & strFrom)
Write("strTo = " & strTo)
Write("strSubject = " & strSubject)
Write("strMessage = " & strBody)
Write("Importance = " & lngImportance)
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
Set myCDONTSMail = Nothing
Write "Correo enviado."
%>
</BODY>
</HTML>
y weno al momento q lo ejecuto me sale el sgte mensanje de error:
Error de Microsoft VBScript en tiempo de ejecución error '800a01ad'
El componente ActiveX no puede crear el objeto: 'CDONTS.NewMail'
/prueba/CDONTSMail.asp, línea 47
y weno hasta dond tengo entendido y e podido investigar, el error se produce porq no cuento con el objeto CDONTS.NewMail no lo tengo instalado...pero en el Visual Interdev que es el programa dond lo estoy desarrollando hay una pestaña q se llama objetos del servidor y hay una opcion q se llama CDONTS NEWMAIL y weno al darle doble click me aparece el sgte codigo en mi codigo fuente
<OBJECT RUNAT=server PROGID=CDONTS.NewMail id=OBJECT1> </OBJECT>
y weno no se como que hacer con ese codigo....
no se si uds. me podrian ayudar a decirme en q lugar dbd ir ese codigo o no se como utilizarlo...
d antemano les agradesco su tiempo...
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html;charset=iso-8859-1">
<TITLE>CDONTSMail</TITLE>
<%
Sub Write(strWriteThis)
'Esta subrutina registra todo
'lo que se le indique.
response.write(strWriteThis & "<br>")
end sub
%>
</HEAD>
<BODY>
<%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
'Las siguientes asignaciones de variables no son necesarias
'sólo están aquí para facilitar la interpretación de la línea
'myCDONTSMail.Send. Puede poner las instrucciones
'Request.Form en la línea .Send para reducir
'la cantidad de código del archivo.
strFrom=request.form("txtDe")
strTo=request.form("txtPara")
strSubject = request.form("txtAsunto")
strBody=request.form("txtMensaje")
lngImportance = request.form("optImportancia")
'Las cuatro líneas de código siguientes son sólo
'de prueba para ver las variables que se han incluido desde el
'formulario HTM.
Write("strFrom = " & strFrom)
Write("strTo = " & strTo)
Write("strSubject = " & strSubject)
Write("strMessage = " & strBody)
Write("Importance = " & lngImportance)
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
Set myCDONTSMail = Nothing
Write "Correo enviado."
%>
</BODY>
</HTML>
y weno al momento q lo ejecuto me sale el sgte mensanje de error:
Error de Microsoft VBScript en tiempo de ejecución error '800a01ad'
El componente ActiveX no puede crear el objeto: 'CDONTS.NewMail'
/prueba/CDONTSMail.asp, línea 47
y weno hasta dond tengo entendido y e podido investigar, el error se produce porq no cuento con el objeto CDONTS.NewMail no lo tengo instalado...pero en el Visual Interdev que es el programa dond lo estoy desarrollando hay una pestaña q se llama objetos del servidor y hay una opcion q se llama CDONTS NEWMAIL y weno al darle doble click me aparece el sgte codigo en mi codigo fuente
<OBJECT RUNAT=server PROGID=CDONTS.NewMail id=OBJECT1> </OBJECT>
y weno no se como que hacer con ese codigo....
no se si uds. me podrian ayudar a decirme en q lugar dbd ir ese codigo o no se como utilizarlo...
d antemano les agradesco su tiempo...
Valora esta pregunta
0