Así debería funcionar si tu servidor SMTP permite relay:
Código:
<%
Dim strTo, strSubject, strBody
Dim objCDOMail
strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"
strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = strSubject
objMessage.Sender = request.form("email")
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
set objmessage=nothing
%>
si no te permite relay, prueba a poner en llinea del .sender un correo cualquiera con el dominio que tengas activo en el servidor SMTP. osea, que si el dominio es dominio.com, pongas
objMessage.Sender = "
[email protected]"
y la direccion del usuario la metes en el cuerpo del mensaje, como la tienes
o puedes ponerlo mas cómodo para tí poniendo al final del mensaje un
<a href="mailto:<%=Request.Form("mail")">Responder el mensaje</a>