Dim message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage ("sand_gold@sina.com", "sand_gold@sina.com", "text message for you.", "Test Title")
Dim client As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("smtp.sina.com.cn")
client.Credentials = New Net.NetworkCredential("用户名", "密码") client.Send(message)
MessageBox.Show("成功", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)