Aspetta... hai messo in cima alla pagina
codice:
Option Explicit
quindi modifica così:
codice:
Sub manda_posta(nome,password,email)

'CDOSYS
Dim miaMail 
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "pop@aruba.it"
miaMail.To = "pop@aruba.it"
miaMail.Subject = "Oggetto del messaggio"
miaMail.TextBody = "msg di prova CDOSYS"
miaMail.Send
Set miaMail = Nothing

end sub