AS
VBA per Microsoft Access
Inviare email di Gmail
Step 1: Attiva il riferimento a Microsoft CDO
Dall'editor di Visual Basic, Strumenti -> Riferimenti.... Spunta Microsoft CDO.
Step 2: Configura Gmail
Nella pagina del tuo account di Google (https://myaccount.google.com/security), sezione Sicurezza, consenti l'accesso alle "app meno sicure".
Step 1: Programma Access con VBA
Qui sotto il core del codice per inviare una mail di Gmail via VBA.
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
Metto liberamente a disposizione per il download un database nel quale ho implementato quanto sopra. Qui di fianco uno snapshot.
Scaricando il seguente file accettate che viene rilasciato così com'è senza alcun tipo di garanzia.