reply to en CDO.

[pepelucho]

Holas tengo este codigo, tengo un campo email el cual quisiera q cuando reciban este correo puedan hacerle click al email y puedan responderlo...Como podria hacerlo??
Aqui el codigo
<%
nombre=request.Form("nombre")
email=request.Form("email")
consulta=request.Form("consulta")
'*************************************
Set ObjMensaje = Server.CreateObject("CDO.Message")
ObjMensaje.from = "[email protected]" 'correo que envia
ObjMensaje.To = "[email protected]" ' a donde debe llegar el correo
ObjMensaje.Subject = "Tienes un mensaje desde la web" ' titulocuenta de correo quien lo recibe
cad1="Nombre: " & nombre
cad2="Email: " & email
cad3="Consulta: " & consulta
ObjMensaje.TextBody = cad1 & Vbcrlf & cad2 & Vbcrlf & cad3
ObjMensaje.Send()
Set ObjMensaje = Nothing
%>

[RootK]

No recuerdo bien pero creo que puedes utilizar ésto:

ObjMensaje.Value("Reply-To") = "[email protected]"

Salu2