VB.NET里的发送邮件

代码

Private Function SendMail(ByVal MailTo As String,ByVal MailCC As String,ByVal Content As String)
		Dim title As String = "这里是邮件标题"
		Dim mailContent As StringBuilder		'邮件内容
		Dim mailSmtp As String 					'邮件发送方式
		Dim mailId As String 					'邮件发送人ID
		Dim mailPass As String 					'邮件发送人密码
		
		mailContent.AppendLine(Content)
		mailSmtp = "SMTP服务器名"
		mailId = "abc@163.com"
		mailPass = "123456"

		Dim smtp As New System.Net.Mail.SmtpClient(mailSmtp)
		smtp.Host = mailSmtp
		smtp.Credentials = New System.Net.NetworkCredential(mailId,mailPass)

		Dim mail As New System.Net.Mail.MailMessage()
		mail.SubjectEncoding = System.Text.Encoding.GetEncoding("Shift-JIS")	'日文编码
		mail.BodyEncoding = System.Text.Encoding.GetEncoding("Shift-JIS")	'日文编码
		mail.Priority = System.Net.Mail.MailPriority.Normal
		mail.IsBodyHtml = False
		mail.From = New System.Net.Mail.MailAddress(mailId)
		mail.To.Add(MailTo)
		'抄送不存在则不添加，多个抄送字符串内用”，”分隔
		If MailCC <> "" Then
			mail.CC.Add(MailCC)
		End If
		mail.Subject = title
		mail.Body = mailContent.ToString
		Try
			smtp.Send(mail)
			Return True
		Catch
			Return False
		Finally
			mail.Dispose()
		End Try
End Function