邮件发送代码
来源:互联网 发布:成都办公软件培训 编辑:程序博客网 时间:2024/05/22 05:06
http://www.cnblogs.com/yangboshan/archive/2007/07/27/833248.html
首先引用命名空间
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是收件人的邮件地址
看看--是主题
信件内容--是邮件内容
- delphi发送邮件代码
- JMail发送邮件代码
- .net 发送邮件代码
- vs2005 邮件发送代码
- JMail发送邮件代码
- 邮件发送示例代码
- 发送邮件代码
- C#发送邮件代码
- C#邮件发送代码
- C#发送邮件代码
- 邮件发送代码
- C#邮件发送代码
- java发送邮件代码
- C#发送邮件代码
- 邮件发送代码
- C#发送邮件代码
- 发送邮件代码
- 发送邮件代码收藏
- jQuery的动态效果
- 12 .Android Location的使用
- AD活动目录操作类(VB.net)
- [原创] Linux体系结构(二): Linux系统层次
- WSDL2Java操作指南
- 邮件发送代码
- iPhone真机调试报错 Error launching remote program: No such file or directory
- gdb参数详解(整理过)
- OpenCV SURF例子注解
- 多核CPU运行模式
- Android的DDMS中的Threads的各个字段的含义
- WebService初学
- throw 与 throws 的区别与联系
- 要读的书