邮件发送代码

 

首先引用命名空间

Imports  System.Web.Mail

下面是发送邮件的函数

  Public   Shared   Function sendMail() Function sendMail(ByVal host As String, ByVal userName As String, ByVal pwd As String, ByVal ssl As Boolean, ByVal from As String, ByVal too As String, ByVal subject As String, ByVal body As String) As Boolean
        Dim mail As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient
        mail.Host = host
        mail.Credentials = New System.Net.NetworkCredential(userName, pwd)
        mail.EnableSsl = ssl
        Dim message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage(from, too)
        message.Body = body
        message.Body += DateTime.Now.ToLocalTime
        message.Subject = subject
        message.SubjectEncoding = System.Text.Encoding.GetEncoding("gb2312")
        message.BodyEncoding = System.Text.Encoding.GetEncoding("gb2312")
        message.IsBodyHtml = True
        Try
            mail.Send(message)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

调用的时候可以这样写

  Protected   Sub Button1_Click() Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (sendMail("smtp.163.com ", "yangyang", "123", False, "[email protected]", "[email protected]", "看看", "信件内容")) Then
            Me.Label1.Text = "发送成功"
        Else
            Me.Label1.Text = "发送失败"
        End If
    End Sub

其中
smtp.163.com是smtp服务器的地址
yangyang,123,[email protected]分别是发件人在163邮箱上的用户名，密码，以及邮件地址
[email protected]是收件人的邮件地址
看看--是主题
信件内容--是邮件内容

 

http://www.cnblogs.com/yangboshan/archive/2007/07/27/833248.html