comment envoyer un mail avec le code VB.NET 2015 via le serveur smtp.gmail.com

Question

comment envoyer un mail avec le code VB.NET 2015 via le serveur smtp.gmail.com

Donald 1331 5

en fait voici mon code d'envoie de mail

quand je l'exécute je reçois le message " le serveur STPM requiert une connexion sécurisé ou le client n'était pas authentifié. la réponse du serveur était : 5.7.0 Authentification Required. Learn more at"

SVP aider moi, merci.

Donald 1331 5

c'est ca mon code


Function send_mail_vide() As Boolean 'fichier As String
        Dim DES As String
        Dim message = New MailMessage()
        Dim smtpserveur As New SmtpClient("smtp.gmail.com")
        send_mail_vide = False

        DES = "******@gmail.com"

        If (DES = "") Then
            send_mail_vide = False
        Else
            Try
                message.Subject = ("test soft appartement") ' sujet du message
                message.From = New MailAddress("******@gmail.com") ' email de l'envoyeur
                smtpserveur.Credentials = New System.Net.NetworkCredential("******@gmail.com", "softappartment2020")
                message.To.Add("" & DES) ' email du destinateur
                'corp du message
                message.Body = (" Bonjour ") 'corps du message

                smtpserveur.EnableSsl = True
                smtpserveur.Port = 587 ' port 'tempserveurport() '
                smtpserveur.Send(message) ' envoie du  MAIL
                send_mail_vide = True

            Catch ex As Exception
                MessageBox.Show(ex.Message, "DSB-SOFT", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End If
    End Function

Jiachen Li-MSFT 34,221 Reputation points Microsoft External Staff

2023-01-24T08:16:22.8666667+00:00

Hi @Donald 1331 ,

Since this forum is in English, we recommend that you post questions in English.

1 answer

Your answer

Donald 1331 5 Reputation points

2023-01-20T15:00:07.31+00:00

c'est ca mon code

Function send_mail_vide() As Boolean 'fichier As String Dim DES As String Dim message = New MailMessage() Dim smtpserveur As New SmtpClient("smtp.gmail.com") send_mail_vide = False DES = "******@gmail.com" If (DES = "") Then send_mail_vide = False Else Try message.Subject = ("test soft appartement") ' sujet du message message.From = New MailAddress("******@gmail.com") ' email de l'envoyeur smtpserveur.Credentials = New System.Net.NetworkCredential("******@gmail.com", "softappartment2020") message.To.Add("" & DES) ' email du destinateur 'corp du message message.Body = (" Bonjour ") 'corps du message smtpserveur.EnableSsl = True smtpserveur.Port = 587 ' port 'tempserveurport() ' smtpserveur.Send(message) ' envoie du MAIL send_mail_vide = True Catch ex As Exception MessageBox.Show(ex.Message, "DSB-SOFT", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End If End Function
Jiachen Li-MSFT 34,221 Reputation points Microsoft External Staff

2023-01-24T08:16:22.8666667+00:00

Hi @Donald 1331 ,

Since this forum is in English, we recommend that you post questions in English.

Answer 1

Castorix31 90,686

[the language of those forums is English]

The security for GMail has changed

You must (in Security of sender account) :

Activate two-step verification
Generate a Google App Password (to replace softappartment2020 in your test)

I just tested now (on Windows 10) and it works

Donald 1331 5 Reputation points

2023-01-21T07:19:50.47+00:00

please how to generate a Google APP password
Castorix31 90,686 Reputation points

2023-01-21T10:11:40.5933333+00:00

As I said, in Security page of Google Account, after having activated two-step verification

Share via

comment envoyer un mail avec le code VB.NET 2015 via le serveur smtp.gmail.com

1 answer

Your answer