E-mailing in .NET ...code problem [RESOLVED]

[742617000027]

Hi There.

I'm developing this program that lets the user easily send e-mail to a recipient. All of the concept is there, but my code needs a little bit of editing. I'll outline the problems for you once you can take a look at the code. By the way, sorry if there's obvious mistakes...It's late at night and I don't feel well, so cut me some slack:P. And I know this might take a lot of reading through to fix some errors, but I appreciate your time.

Screenshot:

Imports System.Web.Mail
 
' Variable which will send the mail
Dim obj As System.Web.Mail.SmtpMail
 
'Variable to store the attachments 
Dim Attachment As System.Web.Mail.MailAttachment
 
'Variable to create the message to send
Dim Mailmsg As New System.Web.Mail.MailMessage()
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub cmdAddAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddAttach.Click
        'Show open dialogue box to select the files to attach
        Dim Counter As Integer
        OFD.CheckFileExists = True
        OFD.Title = "Select file(s) to attach."
        OFD.ShowDialog()
 
        For Counter = 0 To UBound(OFD.FileNames)
            lstAttachment.Items.Add(OFD.FileNames(Counter))
        Next
    End Sub
 
    Private Sub cmdRemoveAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemoveAttach.Click
        If lstAttachment.SelectedIndex > -1 Then
            lstAttachment.Items.RemoveAt(lstAttachment.SelectedIndex)
        End If
    End Sub
 
    Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click
        Dim Counter As Integer
 
        'Validate the data
        If txtSMTPServer.Text = "" Then
            MsgBox("Enter the SMTP server info ...!!!", MsgBoxStyle.Information, "Send Email")
            Exit Sub
        End If
 
        If txtFromEmail.Text = "" Then
            MsgBox("Enter your Email address.", MsgBoxStyle.Information, "Send Email")
            Exit Sub
        End If
 
        If txtTo.Text = "" Then
            MsgBox("Enter the Recipient's Email address.", MsgBoxStyle.Information, "Send Email")
            Exit Sub
        End If
 
        If txtSubject.Text = "" Then
            MsgBox("Please enter an e-mail subject.", MsgBoxStyle.Information, "Send Email")
            Exit Sub
        End If
 
        'Set the properties
        'Assign the SMTP server
        obj.SmtpServer = txtSMTPServer.Text
        'Multiple recepients can be specified using ; as the delimeter
        'Address of the recipient
        Mailmsg.To = txtTo.Text
 
 
        'Your From Address
        'You can also use a custom header Reply-To for a different replyto address
        Mailmsg.From = "\" & txtFromName.Text & "\ <" & txtFromEmail.Text & ">"
 
 
        'Specify the body format
        If chkFormat.Checked = True Then
            Mailmsg.BodyFormat = MailFormat.Html   'Send the mail in HTML Format
        Else
            Mailmsg.BodyFormat = MailFormat.Text
        End If
 
        'If you want you can add a reply to header 
        'Mailmsg.Headers.Add("Reply-To", "[email protected]")
        'custom headersare added like this
        'Mailmsg.Headers.Add("Manoj", "TestHeader")
 
        'Mail Subject
        Mailmsg.Subject = txtSubject.Text
 
        'Attach the files one by one
        For Counter = 0 To lstAttachment.Items.Count - 1
            Attachment = New MailAttachment(lstAttachment.Items(Counter))
            'Add it to the mail message
            Mailmsg.Attachments.Add(Attachment)
        Next
 
        'Mail Body
        Mailmsg.Body = txtMessage.Text
        'Call the send method to send the mail
        obj.Send(Mailmsg)
    End Sub
End Class

Ok. Here's a list of the errors I'm getting:

1. It is saying that the following is not in a valid namespace:

Imports System.Web.Mail
 
' Variable which will send the mail
Dim obj As System.Web.Mail.SmtpMail
 
'Variable to store the attachments 
Dim Attachment As System.Web.Mail.MailAttachment
 
'Variable to create the message to send
Dim Mailmsg As New System.Web.Mail.MailMessage()

2. It says that the Namespace or type specified in the Imports "System.Web.Mail" cannot be found.

3. The name "obj" is not declared. What would I declare it as, and where?

4. The name "Mailmsg" is not declared. What would I declare it as, and where?

5. The name "MailFormat is not declared. What would I declare is as, and where?

6. The name "Attachment" is not declared. What would I declare it as, and where?

7. Finally, the name "MailAttachment" is not declared. What would I declare it as, and where?


----------

Can anyone help me? Thanks!

-742617000027