ENVIO DE MAIL
<% On error resume next Dim mySmartMail Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") ' Servidor de correo *********** mySmartMail.Server = "mail.dominio.com" ' Datos de emisor del mensaje mySmartMail.SenderName = "tu nombre" mySmartMail.SenderAddress = "tuemail@dominio.com" ' Datos del receptor del mensaje mySmartMail.Recipients.Add "tuamigo@sudominio.com", "Nombre del amigo" ' Datos del mensaje mySmartMail.Subject = "Titulo del mensaje" mySmartMail.Body = "Cuerpo del mensaje." ' Envio del mensaje mySmartMail.SendMail if Err.Number<>0 then Response.write "Error: " & Err.description else Response.write "El mensaje ha sido enviado a " & mySmartMail.Recipients.Item(1).Name & "." end if set mySmartMail = nothing %>