求asp发E-mail的代码 - ASP技术论坛

楼主

问题点数：0 回复次数：10

求asp发E-mail的代码

小弟最近在研究用ASP发E-mail的代码,但用了好多,都不能正常发送
故来这里请大侠没给小弟指教下
顺便发点代码过来
小弟不胜感激!

搜索更多相关主题的帖子: asp　代码　 ASP　

第 2 楼

得分:0

个人建议用CDO发邮件，但是你的空间要支持这个技术，你是在本地还是在空间上面呢！
其实网络是有很多的代码的！
你可以先去找找！

程序员的悲哀如何找女朋友？
追女解决方案百度“让她着迷”！

第 3 楼

得分:0

在这个论坛里面，以前发的帖子！你看看！！
Jmail是需要服务器上有Jmail组件的，]我有个不要组件的好办法，使用外部邮件服务器来实现，比如用163的邮箱，你的邮件地址为aaa@163.com，你的密码为123:
<%
dim strsubject,strquery
strsubject=trim("这里是邮件名称")
strquery=trim("这里是邮件内容")
Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort=2
Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic=1
Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig
Dim objMessage
Dim Fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.163.com"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "suny" '这里是你的邮箱用户名
.Item(cdoSendPassword) = "123" '这里是密码
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "目标邮件地址"
.From = "网站来信<suny@163.com>" '收到的邮件会显示的来信名称为“网站来信”
.Subject = strsubject
.TextBody = strquery
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
response.write "<div align=center>邮件已发送成功，谢谢使用！<br><br><a href=javascript:window.close()>确定</a></div>"
%>
当然了，这里只是举个小例子，如果不想把密码和用户名放在ASP文件里，也可以放到数据库中来读取。

我是做平面设计、网站制作、网站推广、主机域名等业务的站长。有需要的给我站内信吧。

第 4 楼

得分:0

<%
set sender=server.CreateObject("mail.sendmail")
sender.SmtpServer="zhongjun.tsinghua.edu.cn"
sender.strContent=Request.Form("txtcontent")
sender.strFromMail=Request.Form("txtfrom")
sender.strReceiveName=Request.Form("txtreceivename")
sender.strSendName=Request.Form("txtsendname")
sender.strSubject=Request.Form("txtsubject")
sender.strToMail=Request.Form("txtto")
result=sender.SendMail
Response.Write result
%>
小贴一下，哪里都有的学

第 5 楼

得分:0

我的空间支持Jmail，但我不知道怎么用啊！
故来这里求代码了，希望各位大侠多多指教！

在此谢过了！

" target="_blank">癫痫 " target="_blank">癫痫病

第 6 楼

得分:0

我有个完整的代码,今天才测试通过的,还有带有html编程器的啊!
只要你复制下边代码就可以用了...

<script language="javascript">
function OpenHTMLEditor(){
window.open('htmleditor/editor.html','','width=768,height=500,top=10,left=10');
}

</script>

<%

action=request("action")
smtp_username=request("smtp_username")
smtp_pwd=request("smtp_pwd")
smtpserver=request("smtpserver")
send_name=request("send_name")
send_email=request("send_email")
receive_email=request("receive_email")
if action="ok" then
'==================================================
' 参数设置开始，请修改相应参数
smtpserver =smtpserver '发送邮件所使用的SMTP服务器，例如smtp.163.com
smtpuser =smtp_username '与SMTP服务器对应的邮箱用户名，
smtppwd =smtp_pwd '与SMTP服务器对应的邮箱密码
'如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码
'与相应SMTP服务器对应的邮件地址
'注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地
'址，比如163.com的SMTP服务器在检查发信人邮件地址是不是以163.com
'结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的
send_email =send_email 'SMTP服务器发信邮箱，请修改
receive_email=receive_email '用来接收邮件的邮箱，请修改,可以与SMTP服务器发信邮箱不同
' 参数设置结束
'==================================================

topic = trim(Request("topic"))
yjbody = trim(Request("yjbody"))
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true '屏蔽例外错误，返回FALSE跟TRUE两值
jmail.Charset = "gb2312" '邮件的文字编码为国标
JMail.ContentType = "text/html" '邮件的格式为HTML格式

