我XP系统用的ws Jmail 4.3的组件，就高手帮助。
我XP系统用的ws Jmail 4.3的组件，网页里测试邮箱，点提交发送后，没有出错，可是接收不了邮件，我用的是QQ邮件发送和接收，代码如下，请高手帮助。我用探测Jmail看是否支持却说，不支持，我该如何呢？ QQ邮箱需要开启SMTP功能才行的，默认QQ不是开启的 http://a79.photo.store.qq.com/psb?/V13CcHiG22xeJz/N64XOz*JkrgkT9mdlihrH0z8ydHvhkhX8Nvaaq8s9Mg!/a/YV36Fy.GlAAAYkk0JC83lgAA
我以开启了，
下面是我的代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<script type="text/javascript">
function Mycheck(form)
{
for(i=0;i<form.length;i++)
{
if (form.elements.value=="")
{
alert("请输入完整信息内容。");
return false;
}
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<% if request.form("hidd") = "" then %>
<form name="form1" method="post" action="">
<table width="755" height="416" border="1" cellpadding="0" cellspacing="0">
<tr>
<td width="185">CDONTS组件使用</td>
<td width="570"> </td>
</tr>
<tr>
<td>收件人：</td>
<td><input name="shoujianrendizhi" type="text" id="shoujianrendizhi"></td>
</tr>
<tr>
<td>发件人：</td>
<td> </td>
</tr>
<tr>
<td>密码：</td>
<td> </td>
</tr>
<tr>
<td>地址：</td>
<td> </td>
</tr>
<tr>
<td>邮件标题：</td>
<td><input name="biaoti" type="text" id="biaoti"></td>
</tr>
<tr>
<td>邮件内容：</td>
<td><textarea name="neirong" cols="60" rows="6" id="neirong"></textarea></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td><input name="hiddenField" type="hidden" value="1"></td>
<td><input name="send" type="submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
<% else %>
<%
dim strshoujianrendizhi,strbiaoti,strneirong,strfajianrendizhi,stryoujianfuwuqidizhi,strfajianrenxingming,msg
strshoujianrendizhi=request.form("shoujianrendizhi")
strbiaoti=request.form("biaoti")
strneirong=request.form("neirong")
strfajianrendizhi = "448571358@qq.com"
stryoujianfuwuqidizhi = "smtp.qq.com"
strfajianrenxingming = "小张"
set msg = server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charest = "gb2312"
jmail.ContentType = "text/html"
msg.AddRecipient = strshoujianrendizhi
msg.FromName = strfajianrenxingming
msg.From = strfajianrendizhi
msg.MailServerUserName = "448571358"
msg.MailServerPassword = "xiaoxiao"
msg.Priority = 1
msg.Subject = strbiaoti
msg.Body = strneirong
msg.Send(stryoujianfuwuqidizhi)
msg.Close()
%>
<% end if %>
</body>
</html>
[ 本帖最后由 qq448571358 于 2011-10-15 00:40 编辑 ]
回复 2楼 山坛兄弟 的帖子
我QQ都开启了SMTP了，有图，你看看，请高手帮助 求高手讲解，[ 本帖最后由 山坛兄弟 于 2011-10-15 12:53 编辑 ]
回复 6楼 山坛兄弟 的帖子
版主好人，我看到你加我QQ了，你下回啥时候上线呢？我们在线聊好吗？
我一般晚上都在线，
我等你啊。
页:
[1]
