VB.New 自动发送邮件的方法
Asp.net 自动发送邮件的方法 今天有一个模块需要自动发送邮件的功能,就随便写了一个,记录一下作为积累。 一、首先需要配置web.config文件: <system.net> <mailSettings> <smtp from="Emailname"> <network host="smtp.163.com" userName="Emailname" password="Emailpassword" port="25" defaultCredentials="false"/> </smtp> </mailSettings> </system.net> 二、然后编写发送邮件的函数:
'''/ <summary> ''' 邮件发送方法(带附件) ''' </summary> ''' <param name="mailto">收件人地址。如:receiver@163.com</param> ''' <param name="mailsubject">邮件标题</param> ''' <param name="mailbody">邮件正文</param> ''' <param name="mailFrom">邮件发送人地址。如:sender@163.com</param> ''' <param name="list">附件路径</param> ''' <returns></returns> Public Function MySendMail(ByVal mailto As String,ByVal mailsubject As String,ByVal mailbody As String,ByVal mailFrom As String,ByVal list As ArrayList) As Boolean Try '邮件发送人地址 Dim from As New System.Net.Mail.MailAddress(mailFrom) '如test@163.com,初步测试,用test@sina.com不行,用163的邮件服务器,就必须用163邮箱的用户名 '收件人地址 Dim [to] As New System.Net.Mail.MailAddress(mailto) '如test@tom.com Dim mail As New System.Net.Mail.MailMessage(from,[to]) mail.Subject = mailsubject mail.Body = mailbody '以下设置服务器 Dim mySmth As New System.Net.Mail.SmtpClient() '以下为增加附件 Dim count As Integer = list.Count For i As Integer = 0 To count - 1 Dim data As New System.Net.Mail.Attachment(list(i).ToString()) mail.Attachments.Add(data) Next mySmth.Send(mail) mail.Dispose() Return True Catch Return False End Try End Function 三、最后就是对函数的调用了:
Dim mailSubject As String = "会员注册确认函" Dim mailBody As String = "正文内容。" Dim mailFrom As String = ConfigurationManager.AppSettings("SendMail") Dim List As New ArrayList() List.Add(Server.MapPath(ConfigurationManager.AppSettings("SendMailText"))) '发送成功,进行相应处理 If MySendMail(Me.txtEmail.Text,mailSubject,mailBody,mailFrom,List) Then Else '发送失败,进行相应处理 Return End If (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |