Ver Mensaje Individual
  #4 (permalink)  
Antiguo 07/01/2004, 16:50
Avatar de turco_7
turco_7
 
Fecha de Ingreso: diciembre-2003
Ubicación: Córdoba, Argentina
Mensajes: 1.044
Antigüedad: 21 años, 5 meses
Puntos: 19
perdon este es el codigo que me pasaron....


<%
casilla_destino = "[email protected]"
'Remplace el texto cuenta que está entre comillas, por la casilla de correo a la cual debe llegar el mail.
'Ej. de como quedaría: casilla_destino = "[email protected]"

servidor = "server"
'Remplace el texto server que está entre comillas, por el servidor del cual debe enviarse el mail, generalmente el mismo de la casilla.
'Ej. de como quedaría: servidor = "mail.dominio.com.ar"

varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Nombre del formulario: </STRONG></font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1"">&nbsp;</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Nombre: </STRONG> " & Request("nombre") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Apellido: </STRONG> " & Request("apellido") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Ciudad: </STRONG> " & Request("ciudad") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Empresa: </STRONG> " & Request("empresa") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Email: </STRONG> " & Request("email") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Asunto: </STRONG> " & Request("asunto") & "</font></p>"


Set Msg = Server.CreateObject("JMail.Message")

Msg.Logging = True
Msg.Silent = True

Msg.From = casilla_destino
Msg.AddRecipient casilla_destino
Msg.Subject = "poner mensaje que queres ver en asunto"
Msg.HTMLBody = varBody

if not Msg.Send(servidor) then
Error = True
else
Error = False
end if
%>
__________________
Mi Blog http://turco7.blogspot.com
Usuario Linux : 404289
Mi última página: http://www.digitalservicecba.com.ar - Reparacion de camaras digitales!