ENVIO DE MAIL CON ATTACHMENT
<% 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." ' fichero de envio mySmartMail.Attachments.Add Server.MapPath("\directorio\ejemplo.txt"),, false ' Envio del mensaje mySmartMail.SendMail if err.number <> 0 then response.write("Error n " & err.number - vbobjecterror & " = " & err.description & "
") else Response.Write "El mensaje ha sido enviado correctamente:
" Response.Write mySmartMail.Attachments.Item(1).FilePathName end if set mySmartMail = nothing %>