' arrayDatiServerSMTP è un array restituito da una funzione che va a leggersi le impostazioni del server di posta da un file di configurazione.
  ' 
  ' Imposto la configurazione
  Set Config = CreateObject("CDO.Configuration")
  Set Fields = Config.Fields
  ' richiedo autenticazione
  Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  ' server
  Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = arrayDatiServerSMTP(0)
  ' username e password
  Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = arrayDatiServerSMTP(1)
  Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = arrayDatiServerSMTP(2)
  
  Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = arrayDatiServerSMTP(3)

  Fields.Update

  ' Preparo il testo dell'email da inviare.
  '
  Dim strEmailFrom as string = "inserisco l'email del mittente"
  Dim strEmailTo as string = "inserisco l'email del destinatario"
  Dim strEmailSubject as string = "inserisco l'oggetto dell'email"
  Dim strEmailBody as String = "Testo dell'email"

  ' Effettuo l'invio dell'email.
  Set objMail = CreateObject("CDO.Message")
  Set objMail.Configuration = Config
  ' invio dell'e-mail
  '
  objMail.From = strEmailFrom 
  objMail.To = strEmailTo 
      
  objMail.Subject = strEmailSubject
  objMail.TextBody = strEmailBody 
  objMail.Send()
  Set objMail = nothing