1. #1
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2008
    Messages
    220
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : novembre 2008
    Messages : 220
    Points : 60
    Points
    60

    Par défaut Envoi de mail avec un compte Gmail

    Bonjour,
    j'ai ce script qui marche à merveille pour envoyer des mail avec un compte autre que Gmail mais ne marche pas avec un compte Gmail?
    quelqu'un aurait une idée du code à rajouter pour que ca fonctionne, merci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            mail2 = lireINI("Encours", "mail")
            index = lireINI("Encours", "index")
            premier = 0
            sortie = 0
     
            Try
                For x = 0 To ComboBox1.Items.Count - 1
                    If premier = 1 Then GoTo 2
                    If ComboBox1.Items(index).ToString() = mail2 Then
                        x = index
                        premier = 1
                    End If
    2:
                    Label5.Text = "EN COURS..." & x + 1 & "/" & ComboBox1.Items.Count
     
     
                    If sortie = 1 Then
                        Dim index As String
                        index = ComboBox1.Items(x).ToString()
                        ecrireINI("Encours", "mail", index)
                        ecrireINI("Encours", "index", x)
                        GoTo fin
                    End If
                    System.Windows.Forms.Application.DoEvents()
     
     
                    Dim mail As MailMessage
                    Dim smtp As SmtpClient
                    Dim destinataire As String
                    Dim Adressemail = TextBox1.Text
                    destinataire = ComboBox1.Items(x)
                    Dim titre = TextBox3.Text
                    Dim texte = RichTextBox1.Text
                    Dim pathpdf As String
                    mail = New MailMessage(Adressemail, destinataire, titre, texte) ' nouveau message
                    mail.From = New MailAddress(TextBox1.Text, TextBox6.Text)
     
                    Dim sFiles() As String
                    Dim nbfiles As String
                    Dim i As Integer
                    For m = 0 To Me.ComboBox2.Items.Count - 1
                        pathpdf = Me.ComboBox2.Items(m)
                        Dim lapiece As Attachment
                        lapiece = New Attachment(Me.ComboBox2.Items(m))
                        mail.Attachments.Add(lapiece)
                    Next m
                    Dim str_smtp = TextBox2.Text
                    Dim portsmtp = TextBox7.Text
                    Dim login_mail = TextBox4.Text
                    Dim pwd_mail = TextBox5.Text
                    mail.IsBodyHtml = True ' corp mail en html
                    smtp = New SmtpClient(str_smtp)
                    smtp.Port = portsmtp
                    smtp.EnableSsl = False ' ssl modifie ici si marche pas pour le certificat
                    smtp.Credentials = New System.Net.NetworkCredential(login_mail, pwd_mail) ' id
                    smtp.UseDefaultCredentials = False
     
     
     
                    smtp.Send(mail)
                    ecrireINI("port", "SMTP", TextBox7.Text)
                    ecrireINI("mail", "emetteur", TextBox1.Text)
                    ecrireINI("titre", "titre", TextBox3.Text)
                    ecrireINI("message", "message", RichTextBox1.Text)
                    ecrireINI("smtp", "smtp", TextBox2.Text)
                    ecrireINI("login", "login", TextBox4.Text)
                    ecrireINI("passe", "passe", TextBox5.Text)
                    ecrireINI("texteemetteur", "texteemetteur", TextBox6.Text)
     
                Next x
            Catch ex As Exception
                'envoie_mail(MailAdmin, "envoie mail impossible", ex.Message & " <br> " & texte & "<br> devait etre envoyer a " & destinataire)
                MsgBox("Erreur : " & ex.Message, MsgBoxStyle.Critical)
            End Try
     
     
            Label5.Text = "TERMINE" & x & "/" & ComboBox1.Items.Count
     
            MsgBox("Envoies réussis!")
     
            x = 0
     
     
            ecrireINI("Encours", "index", "0")
    fin:
     
     
        End Sub

  2. #2
    Rédacteur/Modérateur

    Avatar de François DORIN
    Homme Profil pro
    Consultant informatique
    Inscrit en
    juillet 2016
    Messages
    1 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : juillet 2016
    Messages : 1 415
    Points : 4 773
    Points
    4 773
    Billets dans le blog
    5

    Par défaut

    Bonjour,

    "Ca ne marche pas" ne nous aide pas beaucoup. Qu'est ce qui ne va pas ? Y a-t-il une erreur ? Une exception ? Quelle est la valeur de retour de la commande Send ?
    François DORIN
    Consultant informatique : conception, modélisation, développement (C#/.Net et SQL Server)
    Site internet | Profils Viadéo & LinkedIn
    ---------
    Page de cours : fdorin.developpez.com
    ---------
    N'oubliez pas de consulter la FAQ C# ainsi que les cours et tutoriels

Discussions similaires

  1. [1.x] Problème d'envoi de mails avec gmail
    Par Arcapt dans le forum Symfony
    Réponses: 1
    Dernier message: 26/01/2012, 12h58
  2. Envoi de mail avec GMail
    Par TekP@f dans le forum Développement Web en Java
    Réponses: 1
    Dernier message: 06/03/2010, 11h08
  3. Réponses: 3
    Dernier message: 09/01/2009, 16h34
  4. [Log4j] Envoi d'un mail avec un compte GMail
    Par Ynostel dans le forum Logging
    Réponses: 2
    Dernier message: 20/12/2008, 11h21
  5. Problème pour l'envoi de mails avec le SMTP de GMail
    Par BigWill dans le forum ASP.NET
    Réponses: 12
    Dernier message: 24/01/2008, 03h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo