Visual Basic 2010 Express eMail mit Anhang

Hallo Miteinander!

Ich habe mir das folgende Video angeschaut:
http://www.youtube.com/watch?v=Yg22Xw4R0wg

Jetzt wollte ich es nachstellen. Allerdings kommt immer die Meldung:

Fehler 1 "attachment" ist kein Member von "System.Net.Mail.MailMessage". C:\Users\Administrator\Documents\Visual Studio 2010\Projects\email\email\Form1.vb 12 13 email

Ich bin bisher bei folgendem Code:


<code vb>Imports System.Net.Mail
Public Class form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendeMail.Click
Dim email As New MailMessage
email = New MailMessage
email.From = New MailAddress("meine email")
email.To.Add("meine email")
email.Subject = Text
email.Body = Text
For i = 0 To (Me.ListBox1.Items.Count - 1)
email.attachment.add(New Attachment(Me.ListBox1.Items(i)))
Next
Dim smtpSenden As New SmtpClient("Smtp.gmail.com")
smtpSenden.Port = 587
smtpSenden.EnableSsl = True
smtpSenden.Credentials = New System.Net.NetworkCredential("meine email", "mein passwort")
smtpSenden.Send(email)
End Sub

Private Sub anhang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anhang.Click
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.CheckFileExists = True Then
Me.ListBox1.Items.Add(OpenFileDialog1.FileName)
End If
End Sub
End Class


Das ganze schaut bisher so aus:

Der Fehler schaut so aus:

Ich habe meine Project-Mappe (.sln-Datei) hier gespeichert:
http://www.file-upload.net/download-4328465/email.sln.html

Kann mir bitte irgendwer helfen?
Ich nutze Win 7 Service-Pack 1

Danke im Vorraus!

Chris

>Imports System.Net.Mail
> Public Class form1
> 
>     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendeMail.Click
>         Dim email As New MailMessage
>         email = New MailMessage
> //Hier solltest du schon auf deine Felder verweisen im der Art (tbAN.Test) vor allem da auch die Adresse überprüft wird
>         email.From = New MailAddress("meine email")  
>         email.To.Add("meine email")  
>         email.Subject = Text
>         email.Body = Text
>         For i = 0 To (Me.ListBox1.Items.Count - 1)
>//die Zeile muss Lauten email.attachments.add
>             email.attachment.add(New Attachment(Me.ListBox1.Items(i)))
>         Next
>         Dim smtpSenden As New SmtpClient("Smtp.gmail.com")  
>//Bin hier auf Port 25 und SSL = False gegangen. Bei mir hat's nen Zertifikatsfehler gebracht. 
>         smtpSenden.Port = 587
>         smtpSenden.EnableSsl = True
>         smtpSenden.Credentials = New System.Net.NetworkCredential("meine email", "mein passwort")  
>         smtpSenden.Send(email)
>     End Sub
> 
>     Private Sub anhang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anhang.Click
>         OpenFileDialog1.ShowDialog()
>         If OpenFileDialog1.CheckFileExists = True Then
>             Me.ListBox1.Items.Add(OpenFileDialog1.FileName)
>         End If
>     End Sub
> End Class
>