
Esta es la funcion

FUNCTION fncenviar_email ( strorigen,strdestino,strasunto,strbody )
fncenviar_email = 0
set mail = server.createobject("Persits.Mailsender")
mail.host = "host"
mail.port = 25
''mail.password = "pass"
''mail.username = "[email protected]"
strbody = strbody & "<br><br>" & _
"<img src=logo.jpg>
mail.addaddress strdestino
mail.subject = strasunto
mail.from = strorigen
mail.body = strbody
mail.IsHTML = true
mail.send
fncenviar_email = 1
END FUNCTION
Por su atencion de antemano gracias