[VB.NET]Prob: StreamReader & Mailversand

[eatsen]

Also jungs, ich steh vor einem problem.. Ich möchte gern eine textdatei mit email adressen auf jeder zeile auslesen und an diese dann eine mail verschicken:




^ = New System.Net.Mail.MailMessage(txtFrom.Text, txtTo.Text, txtSubject.Text, txtMessage.Text)
'txtTo durch die !mehrere! mails von einer txt ersetzen
Aber wie? Wie kann ich mit streamreader eine zeile also eine mailaddy auslesen und dann da verwenden? Und dann zur nächsten addy?!
Ich steh vor einem schwarzen loch im kopf :(

Und nich das an "message" was falsch wäre das funktioniert schon so wie es ist, die strings hab ich gesetzt!

Ich freue mich auf ne antwort!
thx

[Sawyer]

Sub Main()

Dim Zeile() As String
Dim LeseText As New StreamReader("C:\Users\ThePapst\Deskto\test.txt")

Zeile = Split(LeseText.ReadToEnd, ControlChars.CrLf)

For i = 0 To UBound(Zeile)
Console.WriteLine(("Textzeile: " & Zeile(i)))
Next

Console.Read()

End Sub

Somit kannst du jede Zeile individuel auslesen ;)

Ich gehe jetzt mal davon aus , das deine Textzeile eine mail addy pro Zeile hat^^

MfG

[Sirect]

Nicht so schön, aber kurz:




RichTextBox1.LoadFile("C:\Mail.txt", RichTextBoxStreamType.PlainText)
For Each line In RichTextBox1.Lines
Dim Mail As New System.Net.Mail.MailMessage(txtFrom.Text, line.ToString, txtSubject.Text, txtMessage.Text)
Next

[eatsen]

Super danke sehr! Ich hab mich für die Variante von Sirect entschieden. Hab mir aber den code von the papst auch genauer angeschaut :D

Danke für eure Antworten <'3