Discussion :

[yoran56]

bonjour

Avec un peu d'indulgance vis à vis de mon niveau en vb.net vous pourrez répondre à cette discussion :
j'ai du mal a trouver un code tout simple pour récuperer les données d'un fichier texte (la 1ère ligne) qui sont en fait des adresses email pour les envoyer ensuite

je sais qu'il y a beaucoup de code sur internet qui parle de ça mais j'ai du mal à les modifier

mail.To.Add ....

Merci de vos réponses

[Ogotcha]

Ce que tu peux faire c'est lire ton fichier ligne par ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim sr as StreamReader = New StreamReader(CheminDeTonFichierTexte)
Dim Ligne As String
'Tourne sur toutes les lignes de ton fichier
While Not ((Ligne = sr.ReadLine) Is Nothing)
'Ici le code que tu souhaites
End While

ou sinon pour récupérer le texte de ton fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Contenu as String = IO.File.ReadAllText(CheminDeTonFichierTexte)

[yoran56]

pourquoi cela ne fonctionne t'il pas ?

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

Sub SendEmailFileok()

        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
             Dim Contenu as String = IO.File.ReadAllText("c:\mail.txt")
            SmtpServer.Credentials = New  _
            Net.NetworkCredential("moi@hotmail.fr", "moi")
            SmtpServer.Port = "25"
            SmtpServer.Host = "smtp.fr"
            mail = New MailMessage()
            mail.From = New MailAddress("moi@hotmail.fr")
            mail.To.Add(Contenu)
            mail.Subject = "sujet email"
            mail.Body = "corps de l'email"
            SmtpServer.Send(mail)
            MsgBox("mail send  ")
             Catch ex As Exception
        End Try
    End Sub

[Ogotcha]

Quel est l'exception levée ?

[yoran56]

aucune