Problème envoi photos par mail avec Gmail

Question

Bonjour à tous.
Il y a longtemps j'avais développé un petit logiciel sur Visual Basic Net qui notamment ne permettait d'envoyer automatiquement des photos via Gmail.
Jusqu'à la fin du mois de mai début juin ce logiciel fonctionne parfaitement mais depuis cette date cela ne fonctionne plus.
Recherchant un peu j'ai appris que Gmail a supprimé l'accès à certains logiciels tels que Windows Lives mail 2012, Je pense qu'il en est de même pour mon logiciel . Qu'en pensez-vous ?
À toutes fins utiles je vous joins copie du code que j'utilise largement inspiré d'ailleurs.
Y aurait-il une parade ou bien faut-il définitivement renoncer à envoyer mes photos via Gmail ?
D'avance je vous remercie de votre aide


Mon code

Private Function  EnvoyerMail() As Boolean

Dim objMessage As System.Net.Mail.MailMessage
     Dim objAdrExp As System.Net.Mail.MailAddress
     Dim objAdrRec As System.Net.Mail.MailAddress
     Dim objSMTPClient As System.Net.Mail.SmtpClient

Try
          objMessage = New System.Net.Mail.MailMessage()
          ' Expéditeur
          objAdrExp = New System.Net.Mail.MailAddress("***@***")
          ' Destinataire
          objAdrRec = New System.Net.Mail.MailAddress("***@***")

' Adresse email de l'expéditeur
          objMessage.From = objAdrExp

' Adresse email du destinataire
          objMessage.To.Add(objAdrRec)

' Sujet de l'email
         objMessage.Subject = "Ceci est un test"
         ' Définit si le message accepte le html
         objMessage.IsBodyHtml =False

' Message de l'email
         objMessage.Body = "http://www.codes-sources.com/"

' Définit la priorité de l'email
          objMessage.Priority = Net.Mail.MailPriority.High

' Renvoi un email à l'expéditeur si la remise de l'email
          ' a échoué (il existe d'autres options comme recevoir
          ' un email si l'expéditeur a bien reçu celui envoyé)
          objMessage.DeliveryNotificationOptions = Net.Mail.DeliveryNotificationOptions.OnFailure

' Définit le serveur smtp qui va envoyer l'email
          objSMTPClient = New System.Net.Mail.SmtpClient("smtp.xxxx.xxx", 587)
          ' Définit si l'envoi de l'email va utiliser une connexion SSL
          objSMTPClient.EnableSsl = True
          ' Définit l'adresse email et le mot de passe
          objSMTPClient.Credentials = New Net.NetworkCredential("ton adresse email", "ton mot de passe")
          ' Envoi l'email
          objSMTPClient.Send(objMessage)
          ' Affiche un message si tout c'est bien passé
          MsgBox("Ok")
          ' La fonction retourne 1 si tout c'est bien passé
          Return True

' Si une erreur se produit
     Catch ex As Exception
          ' Affiche l'erreur rencontré
          MsgBox("Exception : " & ex.Message)
          ' La fonction retourne 0 s'il y a eu une erreur
          Return False
     End Try

End Function

Whismeril · Answer

Bonjour

essaye ça
https://support.google.com/accounts/answer/6010255?hl=fr

Whismeril · Answer

Même en (ré)autorisant les applications moins sécurisées ?

Whismeril · Answer

Je ne te parle pas de demander un code d'application mais de tester l'autorisation pour les applications moins sécurisée.

Whismeril · Answer

Bonjour

Ici https://forums.commentcamarche.net/forum/affich-37626353-comment-utiliser-smtp-gmail-com-en-vb-net quelqu'un qui a le même soucis que toi.
La différence fondamentale entre sa question et la tienne c'est qu'il explique clairement ce qu'il a tenté 

autoriser les appli moins sécurisées
utiliser un mot de passe application.

Et manifestement ça ne marche pas, donc merci à lui d'avoir répondu à la question que je te posais....

Sam_Placi · Answer

Bonjour,
Je viens d'avoir le même problème résolu à l'instant. Vois mon code (il est un peu différent du tien) dans le sujet 
https://forums.commentcamarche.net/forum/affich-37626353-comment-utiliser-smtp-gmail-com-en-vb-net
Bonne journée,
Sam

Problème envoi photos par mail avec Gmail

5 réponses

Votre réponse

Discussions similaires