I am trying to send email from VB.Net using code posted below in VB 2008 Express, but get one error "Syntax error" and it points to Imports System.Net.Mail. I also would like to include required by server authentication as well as to make confirmation message box disapear itself after two seconds. Please help.:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Imports System.Net.Mail
        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New  _
  Net.NetworkCredential("username@mysite.com", "password")
            SmtpServer.Port = 2525
            SmtpServer.Host = "smtp.somesite.com"
            mail = New MailMessage()
            mail.From = New MailAddress("username@mysite.com")
            mail.To.Add("TOADDRESS")
            mail.Subject = "Test Mail"
            mail.Body = "This is for testing SMTP mail from me"
            SmtpServer.Send(mail)
            MsgBox("mail send")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

Thank you.

Leo

Edited 7 Years Ago by leokuz: n/a

Unfortunately you should put "Imports System.net.mail" at the very top even before "Public Class Form1" So your code should go like this:

Imports System.Net.Mail
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       
        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New  _
  Net.NetworkCredential("username@mysite.com", "password")
            SmtpServer.Port = 2525
            SmtpServer.Host = "smtp.somesite.com"
            mail = New MailMessage()
            mail.From = New MailAddress("username@mysite.com")
            mail.To.Add("TOADDRESS")
            mail.Subject = "Test Mail"
            mail.Body = "This is for testing SMTP mail from me"
            SmtpServer.Send(mail)
            MsgBox("mail send")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class
Imports System.Net.Mail

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       .....
       End Sub
End Class
This question has already been answered. Start a new discussion instead.