Sub InviaEmail(mittente, email_mittente, email_dest, oggetto, testo)
Dim Mail
Set Mail = server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = 2
Flds(cdoSMTPServer) = "smtp.gmail.com"
Flds(cdoSMTPAuthenticate) = 1
'nomeaccount= account principale Google APPS
Flds(cdoSMTPAccountName) = "nomeaccount@propriodominio.xyz"
Flds(cdoSendUserName) = "nomeaccount@propriodominio.xyz"
'propriapassword= password account principale Google APPS
Flds(cdoSendPassword) = "propriapassword"
Flds(cdoSMTPServerPort) = 465
Flds(cdoSMTPUseSSL) = true
Flds(cdoSMTPconnectiontimeout) = 60
Flds.Update
Set Mail.Configuration = iConf

With Mail
.From = mittente & "<" & email_mittente & ">"
.Sender = email_mittente
.To = email_dest
.Subject = oggetto
.HTMLBody = testo
.TextBody = testo
.Send
End With
Set Mail=nothing

End Sub