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 |
