For Each valeur As [String] In ListBox1.Items Console.WriteLine(valeur) ListBox2.Items.Add(valeur) Dim Finish = mystring & valeur ListBox3.Items.Add(Finish) Next
LeCheminEtFichier = VariableChemin & "" & VariableNomFichierC'est tout se qu'on peut te répondre, ne connaissant rien de l'avancement de ton projet.
MyMailMessage.Attachments.Add(New System.Net.Mail.Attachment(Fichier))) de tous les fichiers d'un dossier, je ne sais pas comment m'y prendre malheureusement.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MyMailMessage As New MailMessage() Dim SMTPServer As New SmtpClient("smtp.gmail.com") Dim Fichier As String = "Chemin vers le dossier" Dim FileName As String Dim Path As String Path = "Chemin vers le dossier" FileName = Dir(Path) While FileName <> "" Debug.Print(FileName) FileName = Dir() End While 'Email MyMailMessage.From = New MailAddress("Déstinataire@gmail.com") 'Destinataire MyMailMessage.To.Add("Expéditeur@gmail.com") 'Expéditeur MyMailMessage.Subject = ("Nouveau Message !") 'Sujet MyMailMessage.Body = ("Text1: " & TextBox1.Text & " Text2: " & TextBox2.Text) 'Corps For Each Lines As String In Fichier MyMailMessage.Attachments.Add(New System.Net.Mail.Attachment(Fichier)) Next 'SMTP SMTPServer.Port = ("587") SMTPServer.Credentials = New System.Net.NetworkCredential("Mail@gmail.com", "mot de passe") 'Email (+Pass) SMTPServer.EnableSsl = True Try SMTPServer.Send(MyMailMessage) 'Envoi
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFor Each Lines As String In Fichier MyMailMessage.Attachments.Add(New System.Net.Mail.Attachment(Fichier)) Next- Tu veux énumérer des lignes à partir d'une chaine de caractère "Fichier" ... qui n'en a pas : ça n'a pas de sens
Je te demande juste de relire ces lignes qui sont incohérentes :
Imports System.IO Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim opendir As String = "C:\Users\Eresea\Desktop\Test\INFOS" Dim di As New IO.DirectoryInfo(opendir) Dim extFi As IO.FileInfo() = di.GetFiles("*.*") 'filtrer les fichiers Dim fi As IO.FileInfo For Each fi In extFi ListBox1.Items.Add(fi.Name) 'affiche les noms avec extension 'ListBox1.Items.Add(fi.Name.Replace(fi.Extension, ""))'affiche les noms sans extension Next End Sub End Class