邮件发送代码
首先引用命名空间
smtp.163.com是smtp服务器的地址
yangyang,123,yangyang@163.com分别是发件人在163邮箱上的用户名,密码,以及邮件地址
huangzhi_mail@163.com是收件人的邮件地址
看看--是主题
信件内容--是邮件内容
Imports System.Web.Mail
下面是发送邮件的函数 Public Shared 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
调用的时候可以这样写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(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If (sendMail("smtp.163.com ", "yangyang", "123", False, "yangyang@163.com", "huangzhi_mail@163.com", "看看", "信件内容")) Then
Me.Label1.Text = "发送成功"
Else
Me.Label1.Text = "发送失败"
End If
End Sub
其中If (sendMail("smtp.163.com ", "yangyang", "123", False, "yangyang@163.com", "huangzhi_mail@163.com", "看看", "信件内容")) Then
Me.Label1.Text = "发送成功"
Else
Me.Label1.Text = "发送失败"
End If
End Sub
smtp.163.com是smtp服务器的地址
yangyang,123,yangyang@163.com分别是发件人在163邮箱上的用户名,密码,以及邮件地址
huangzhi_mail@163.com是收件人的邮件地址
看看--是主题
信件内容--是邮件内容