江湖救急，这种形式的EMail发送（从[email protected]到[email protected] ）怎么办？

Question

试过Asp.net里的Mail类可以发但是很不稳定，
webeasymail也说对asp.net支持不是很好，
你能给个建议吗？

Answer 1

公司通过adsl上网的，
这样的jmail怎么设置就可以上网了呢？

Answer 2

用jmail
实在不行，不用codeBehind
就一般性的写在aspx页面上。或者用exchange
又或者ibm&lotus什么的

Answer 3

下面这段是我们网站发送注册密码给用户的代码，效果不错，还需两个DLL文件，需要的话给我留言。或加我QQ：75749174我发给你（也是参考别人的）        
 Public Function SendPasswordToUser(ByVal userName As String, ByVal userPassword As String, ByVal email As String, ByVal activeCode As String) As String
            Try
                Dim body As New System.Text.StringBuilder
                body.Append(userName & ", 您好！" & vbCrLf)
                body.Append("    您在http://www.ku8.cn网站注册帐号成功" & vbCrLf)
                body.Append("－－－－－－－－－－－－－－－－－－" & vbCrLf)
                body.Append("    用户名： " & userName & vbCrLf)
                body.Append("    密码： " & userPassword & vbCrLf)
                body.Append("    注册时间： " & Now() & vbCrLf)
                body.Append("－－－－－－－－－－－－－－－－－－" & vbCrLf)
                body.Append("您的账号需要激活才能使用，请点击下面的地址或者将地址粘贴到IE地址栏提交：" & vbCrLf)
                body.Append("http://www.gxlv.com/ku8/member/AccountActive.aspx?UserName=" & userName & "&ActiveCode=" & activeCode & vbCrLf)
                body.Append("注意：如果注册后48小时内不激活的话，该帐号会被系统自动清除！" & vbCrLf)
                body.Append("－－－－－－－－－－－－－－－－－－" & vbCrLf)
                body.Append("酷吧中文娱乐网　http://www.ku8.cn" & vbCrLf)
                body.Append("=========================" & vbCrLf)
                body.Append("http://www.ku8.cn技术邮件" & vbCrLf)
                body.Append("[email protected]" & vbCrLf)
                body.Append("=========================" & vbCrLf)
                Dim MailSender As CDO.Message = New CDO.Message
                MailSender.From = "[email protected]"
                MailSender.To = email                MailSender.Subject = "您在酷吧中文娱乐网的注册密码"
                MailSender.TextBody = body.ToString
                Dim XConfig As CDO.IConfiguration = MailSender.Configuration
                Dim oFields As ADODB.Fields = XConfig.Fields
                oFields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2
                oFields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = "[email protected]" '设置你的SMTP服务器用户名
                oFields("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = "lg76509547" '设置你的SMTP服务器用户密码
                oFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1
                oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = "mail.cctvdns.com" '设置你的SMTP服务器
                oFields.Update()
                MailSender.Send()
                MailSender = Nothing
                Return "发送成功"
            Catch ex As System.Runtime.InteropServices.COMException
                Return ex.Message
            End Try        End Function

Answer 4

问题解决了，和楼上的代码差不多，原来主要是在公司里不稳定，当搬到服务器上去的时候稳定了，发MAIL从没出现过问题。接贴！！！