尝试如下操作:

Try something like this:

Dim msg = New MailMessage()
Dim srv = New SmtpClient()
srv.Host = "SMTP SERVER COMPUTER NAME"
srv.Port = 0 'port number for smtp server
msg.From = New MailAddress("FROM ADDRESS")
msg.To.Add("TO ADDRESS")
msg.Subject = "SUBJECT"
msg.IsBodyHtml =
msg.Body = "BODY OF THE TEXT"
srv.Send(msg)

不要忘了包括Imports System.Net.Mail

Don't forget to include Imports System.Net.Mail