基于.NET的邮件解决方案
第一次开始使用.net的System.Web.Mail消息组件，觉得很好用，而且简单。但后来发现.net自带的SmtpMail不支持SMTP认证，而且许多许多SMTP服务器不只需要登陆验证，还对MAIL From作了验证(比如263)，如果和登陆用的用户名不符也不能发信。再有就是pop3邮件的信息解析问题，比如说解析出中文。 总结起来邮件问题也就2个问题：
一是smtp的身份验证，二是pop3邮件的信息解析问题。
以上两个问题，也正是ms没有提供部分的核心问题。我也问过ms的专家，有关mail解决方案的问题，他们也没给我一个什么样答复。网上也有不少高手倾情奉献自己的源码，可上述的两个问题始终都没有（或我没在网上找到）。看有些coder们现在正在找这些，所以，还是把我的解决方案提供给大家，只是给大家一个参考。
用Jmail 组件：可以解决上述两个问题，Jmail组件(Ver 4.3)发送时提供身份验证，而且接收的信息解析问题也能得到很好解决！
以下是两个WEB Service 方法
'发送Email
<WebMethod()> Public Function Jmail_Send(ByVal fromEmailAddress As String, _
ByVal toEmailAddress As String, _
ByVal ccEmailAddress As String, _
ByVal bccEmailAddress As String, _
ByVal subject As String, _
ByVal body As String, ByVal MailServer As String) As Boolean
Dim email As New jmail.Message()
email.Logging = True
email.Silent = True
' email.MailServerUserName = "" 'smtp服务器用户名
' email.MailServerPassWord = "" 'smtp服务器密码
email.From = fromEmailAddress
email.Subject = subject
email.Body = body
email.AddRecipient(toEmailAddress)
If email.Send(MailServer) Then
Return True
Else
Return False
End If
End Function
'接收Email
<WebMethod()> Public Function Jmail_Receivemail(ByVal UserName As String, _
ByVal Password As String, ByVal MailServer As String) As Boolean
Dim email As New jmail.POP3()
Dim MSG As New jmail.Message()
email.Connect(UserName, Password, MailServer, 110)
If email.Count() > 0 Then
MSG = email.Messages.Item(1)
Debug.Write(MSG.FromName)
Debug.Write(MSG.Subject)
Debug.Write(MSG.Date)
Debug.Write(MSG.Body)
Return True
End If
email.Disconnect()
End Function
以上代码是利用Jmail发送、接收邮件代码的一个原形，大家可以在此基础上扩充。Jmail提供了强大的邮件发送及处理功能，你不用自己费太长的时间，就可以完成所有需要的功能，不是很好么？当然，你也可以自己写组件，接收邮件可以用Imports System.Convert来进行Base 64的处理,进行解码!但愿大家都能找到适合自己的解决方案！
Author:李洪根 lihonggen0
个人专栏：http://www.csdn.net/develop/author/netauthor/lihonggen0/
欢迎指教! 
|
本类阅读TOP10