Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields  
  Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True    
  With iMsg  
    Set .Configuration = iConf  
    .From = sender
    .To = email_utente
    .Subject = "Oggetto..."
    Dim Messaggio
     Messaggio = "messaggio..."
    .HTMLBody = messaggio
    .Send()