secondo voi questo codice e' giusto, non mi da errori ma non mi manda la mail

codice:
<%
Sub invio_email(strFrom, strTo, strBcc, strSubject, strBody)
Dim mail
Set mail = Server.CreateObject("CDO.Message") 
mail.From = "caruso@cs.unibo.it"
mail.To = "caruso@cs.unibo.it"
mail.Bcc = "caruso@cs.unibo.it"
mail.Subject = "OK"
mail.textBody = "Arrivata finalmente la mail"
mail.Send 
Set mail = nothing
End sub
%>
grazie