vb.net电子邮件发送方法

 

Public   Shared   Function sendermail() Function sendermail(ByVal toaddr As String, ByVal myaddr As String, ByVal title As String, ByVal body As String) As Boolean
        Try
            Dim mailMessage As New System.Net.Mail.MailMessage()

            mailMessage.From = New System.Net.Mail.MailAddress(myaddr)
            mailMessage.To.Add(toaddr)
            mailMessage.Subject = title
            mailMessage.Body = body

            Dim smtpClient As New System.Net.Mail.SmtpClient()
            'smtpClient.EnableSsl = True
            smtpClient.Host = "smtp.163.com"
            smtpClient.Port = 25
            smtpClient.Credentials = New System.Net.NetworkCredential("myname@163.com", "mypass")
            smtpClient.Send(mailMessage)
            Return True
        Catch
            Return False
        End Try
    End Function