none
Invio E-Mail in VB.net RRS feed

  • Domanda

  • Ho scritto un programma in VB che invia in E-mail massive tramite account Gmail, in quanto il mittente possiede un indirizzo e-mail appunto Gmail, per poterle inviare dovevo modificare l'account gmail forzando l'autorizzazione di app non sicure, in questo modo potevo inviare le e-mail come utente Gmail. Dal 30 maggio 2022 la possibilità di autorizzare le app non sicure e  quindi si dovrebbe in qualche modo dare una autorizzazione prevista al programma, ma non so come fare, qualcuno ha una ipotetica soluzione?

    Grazie per qualsiasi aiuto

    mercoledì 13 aprile 2022 16:58

Tutte le risposte

  • Buongiorno, 

    Mi scuso, comunque non ho capito bene la sua domanda. Mi pare manca una parte della descrizione? Potrebbe spiegare ancora una volta cosa Le serve?


    • Microsoft offre questo servizio gratuitamente, per aiutare gli utenti e aumentare il database dei prodotti e delle tecnologie. Il contenuto fornito “as is“ non comporta alcuna responsabilità da parte dell’azienda.

    giovedì 14 aprile 2022 06:48
    Moderatore
  • Il problema è che dal 30 maggio GMAIL non permette di accedere ai servizi di mail da applicazioni esterne a GMAIL quindi l'attuale metodo di accesso utilizzato dal mio programma , quasi certamente , non potrà più inviare email.
    Try
                Dim Mail As New System.Net.Mail.MailMessage()
                Dim mittente As New System.Net.Mail.MailAddress(xmittente)  ' Indirizzo Alpini
                If Me.ChkProd.Checked = True Then xdestinatario = AN.Email
                Dim destinatario As New System.Net.Mail.MailAddress(xdestinatario) ' Destinatario (variabile proveniente dalla lettura archivio
                Dim SMTPserver As New System.Net.Mail.SmtpClient
                'Dim basicAuthenticationInfo As New System.Net.NetworkCredential("accountGmail", "pwdGmail")
                Dim basicAuthenticationInfo As New System.Net.NetworkCredential(xmittente, xpwd) ' Dati accesso utente Alpini , la PWD può essere richiesta in pannello
                Mail.From = mittente
                Mail.To.Add(destinatario)
                Mail.Subject = Me.Oggetto.Text + " Inviato a " + AN.Cognome + " " + AN.Nome    ' valori di test
                Mail.IsBodyHtml = False
                Mail.Body = Me.Testo.Text + vbCrLf + vbCrLf + vbCrLf + Privacy   ' Testo del messaggio prelevato dalla mappa
                If Me.Allegato.Text <> "" Then
                    Me.Allegato.Text = FileAttach
                    Dim attch As New System.Net.Mail.Attachment(FileAttach)
                    Mail.Attachments.Add(attch)
                End If
                SMTPserver.Host = "smtp.gmail.com"
                SMTPserver.UseDefaultCredentials = False
                SMTPserver.Port = 587 '25
                SMTPserver.EnableSsl = 2 '1
                SMTPserver.Credentials = basicAuthenticationInfo
                SMTPserver.Send(Mail)

    Chiedevo se esiste una possibile alternativa a tale soluzione.
    giovedì 14 aprile 2022 16:09
  • La domanda in tale caso dovrebbe essere posta a Google, non nei forum Microsoft. La decisione e fatta da loro e qualsiasi modo di trovare un'alternativa, sarebbe più tosto illegale. 

    • Microsoft offre questo servizio gratuitamente, per aiutare gli utenti e aumentare il database dei prodotti e delle tecnologie. Il contenuto fornito “as is“ non comporta alcuna responsabilità da parte dell’azienda.

    giovedì 14 aprile 2022 16:40
    Moderatore