Hola,
tengo un problemita con un form dado que mi servidor solo acepta CDOSYS y no le encuentro la vuelta
El formulario me gestiona y me llega, pero en la direccion de correo del visitante repite mi direccion de correo.
Copio el codigo a ver si me pueden ayudar donde este el error (lo que esta en negritas puede ser donde este la falla)
Muchas gracias
------------------------------------------------
<%@ Language=VBScript %>
<%
'Variables Recibidas desde el formulario
Nombre = Request.Form("txtNombre")
Apellido = Request.Form("txtApellido")
EmailHacia = "[email protected]" 'Request.Form("txtEmail")
Comentarios = Request.Form("txtComentarios")
Accion = Request.Form("txtAccion")
'Ingrese la cuenta de correo desde donde se envia el mismo.
EmailDesde = "[email protected]"
'Ingrese la cuenta de correo a la cual desea enviar una copia.
EmailCopia = ""
'Ingrese la cuenta de correo a la cual desea enviar una copia oculta.
EmailCopiaOculta = ""
'Ingrese el asunto del correo a enviar
Asunto = "Formulario de Prueba"
'Ingrese el contenido del correo en formato texto o HTML.
CuerpoMensaje = "<html><body>Nombre : " & Nombre & "<br>Apellido : " & Apellido & "<br>Email : " & EmailHacia & "<br>Comentarios : " & Comentarios & "</body></html>"
'Ingrese un mensaje de exito al enviar el correo, para mostrar despues del envio
MensajeEnvioExistoso = "<center>Gracias por contratar nuestros servicios.</center>"
'Ingrese un mensaje de error en caso de que el código de validación ingresado sea incorrecto.
MensajeCodigoNoValido = "<center>ATENCION : El código de validación ingresado es incorrecto. Por favor intente enviar el formulario nuevamente <a href='javascript:window.history.back()'>Cliqueando Aqui</a>.</center>"
if Accion="Enviar" then
if ucase(Request.Form("txtCode"))=Session("Code") then
Session("Code")= ""
On Error Resume Next
Set objEMail = Server.CreateObject("CDO.Message")
objEMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.midominio.com" 'Servidor SMTP
objEMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" 'Usuario SMTP
objEMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "miclave" 'Password SMTP
objEMail.Configuration.Fields.Update
'email del destinatario
objEMail.To = EmailHacia
objEMail.CC = EmailCopia
objEMail.BCC = EmailCopiaOculta
'email desde donde se realiza el envio
objEMail.From = EmailDesde
'Ingrese el asunto del correo
objEMail.Subject = Asunto
'Ingrese el texto o el contenido HTML del correo
objEMail.HTMLBody = CuerpoMensaje
'Enviar el Correo
objEmail.Send
Set objEmail = Nothing
if Err="0" then
'Mensaje despues del envio
strMessage = MensajeEnvioExistoso
else
'Mensaje de error en caso de un error en el envio del formulario
strMessage = Err.Description & Err.number
end if
else
'Mensaje de error en caso de que el código de validación ingresado sea incorrecto.
strMessage = MensajeCodigoNoValido
end if
end if
%>
