关于JMail收邮件的问题?

[sear]

为什么
Set Mail_MSG = POP3.Messages.Item(10)
改为循环变量Set Mail_MSG = POP3.Messages.Item(Temp_FlagForI)
之后就会出现
jmail.Messages 错误 '8000ffff'

WSAGetLastError() returned 10038, Socket operation on non-socket

的错误呢?? 下面是代码


'创建JMail组件POP3邮件接受对象POP3
Set POP3 = Server.CreateObject("JMail.POP3")
POP3.Connect "SOMEON00007","sdfsdfsd","POP.163.COM"
Set Messages = POP3.Messages

Class Class_Mail
Public Function MailCount()
Int_MailSum = 0
'统计所有发件人姓名符合条件
Response.Write POP3.Messages.Count

For Temp_FlagForI = 1 To POP3.Messages.Count - 1
Response.Write Temp_FlagForI&"<br>"
'Set Mail_MSG = POP3.Messages.Item(Temp_FlagForI)
' If Mail_MSG.FromName = "网易公司" Then
' Int_MailSum = Int_MailSum + 1
' End If
Next

'MailCount = Int_MailSum
End Function
End Class

[demo大师粉丝]

我给你一个，可以正常运行的
<%
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect "[e-mail]", "123456", "pop.163.com"
Response.Write( "你現在有" & pop3.count & " 封郵件。<br/><br/>" )
if pop3.count > 0 then
Set msg = pop3.Messages.item(1)
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separator = ", "
For i = 0 To Recipients.Count - 1
If i = Recipients.Count - 1 Then
separator = ""
End If

Set re = Recipients.item(i)
If re.ReType = 0 Then
ReTo = ReTo & re.Name & "" & re.EMail & "" & separator
else
ReCC = ReTo & re.Name & "" & re.EMail & "" & separator
End If
Next

%>
<%= msg.FromName %>
收件人:<%= ReTO %>
抄送:<%= ReCC %>
附件:<%= getAttachments %>
內容:<%=msg.Body%>
<% end if
pop3.Disconnect
%>

[sear]

但是我希望我的这个问题有人帮我解决下 要不以后遇见这种问题还是不会呀