Código:
<%
'Modificar este valor con su direccion de correo a la que se enviara el formulario
var_destinatario = "[email protected]"
'No es necesario modificar el codigo restante
'Creacion de variables para almacenar los campos del formulario
var_nombre = Request.Form("nombre")
var_correo = Request.Form("correo")
var_empresa = Request.Form("empresa")
var_telefono = Request.Form("telefono")
var_asunto = Request.Form("asunto")
var_comentarios = Request.Form("comentarios")
'Creacion del cuerpo del mensaje
var_mensaje = "Mensaje enviado desde el formulario web: " & nombre & chr(10) & chr(10)_
& "Nombre: " & var_nombre & chr(10)_
& "Empresa: " & var_empresa & chr(10)_
& "Telefono: " & var_telefono & chr(10)_
& "Correo Electronico: " & var_correo & chr(10) & chr(10)_
& "Asunto: " & var_asunto & chr(10)_
& "Comentarios: " & var_comentarios
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = var_asunto
objMessage.Sender = var_nombre & "<" & var_correo & ">"
objMessage.To = var_destinatario
ObjMessage.HTMLBody =var_mensaje
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP"
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
%>
Acuerdate de poner tu servidor SMTP