Email Attachment

[trevor.niemack]

I am a beginner and I am using VB.NET 2005
I want to email an attachment and I have written some code but I am
getting an error.

Dim emailAttachment As Attachment = New
Attachment(ListBox1.Items.ToString)
Dim emailClient As New SmtpClient(SMTP.TextBox1.Text)
Try
Mail.Attachments.Add(emailAttachment)
emailClient.Send(Mail)
Catch ex As Exception
MsgBox(ex.Message)
Finally
Mail = Nothing
emailClient = Nothing
emailAttachment = Nothing
I also have some code to open a dialogue and select a file.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object,
ByVal e As System.ComponentModel.CancelEventArgs) Handles
OpenFileDialog1.FileOk
ListBox1.Items.Add(OpenFileDialog1.FileName)
End Sub
Please help!!!!!!!!!!