Dim iMsg, Flds, iConf

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/SendUserName"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/SendPassword"
Const cdoBASIC = 1

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mail.server.com" 
'Flds(cdoSMTPServerPort) = 25
'Flds(cdoSMTPAuthenticate) =  cdoBASIC
'Flds(cdoSendUserName)                    =  "vittorio"
'Flds(cdoSendPassword)                    =  "vittorio"
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
  Set .Configuration = iConf
  .To = "vittorio.pavesi@libero.it"
  .Cc = "vittoriop@hotmail.com"
  .From = "sFrom"
  .Sender = "from@mydomain.com"
  .Subject = "Oggetto della Mail"
  .TextBody = "messaggio di prova"
  .Send
End With