[分享] 我的成果，与你分享~~~
在用CDO的NTS发送电子邮件时出现了网易的邮箱收不到发去的邮件，于是我有试着用Jmail来发送，测试了还真可行！下面是我的原程序，拿来与大家一起分享，大家有什么更好的，也让小弟学学哦~~~~~~~~~'***************************************************
'填写信件内容页面 mail.asp
'***************************************************
<html>
<head>
<title>用jmail组件发送邮件</title>
</head>
<body>
<center>
<h1>用jmail组件发送邮件</h1>
</center>
<hr>
<form method="post" action="post.asp">
请如实填写以下内容：<br>
邮件主题:<br>
<input type="text" size="25" name="subject"><br>
收件人邮箱：<br>
<input type="text" size="25" name="toemail"><br>
发信人邮箱：<br>
<input type="text" size="25" name="email"><br>
发信人姓名:<br>
<input type="text" size="25" name="name"><br>
详细内容:<br>
<textarea name="body" cols="40" rows="5" wrap="physical"></textarea>
<BR><input type="submit" value="寄出">
</form>
</body>
</html>
'****************************************************
'执行发送和返回信息页面 post.asp
'****************************************************
<html>
<body>
<%dim name,msg,sendmail
name=request.form("name")
set msg = server.createobject("jmail.message")
msg.silent = true
msg.logging = true
msg.charset = "gb2312"
msg.mailserverusername = "123456"'输入smtp服务器验证登陆名 （如：email帐号为123456@123.com,则该处为123456）
msg.mailserverpassword = "*******"'输入smtp服务器验证密码 （用户email帐号对应的密码）
msg.subject = request.form("subject")'信件主题
msg.addrecipient request.form("toemail")'收件人email
msg.from = "123456@123.com" '发件人email，应该与上面的对应，例中是123456@123.com
if name<>"" then
msg.fromname = name'发件人姓名
end if
msg.body = request.form("body") '正文
msg.returnreceipt=true
msg.send ("smtp.123.com")'smtp服务器地址（企业邮局地址,与前面的对应）
set msg = nothing
if err then
sendmail=err.description
err.clear
else
sendmail="ok"
end if
if sendmail="ok" then
response.wrute"邮件发送成功，谢谢使用!"
else
response.wrute"由于系统错误，邮件未能成功发送!"
end if
%>
</body>
</html>
[此贴子已经被作者于2005-11-21 16:41:26编辑过]
