Buenas...
No se porque pero me da error en la línea del Send.
Cuando ejecuta la línea de comando myMail.Send me arroja el siguiente error:
error '80070003'
"El sistema no ha encontrado la ruta de acceso especificada."
¿Que puede ser? ya no se que hacer.
La cosa es que tengo que enviar un formulario a la dirección que seleccione el usuario y despues una autorespuesta al usuario.
No se me dijeron que lo hiciera así.
Soy novatilla.
Si pudierais ayudar.
Gracias
<%
vtipo=request.form("tipo_de_comentario")
vtema=request.form("tema")
vdepartamento=request.form("departamento")
vnombre=request.form("nombre")
vmail=request.form("email")
vtel=request.form("tel")
vfax=request.form("fax")
vrespuesta=request.form("quiere_respuesta")
if vdepartamento="comercial" then
strBody="Tipo: "&vtipo&""
strBody=strBody & "<br>"
strBody=strBody & "<br>"
strBody=strBody & "Departamento: "&vdepartamento&""
strBody=strBody & "<br>"
strBody=strBody & "Tema: "&vtema&""
strBody=strBody & "<br>"
strBody=strBody & "Nombre: "&vnombre&""
strBody=strBody & "<br>"
strBody=strBody & "Email: "&vmail&""
strBody=strBody & "<br>"
strBody=strBody & "Telefono: "&vtel&""
strBody=strBody & "<br>"
strBody=strBody & "Fax: "&vfax&""
strBody=strBody & "<br>"
strBody=strBody & "Respuesta: "&vrespuesta&""
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.from = "Hermanos Jimenez Gomez"
mailobj.to = "[email protected]"
mailobj.subject = "Hermanos Jimenez Gomez"
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body = strBody
mailobj.Send
set mailobj=nothing
Set mailobj=Server.CreateObject("CDONTS.NewMail")
mailobj.from = "[email protected]"
mailobj.to = vemail
mailobj.subject ="nombre: "&vnombre&""
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body= "Hemos recibido su formulario correctamente. Gracias"
mailobj.Send
set mailobj=nothing
else if vdepartamento="tecnico" then
strBody="Tipo: "&vtipo&""
strBody=strBody & "<br>"
strBody=strBody & "<br>"
strBody=strBody & "Departamento: "&vdepartamento&""
strBody=strBody & "<br>"
strBody=strBody & "Tema: "&vtema&""
strBody=strBody & "<br>"
strBody=strBody & "Nombre: "&vnombre&""
strBody=strBody & "<br>"
strBody=strBody & "Email: "&vmail&""
strBody=strBody & "<br>"
strBody=strBody & "Telefono: "&vtel&""
strBody=strBody & "<br>"
strBody=strBody & "Fax: "&vfax&""
strBody=strBody & "<br>"
strBody=strBody & "Respuesta: "&vrespuesta&""
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.from = "Hermanos Jimenez Gomez"
mailobj.to = "[email protected]"
mailobj.subject = "Hermanos Jimenez Gomez"
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body = strBody
mailobj.Send
set mailobj=nothing
Set mailobj=Server.CreateObject("CDONTS.NewMail")
mailobj.from = "[email protected]"
mailobj.to = vemail
mailobj.subject ="nombre: "&vnombre&""
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body= "Hemos recibido su formulario correctamente. Gracias"
mailobj.Send
set mailobj=nothing
else if vdepartamento="produccion" then
strBody="Tipo: "&vtipo&""
strBody=strBody & "<br>"
strBody=strBody & "<br>"
strBody=strBody & "Departamento: "&vdepartamento&""
strBody=strBody & "<br>"
strBody=strBody & "Tema: "&vtema&""
strBody=strBody & "<br>"
strBody=strBody & "Nombre: "&vnombre&""
strBody=strBody & "<br>"
strBody=strBody & "Email: "&vmail&""
strBody=strBody & "<br>"
strBody=strBody & "Telefono: "&vtel&""
strBody=strBody & "<br>"
strBody=strBody & "Fax: "&vfax&""
strBody=strBody & "<br>"
strBody=strBody & "Respuesta: "&vrespuesta&""
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.from = "Hermanos Jimenez Gomez"
mailobj.to = "[email protected]"
mailobj.subject = "Hermanos Jimenez Gomez"
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body = strBody
mailobj.Send
set mailobj=nothing
Set mailobj=Server.CreateObject("CDONTS.NewMail")
mailobj.from = "[email protected]"
mailobj.to = vemail
mailobj.subject ="nombre: "&vnombre&""
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body= "Hemos recibido su formulario correctamente. Gracias"
mailobj.Send
set mailobj=nothing
else if vdepartamento="calidad" then
strBody="Tipo: "&vtipo&""
strBody=strBody & "<br>"
strBody=strBody & "<br>"
strBody=strBody & "Departamento: "&vdepartamento&""
strBody=strBody & "<br>"
strBody=strBody & "Tema: "&vtema&""
strBody=strBody & "<br>"
strBody=strBody & "Nombre: "&vnombre&""
strBody=strBody & "<br>"
strBody=strBody & "Email: "&vmail&""
strBody=strBody & "<br>"
strBody=strBody & "Telefono: "&vtel&""
strBody=strBody & "<br>"
strBody=strBody & "Fax: "&vfax&""
strBody=strBody & "<br>"
strBody=strBody & "Respuesta: "&vrespuesta&""
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.from = "Hermanos Jimenez Gomez"
mailobj.to = "[email protected]"
mailobj.subject = "Hermanos Jimenez Gomez"
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body = strBody
mailobj.Send
set mailobj=nothing
Set mailobj=Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = "[email protected]"
mailobj.to = vemail
mailobj.subject ="nombre: "&vnombre&""
mailobj.body= "Hemos recibido su formulario correctamente. Gracias"
mailobj.Send
set mailobj=nothing
else if vdepartamento="contabilidad" then
strBody="Tipo: "&vtipo&""
strBody=strBody & "<br>"
strBody=strBody & "<br>"
strBody=strBody & "Departamento: "&vdepartamento&""
strBody=strBody & "<br>"
strBody=strBody & "Tema: "&vtema&""
strBody=strBody & "<br>"
strBody=strBody & "Nombre: "&vnombre&""
strBody=strBody & "<br>"
strBody=strBody & "Email: "&vmail&""
strBody=strBody & "<br>"
strBody=strBody & "Telefono: "&vtel&""
strBody=strBody & "<br>"
strBody=strBody & "Fax: "&vfax&""
strBody=strBody & "<br>"
strBody=strBody & "Respuesta: "&vrespuesta&""
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.from = "Hermanos Jimenez Gomez"
mailobj.to = "[email protected]"
mailobj.subject = "Hermanos Jimenez Gomez"
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body =strBody
mailobj.Send
set mailobj=nothing
Set mailobj=Server.CreateObject("CDONTS.NewMail")
mailobj.from = "[email protected]"
mailobj.to = vemail
mailobj.subject ="nombre: "&vnombre&""
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body= "Hemos recibido su formulario correctamente. Gracias"
mailobj.Send
set mailobj=nothing
end if
end if
end if
end if
end if
%>
