Sub SendGmail()
On Error GoTo Err
Dim Mail As CDO.Message
Set Mail = New CDO.Message
With Mail
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""'inserire il proprio indirizzo email
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""'password del proprio account Google
.Configuration.Fields.Update
.Subject = ""'oggetto della mail
.From = ""'la propria mail
.To = ""'destinatari, separati da ;
.CC = ""'copia conoscenza
.BCC = ""'destinatari nascosti
.textbody = ""'corpo della mail
.Attachments.DeleteAll
.AddAttachment ""'il primo allegato
.AddAttachment ""'il secondo allegato, eccetera...
.Send
End With
Set Mail = Nothing
MsgBox ("Mail inviata")
Exit Sub
Err:
MsgBox (Err.Description)
Exit Sub
End Sub