Salve,
sto realizzando un applicazione con Access che, tra i vari compiti, deve inviare molte email in sequenza ai soci presenti nel database.
Se provo a inviare poche email in modo manuale non riscontro nessun tipo di problema, ma quando devo inviare email in sequenza a tutti gli indirizzi ottenuti da una query ottengo (solitamente verso l'ottantesima email) il seguente errore:
Impossibile inviare il messaggio al server smtp. Codice errore di trasporto 80040217
Per l'invio delle email sto utilizzando il seguente codice:
Dim NewMail As Object
Dim mailConfig As Object
Dim fields As Variant
Dim msConfigURL As String
Dim rS As Recordset
Set rS = ...
Do While Not rS.EOF
'late binding
Set NewMail = CreateObject("CDO.Message")
Set mailConfig = CreateObject("CDO.Configuration")
' load all default configurations
mailConfig.Load -1
Set fields = mailConfig.fields
'Set All Email Properties
With NewMail
.From = "*****@gmail.com"
.To = rS!email
.Subject = "test subject"
.TextBody = "test body"
End With
msConfigURL = "http://schemas.microsoft.com/cdo/configuration"
With fields
.Item(msConfigURL & "/smtpusessl") = True 'Enable SSL Authentication
.Item(msConfigURL & "/smtpauthenticate") = 1 'SMTP authentication Enabled
.Item(msConfigURL & "/smtpserver") = "smtp.gmail.com" 'Set the SMTP server details
.Item(msConfigURL & "/smtpserverport") = 465 'Set the SMTP port Details
.Item(msConfigURL & "/sendusing") = 2 'Send using default setting
.Item(msConfigURL & "/sendusername") = "*****@gmail.com" 'gmail address
.Item(msConfigURL & "/sendpassword") = "*****" 'app password
.Update 'Update the configuration fields
End With
NewMail.Configuration = mailConfig
NewMail.Send
Set NewMail = Nothing
Set mailConfig = Nothing
rS.MoveNext
Loop
Come provider per l'invio delle email sto utilizzando gmail. Ho provato anche ad abilitare l'accesso alle app meno sicure prima ed utilizzare una password per le app dopo, ma ottengo comunque lo stesso problema.
È un problema che dipende da gmail o dal codice?
Eventualmente esiste un metodo alternativo per inviare molte email in sequenza?
Grazie in anticipo.