prova così:
codice:
'INVIO CON CDOSYS
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "tuaemail"
miaMail.To = "emaildest"
miaMail.Subject = "CDOSYS"
miaMail.HtmlBody = messaggio
miaMail.Send
Set miaMail = Nothing