Discussion :

[pascb423]

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

[François DORIN]

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 ?