用asp发邮件！是不是一定要设置smtp信息！如：jmail发邮件

wuxing 2004-01-06 10:10:24

是不是不设置smtp就发不了

...全文

177 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

seamanc2003 2004-01-07

打赏
举报

对于现行的大多数邮件服务器,为防止别人非法使用自已的邮件服务器发送垃圾邮件,都要求发送邮件时也要进行身份验证.
所以,如果你使用jmail来发邮件,一般是要身份验证的.
这并不是发邮件的程序问题,而是邮件服务器所要求的.

wuxing 2004-01-07

打赏
举报

' 身份验证
JMail.MailServerUserName = "user" ' 身份验证的用户名
JMail.MailServerPassword = "password" ' 身份验证的密码
----------------------------------Jmail的这些代码不要，可不发邮件啊！！！！！！！！

loveme2000ok 2004-01-07

打赏
举报

这个问题我也遇到好几次，下面是我的方法：
（一）这个功能要装上WINDOWS NT OPTON PACK 的SMTP SERVICE。
首先
Set mail = Server.CreateObject("CDONTS.NewMail")以呼叫SMTP Service的元件，然后设定：
mail.To = "收件者E-Mail地址"
mail.From = "寄件者的E-Mail地址"
mail.Subject = "主旨"
mail.Body = "E-mail内文"
最后Mail.Send即开始发送邮件。
例如：
<%
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.TO = "abc@xxx.com"
mail.From = "yourmail@xxx.com"
mail.Subject = "主题"
mail.Body = "E-Mail内容"
mail.Send
（二）如果你希望用ASP发送E-MAIL，你需要安装一个A S P部件。有几种第三方厂商的部件你可以使用。但是在IIS4下，你可以使用CDONTS。

　　虽然名字奇怪，它是很容易使用的并且性能良好。如果你希望使用它，请跟随下面步骤。

　　1.检查你是否安装了SMTP服务。OPTION PACK缺省安装时是包括SMTP服务的。

　　SMTP服务安装后，在你的system32目录下会有一个文件叫CDONTS.DLL。

　　2.你可以用下面的简单脚本通过A S P发送E-MAIL：

　　

　　$#@60;%

　　Dim MailObject

　　Set MailObject = Server.CreateObject("CDONTS.NewMail")

　　MailObject.Send "stelede@ozemail.com.au","stelede@ozemail.com.au","My subject","My text"

　　%$#@62;

　　是不是很简单？

　　

　　发送附件

　　CDONTS的一个常用特性是用来在E-MAIL中发送附件。代码也不难写。

　　$#@60;%

　　Dim MailObject

　　Set MailObject = Server.CreateObject("CDONTS.NewMail")

　　att_file="c:\attachments\StandardPolicy.txt"

　　f_name="Policy.txt"

　　MailObject.From="stelede@ozemail.com.au"

　　MailObject.To="j_smith@zentus.com"

　　MailObject.Subject="Subject Text Here"

　　MailObject.Body="Body Text Here"

　　MailObject.AttachFile att_file,f_name

　　MailObject.Send

　　%$#@62;

　　第三方厂商部件

如果你对CDONTS不满意，下面的地址清单是你可以找到的第三方厂商部件（大多数你需要花钱购买）

　　Blat - http://gepasi.dbs.aber.ac.uk/softw/Blat.html

　　Try Looking through: http://www.15seconds.com/
（三）用ASPMAIL4.5
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Dim Mail As MailSender
strHost = "mail.atlantech.net"
Set Mail = New MailSender
Mail.Host = strHost
Mail.Port = 25
Mail.From = "gdy112@eyou.com"
Mail.FromName = "gdy"
Mail.AddAddress ="gongdaoyu.student@sina.com"
Mail.Subject = "hello"
Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>Dear John:....</BODY></HTML>"
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If

%>
gdy119(中国制造) ( ) 版权

jnyezhi 2004-01-07