Inviare mail tramite gmail senza Outlook

[patel]

Buongiorno a tutti, ho sempre utilizzato il codice seguente senza problemi, ora non funziona più a causa di errore SMTP nella riga .send. Ho abilitato l'Accesso app meno sicure

Codice: Seleziona tutto

Sub send_gmail()
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "miamail@gmail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "miapassw"
  .Update
End With

strbody = "testo da inviare"
With cdomsg
  .To = "destinatario@inwind.it"
  .From = "miamail@gmail.com"
  .Subject = "soggetto"
  .TextBody = strbody
  .CC = ""
  .BCC = ""
 .AddAttachment "C:\duplicati1.xls"
.Send
End With
    Set cdomsg = Nothing
End Sub

[Anthony47]

A me il codice funziona correttamente, con quelle impostazioni e ovviamente il mio account gmail.
Mi lascia solo perplesso quel Set cdomsg = Nothing subito dopo il .Send; io in genere inserisco uno Sleep 100 msec per essere certo che l'oggetto non venga distrutto MENTRE la .Send imposta l'invio.
Ma questo non dovrebbe entrarci con l'errore che sta avendo sul Send (il rischio e' che l'invio non venga avviato)

Ma tu dall'account gmail scarichi normalmente le mail tramite un client di posta (tipo Thunderbird, per capirci)? Se Sì, lo fai col protocollo pop3 /smtp? Perche', ricordo, per abilitare questi protocolli bisogna configurare qualcosa sul portale gmail, ma e' una cosa che feci forse 10 anni fa...

Ciao

[patel]

Uso gmail direttamente da browser, allego immagine dell'errore
http://wikisend.com/download/550602/Cattura.JPG

[Anthony47]

Ho ripreso un account che normalmente lavora solo tramite browser (come nel tuo caso); se uso la macro con quell'account mi compare esattamente quell'errore.
Se pero' imposto "consenti app meno sicure" (vedi https://myaccount.google.com/lesssecureapps?pli=1) allora l'invio avviene subito regolarmente; togliendo l'impostazione, 5 minuti dopo la modifica mi va ancora bene

Ciao

[patel]

Ciao Anthony, confermo che il codice funziona, avevo detto di aver abilitato l'Accesso app meno sicure e l'avevo fatto, ma su quello di mio figlio e non sul mio. Mi dispiace di averti fatto perdere tempo.

[Anthony47]

avevo detto di aver abilitato l'Accesso app meno sicure e l'avevo fatto, ma su quello di mio figlio e non sul mio

togliendo l'impostazione, 5 minuti dopo la modifica mi va ancora bene

Ecco, tu l'avevi "messa" sull'account sbagliato; io invece avevo sbagliato a toglierlo dall'account con cui facevo le prove

1 a 1, alla prossima!