VB.New 自动发送邮件的方法
2010-12-31 15:34
417 查看
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
今天有一个模块需要自动发送邮件的功能,就随便写了一个,记录一下作为积累。
一、首先需要配置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
相关文章推荐
- VB.New 自动发送邮件的方法
- Z-Blog的自动发送邮件的方法
- 自动发送邮件方法
- 本地模拟正式环境自动预警邮件发送的测试方法
- 导出系统日志并自动发送邮件到指定邮箱的一般方法(Windows server适用)
- 利用Python自动监控网站并发送邮件告警的方法
- Asp.net 自动发送邮件的方法
- linux脚本实现自动发送和收取邮件的设置方法
- 使用java发送邮件sp自动发送邮件方法
- Asp.net 自动发送邮件的方法
- DedeCMS提交自定义表单后自动发送邮件到站长邮箱的方法
- linux脚本实现自动发送和收取邮件的设置方法
- Asp.net 自动发送邮件的方法
- Asp.net 自动发送邮件的方法 (转)
- Asp.net 自动发送邮件的方法
- Asp.net 自动发送邮件的方法
- 发送自动邮件时Could not connect to SMTP host: 10.1.1.195, port: 25;报错的解决方法
- Z-Blog的自动发送邮件的方法
- 利用Python自动监控网站并发送邮件告警的方法
- EasyDarwin开源流媒体服务器中一种实现对作用域内new对象自动释放的方法(值得借鉴)