Condividi:        

Inviare mail tramite gmail senza Outlook

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Inviare mail tramite gmail senza Outlook

Postdi patel » 11/05/20 11:41

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
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Sponsor
 

Re: Inviare mail tramite gmail senza Outlook

Postdi Anthony47 » 11/05/20 19:47

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inviare mail tramite gmail senza Outlook

Postdi patel » 11/05/20 20:30

Uso gmail direttamente da browser, allego immagine dell'errore
http://wikisend.com/download/550602/Cattura.JPG
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: Inviare mail tramite gmail senza Outlook

Postdi Anthony47 » 11/05/20 21:00

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inviare mail tramite gmail senza Outlook

Postdi patel » 12/05/20 07:27

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.
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: Inviare mail tramite gmail senza Outlook

Postdi Anthony47 » 12/05/20 17:49

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

Anthony ha scritto: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!
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Inviare mail tramite gmail senza Outlook":

Connettere pc senza wifi
Autore: nippon
Forum: Software Windows
Risposte: 8
incollare in Outlook
Autore: valyfilm
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Gianca532011 e 66 ospiti