紧急向高手求助!!有关Email发送？？？

[akang3150]

我的asp.net 源代码是这样的：
<%@ Import NameSpace="System.Web.Mail"%>
<script runat="server">
Sub Page_Load()
try
Dim objmail as MailMessage=new MailMessage()
objmail.To="[e-mail]"
objmail.From="[e-mail]"
objmail.Subject="你好！"
objmail.Body="祝你工作顺利！"
objmail.BodyFormat=MailFormat.Html

objmail.Priority=MailPriority.High
smtpMail.SmtpServer="mail.18e.net"
SmtpMail.Send(objMail)
Response.Write("你好吗？")
catch e as Exception
Response.Write(e.message)
end Try
end sub
</script>
运行结果错误，信息是：未能访问“CDO.Message”对象。
我把代码改成：objmail.To="[e-mail]"
objmail.From="[e-mail]"
运行正常，并能在[e-mail]邮箱里看到来自[e-mail]的邮件
问候。百思不得其解？
请赐教,不胜感谢！！！

[aspvsphp]

基本清楚了，最大的可能是SMTP的身份验证问题。你的[e-mail]的邮箱可能不需要SMTP身份验证，而[e-mail]可能需要。

[akang3150]

那如何改正呢？？

[aspvsphp]

改用别的办法啊。
使用JMail组件

Jmail具有以下特点：

（1）可以发送附件；
（2）详细日志能力，便于你查看问题所在；
（3）设置邮件发送的优先级；
（4）支持多种格式的邮件发送，比如说以HTML或者TXT的方式发送邮件。这是个免费的组件。
（5）密件发送/(CC)抄送/紧急信件发送能力；
（6）最关键的就是--免费的组件，不必发钱，所以非常值得使用。

网站：http://www.dimac.net/,目前版本是4.3



JMail组件的常用属性：

Body 　　邮件正文

Logging 　　调用Log记录，供Debug用

Priority 　　邮件的优先程度，从1到5

Sender 　　发件人

ServerAddress 　　SMTP服务器的IP地址或名称

Subject 　　邮件标题



JMail组件的常用方法：

AddAttachment 　　指定附件文件

AddRecipient 　　加入一个收件人

AddRecipientBCC 　　隐藏的副本抄送，只有发件人和BCC收件人知道。

AddRecipientCC 　　副本抄送

Execute 　　送出邮件



了解必要的属性及方法后，余下的部分接收使用者输入的Email，当成参数传给AddRecipient方法，然后根据需要填上其余属性，最后以Execute方法寄出。例如：

Dim JMail

JMail = Server.CreateObject("JMail.SMTPMail")

JMail.Logging = True

JMail.ServerAddress = "202.96.144.48"

JMail.Sender = "[e-mail]"

JMail.Subject = "subject."

JMail.Body = "body."

JMail.AddRecipient("[e-mail]")

JMail.AddAttachment("c:\go.gif")

JMail.Priority = 3

JMail.Execute()

JMail = Nothing

[akang3150]

非常感谢！那我如何在网页里直接引用这个控件？？

[akang3150]

请教军军：
我是这样用的
SMTPMailClass mail=new SMTPMailClass();
mail.ServerAddress="mail.18e.net";
mail.Sender="[e-mail]";
mail.AddRecipient("[e-mail]");
mail.Logging=true;
mail.Subject="你好！";
mail.Body="祝你工作顺利！";
mail.Priority=3;
mail.Execute();
可运行后，出现如下错误：
“/openfile”应用程序中的服务器错误，
The message was undeliverable. All servers failed to receive the message

[aspvsphp]

Jmail组建安装了吗？

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

[akang3150]

Message.AddRecipient( string toMailAddress,string RecipientName,string
PGPKey)有三个参数，第二个参数应该是邮件接受者的用户名，不知第三个参数是
什么？并且只设一个参数会出现错误。
email.MailServerUserName = "" 'smtp服务器用户名
email.MailServerPassWord = "" 'smtp服务器密码
设置可以可以直接用默认的win2000 Smtp发送吗？

[aspvsphp]

可以的。

[akang3150]

不知第三个参数是
什么？只设一个参数会出现错误。

[silaswu]

如果需要smtp验证。可以换一个email服务器
比如说一些企业的啊。