今天终于鼓起勇气用JMAIL了。。。。

以前仿照书本写了几次代码都只能在自己的电脑发送，传到服务器后会出现 未能访问“CDO.Message”对象。后来知道99%的服务器是不支持mailmessage而支持JMAIL。今天终于鼓起勇气用JMAIL了。

以前用到比较好的支持SMTP验证发件程序：

Public Class WebForm2Class WebForm2
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Dim email As New System.Web.Mail.MailMessage
        email.To = "xxb@263.net"
        email.From = "xx@xx.xx"
        email.Body = "BODY"
        email.Subject = "SUBJECT"
        email.BodyFormat = Web.Mail.MailFormat.Text

        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
        '将以下三行中中的,第2个参数,设为你的smtp相应值,即可
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "210.51.180.238")
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "XXXX")
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "XXXX")

        System.Web.Mail.SmtpMail.Send(email)

    End Sub
  
End Class

现在用的JMAIL感觉比较好。。

Imports jmail

Public Class WebForm1Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码

        Jmail_Send("admin@vb.net.cn", "fgvub@163.com", "FASDFASDFASD", "通知", "域名受理", "主题测试", "210.51.180.238")


    End Sub


    Public Function Jmail_Send()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 = "admin@vb.net.cn"  'smtp服务器用户名

        email.MailServerPassWord = "xxxxx"  '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




End Class