[RESOLVED] [2005] Email problem

[FireKnox101]

Thought i had every thing fixed but i guess not.

Im using Advance SMTP Server for send my email to the Recipient, the program says it was sent successfully and i check my email box 10mins later and it isnt there? here is a link to Advance SMTP Server.

http://www.softstack.com/advsmtp.html

and here is my code that im using.

Imports System.Web.mail
 
Public Class Form1
 
    ' 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()
 
 
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.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 btnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
 
        'Remove the attachments
        If lstAttachment.SelectedIndex > -1 Then
            lstAttachment.Items.RemoveAt(lstAttachment.SelectedIndex)
        End If
 
    End Sub
 
    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.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 txtFrom.Text = "" Then
            MsgBox("Enter the From email address ...!!!", MsgBoxStyle.Information, "Send Email")
            Exit Sub
        End If
 
        If txtTo.Text = "" Then
            MsgBox("Enter the Recipient email address ...!!!", MsgBoxStyle.Information, "Send Email")
            Exit Sub
        End If
 
        If txtSubject.Text = "" Then
            MsgBox("Enter the Email subject ...!!!", MsgBoxStyle.Information, "Send Email")
            Exit Sub
        End If
 
        'Set the properties
        'Assign the SMTP server
        SmtpMail.SmtpServer = "localhost"
        '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 = "\" & txtFromDisplayName.Text & "\ <" & txtFrom.Text & ">"
 
 
        'Specify the body format
        If cbFormat.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
        SmtpMail.Send(Mailmsg)
 
    End Sub
End Class

Im using VB.net 2005 Express.