就不信论坛不能解决这个问题??? - 编程论坛

#2

live412006-09-27 15:09

是不是新版本改了函数名啊?

#3

mingkunlove2006-09-27 15:18

这是源代码:
<% @LANGUAGE=VBSCRIPT %>
<%
Set pop3 = Server.CreateObject( "JMail.pop3" ) '创建对象
pop3.Connect "mingkunlove", "******", "pop3.163.com" '连接服务器 pop3.connect
set msg=server.CreateObject("jmail.message")
separator = ", "
'获得附件
Set Attachments = msg.Attachments
separator = ", "
Response.Write "<br>"&msg.size&"<br>"
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set at = Attachments(i)
at.SaveToFile( "d:\" & at.Name )
getAttachments = getAttachments & "<a href=""" & at.Name &""">" &_
at.Name & "(" & at.Size & " bytes)" & "</a>" & separator
Next

%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<%
if pop3.count > 0 then
%>
<tr>
<td><p> </p>
<p align="center"><%= "您有 " & pop3.count & " 封邮件在您的邮件里<br><br>" %></p></td>
</tr>
<tr>
<td height="300"><table width="100%" border="0">
<tr>
<td colspan="3"> </td>
<td width="341"> </td>
</tr>
<%
'For i = 0 To pop3.count - 1
Set msg = pop3.Messages.item(1)
%>
<tr>
<td width="18">  </td>
<td width="107" valign="top"><div align="right">主题：</div></td>
<td width="16"> </td>
<td> <%=msg.Subject%></td>
</tr>
<tr>
<td> </td>
<td><div align="right" valign="top">发件人：</div></td>
<td> </td>
<td><%= msg.FromName %></td>
</tr>
<tr>
<td> </td>
<td valign="top"><div align="right">内容：</div></td>
<td> </td>
<td>
<pre><%= msg.Body %></pre></td>
</tr>
<tr>
<td> </td>
<td valign="top"><div align="right">附件：</div></td>
<td> </td>
<td><%= getAttachments %></td>
</tr>
<%
'next
%>
<tr>
<td colspan="4"><div align="right"></div></td>
</tr>
<tr>
<td colspan="4"><table width=100% align=center>
<tr>
<td><p align="center"><%=msg%><br>
<br>
<a href='javascript:history.back()'>[返回]</a></p></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%
else
response.write("您的邮箱中还没有未读邮件！！")
end if
pop3.Disconnect
%>

#4

mingkunlove2006-09-27 15:19

*代表邮件密码,这里不显耀了

#5

live412006-09-27 15:31

Set pop3 = Server.CreateObject( "JMail.pop3" ) '创建对象

是提示这里错吗?

呵呵,我不会vbscript,期待斑竹帮你

#6

islet2006-09-27 15:53

错误提示已经说的够详细了

#7

mingkunlove2006-09-27 16:15

请上面的大哥给个意思,问题我早知道现在不是"问题"了,而是如何解决问题!!请给个意思,在线等!!!!!

#8

islet2006-09-27 16:30

我没有用过所以没有发言权

我建议你看看组件有没有例程或帮助之类的

或者你引用程序有没有提示用那个版本

#9

mingkunlove2006-09-28 10:29

真郁闷了,请论坛高手帮一下吧!!等好几天了,竟然这个小问题没有解决???,如果谁有asp+w3 jmail,接收邮件的测试好的程,能不能发过来共享一下???

[此贴子已经被作者于2006-9-28 10:43:45编辑过]

#10

zhouyazun2008-07-01 10:33

JMail4.0的好像可以

#11

hmhz2008-07-01 10:48

只做过发送邮件，没做过接收邮件