jmail.From = send_email
jmail.FromName = send_name

jmail.Subject = topic
jmail.AddRecipient receive_email
jmail.Body = yjbody

jmail.MailServerUserName =smtp_username
jmail.MailServerPassWord =smtp_pwd
isgo = jmail.Send(smtpserver)
if isgo then
msg="邮件发送成功！"
else
msg = "邮件发送失败！请检查您的输入是否有误！"
end if

jmail.Close
set jmail = nothing

end if
%>
<html>
<head>

<title>邮件发送系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">

</style></head>
<body>
<%if msg<>"" then%>
<br><%=msg%><a href="javascript:history.go(-1)">返回上一页</a>
<%else%>

<form action="sendmail.asp" method=post>
<table cellpadding="2" cellspacing="1" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC" border="1" width="760" align=center>
<input type="hidden" name="action" value="ok">
<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow>您的邮箱用户名：</td>
<td width="643" colspan="3" bgcolor="#D7D7D7" class=forumrow><input name="smtp_username" type=text size=30>
<FONT color=#ff0000>*</FONT>[SMTP服务器对应的邮箱用户名]</td>
</tr>
<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow>您的邮箱密码：</td>
<td colspan="3" bgcolor="#D7D7D7" class=forumrow><input name="smtp_pwd" type=password size=30>
<FONT color=#ff0000>*</FONT>[SMTP服务器对应的邮箱密码]</td>
</tr>
<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow>您的SMTP服务器：</td>
<td colspan="3" bgcolor="#D7D7D7" class=forumrow><input name="smtpserver" type=text value="smtp.163.com" size=30>
<FONT color=#ff0000>*</FONT>[发送邮件所使用的SMTP服务器，例如smtp.163.com]</td>
</tr>

<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow>您的姓名：</td>
<td colspan="3" bgcolor="#D7D7D7" class=forumrow><input name="send_name" type=text size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow>您的E-mail：</td>
<td colspan="3" bgcolor="#D7D7D7" class=forumrow><input name="send_email" type=text size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow>收件人E-mail：</td>
<td colspan="3" bgcolor="#D7D7D7" class=forumrow><input name="receive_email" type=text size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow>邮件标题：</td>
<td colspan="3" bgcolor="#D7D7D7" class=forumrow><input type=text name="topic" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow>邮件内容：</td>
<td colspan="3" bgcolor="#D7D7D7" class=forumrow><textarea name="yjbody" cols=80 rows=6 id="yjbody"></textarea>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="106" bgcolor="#BCBCBC" class=forumrow></td>
<td height=20 colspan="3" bgcolor="#D7D7D7" class=forumrow>
<input type="Submit" value="发送邮件" name="Submit">
 
<input type="reset" name="Clear" value="重新填写">
<input type=button name=b1 style="width:100px;" value="HTML编辑器" onClick="javascript:OpenHTMLEditor();"></td>
</tr>
</table>
</form><%end if%>

</body>
</html>

第 7 楼

得分:0

请问谁有.asp+jmail接收邮件的代码,发过来看看吧,我有个代码老出错,不知道为什么??

我用w3 jamil做个邮件接收程序为什么老出现:
错误类型：
jmail.POP3 (0x8000FFFF)
This function is not included in this version of jmail. /receivemail.asp, 第 4 行
____
我用的是最新版本啊,为什么说这个版本中不包括这个函数了?

第 8 楼

得分:0

我刚用你的代码发了几次，不行啊！
我也试着修改了几处代码，但都无济于事啊！

" target="_blank">癫痫 " target="_blank">癫痫病

第 9 楼

得分:0

能否不借助别的服务器
直接用自己的服务器发啊！
我的服务器装了JMail.SmtpMail
不知道是不是这个组件不适合楼上给的代码啊！

" target="_blank">癫痫 " target="_blank">癫痫病

第 10 楼

得分:0

你安装,w3 jmail组件一定可以发的,我每次都可以成功的,现在这几天在做收邮件的程序,老是出现
jmail.POP3 (0x8000FFFF)
This function is not included in this version of jmail.
/email/rece.asp, 第 3 行
##################################
请高手指教这是怎么回事了?????