我的毕业设计啊~，做得我头都大了，今天做到密码更改，同时发送邮件到指定的邮箱，在网上找了很多，用着都不顺心，最后还是照着别人的自己改写了个，通过配置web.config来实现发送邮件！记住哟，要把代码放在appsettings中

      我们再来看看实现此功能的函数！

#Region “发送邮件函数”
Public Function MySendMail(ByVal mailto As String, ByVal mailsubject As String, ByVal mailbody As String, ByVal list As ArrayList) As Boolean
‘邮件发送人地址
Dim from As System.Net.Mail.MailAddress = New System.Net.Mail.MailAddress(ConfigurationManager.AppSettings(”mastermail”))
‘收件人地址
Dim tomail As System.Net.Mail.MailAddress = New System.Net.Mail.MailAddress(mailto)
Dim mail As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage(from, tomail)
mail.Subject = mailsubject
mail.Body = mailbody
mail.IsBodyHtml = True
mail.Priority = MailPriority.High
mail.SubjectEncoding = Encoding.UTF8
‘获取web.config中的邮箱设置信息
Dim mailFrom As String = ConfigurationManager.AppSettings(”mastermail”)
Dim mailpwd As String = ConfigurationManager.AppSettings(”mailpassword”)
Dim mailAuth As Boolean = ConfigurationManager.AppSettings(”mailAuth”)
Dim mailhost As String = ConfigurationManager.AppSettings(”mailhost”)
Dim port As Integer = CInt(ConfigurationManager.AppSettings(”port”))
‘以下设置服务器
Dim mySmth As SmtpClient = New SmtpClient(mailhost, port)
If mailAuth Then ‘当启用验证时
mySmth.Credentials = New NetworkCredential(mailFrom, mailpwd)
End If

‘mySmth.UseDefaultCredentials = True
‘以下为增加附件
Dim count As Integer = list.Count
For i As Integer = 0 To i = count - 1
Dim data As System.Net.Mail.Attachment = New System.Net.Mail.Attachment(list(i).ToString())
mail.Attachments.Add(data)
Next
Try
mySmth.Send(mail)
mail.Dispose()
Return True
Catch ex As Exception
Response.Write(ex.Message)
End Try

Return False

End Function
#End Region

      在使用的时候只需要向函数中传几个值就行了！,我想大家在看源码的时候不用我说吧！

asp.net, Host, network, 学习, 密码, 服务器, 邮箱

引用地址：http://www.tvwz.com.cn/html/programmer/aspdonet-diary/aspdonet-send-email.html