Salut je suis un débutant en programmation je voudrais envoyer un mail qui contient les données de plusieurs lignes selectionnées d'un datagrid
j'ai essayé ce code mais il envoie un mail vide
j'ai mis ce code pour le boutton qui selectionne la ligne du data grid
et j'ai mis ce code pour l'envoie du mail
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub btn_select_Click(sender As Object, e As EventArgs) Handles btn_select.Click compt = compt + 1 For i = compt To i = 10 nom(i) = dgv_livres.SelectedRows(0).Cells(0).Value.ToString catégorie(i) = dgv_livres.SelectedRows(0).Cells(1).Value.ToString auteur(i) = dgv_livres.SelectedRows(0).Cells(2).Value.ToString etat(i) = dgv_livres.SelectedRows(0).Cells(3).Value.ToString message(i) = "nom : " & nom(i) & vbNewLine & "catégorie : " & catégorie(i) & vbNewLine & " auteur" & auteur(i) & vbNewLine & _ " etat: " & etat(i) & vbNewLine & "nbr_pages : " & nbr_pages(i) Next End Sub
comme je l'ai mentionné je ne suis qu'un debutant il y'a de fortes chances que tout ce code est à coté de la plaque
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 Private Sub btn_envoie_Click(sender As Object, e As EventArgs) Handles btn_envoie.Click Dim mymail As New MailMessage Dim smtpserver As New SmtpClient("smtp.gmail.com") mymail.From = New MailAddress("l'email ") mymail.To.Add("l'email de destination ") mymail.Subject = ("Inscription") For j = 1 To j = 10 mymail.Body = mymail.Body + (message(j)) Next smtpserver.Port = ("587") smtpserver.Credentials = New System.Net.NetworkCredential("L'email ", "le mot de passe ") smtpserver.EnableSsl = True smtpserver.Send(mymail) '--------------------------------------- MsgBox("enregistrement reussie ") End Sub
merci pour toute indication ou correction
Partager