ASP代码接收163邮件的问题!
<%w=Request.QueryString("w")ifw=""thenw=1%><%Setpop3=Server.CreateObject("JMail.POP3"...
<%
w=Request.QueryString("w")
if w="" then w=1%>
<% Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect "ABCD@163.com", "123456", "pop.163.com"
' POP3的连接用户名,密码,POP3地址
Response.Write( "你现在有" & pop3.count & " 封邮件。<br><br>" )
if pop3.count > 0 then
Set msg = pop3.Messages.item(w)
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
'ReTo = ReTo & re.Name & "(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" & separator
else
ReCC = ReTo & re.Name & "(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" & separator
End If
Next%>
这样只能通过改变“W”的值来接收不同的邮件,但看不出这个W跟日期有什么关系!求高手指点指点~ 展开
w=Request.QueryString("w")
if w="" then w=1%>
<% Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect "ABCD@163.com", "123456", "pop.163.com"
' POP3的连接用户名,密码,POP3地址
Response.Write( "你现在有" & pop3.count & " 封邮件。<br><br>" )
if pop3.count > 0 then
Set msg = pop3.Messages.item(w)
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
'ReTo = ReTo & re.Name & "(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" & separator
else
ReCC = ReTo & re.Name & "(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" & separator
End If
Next%>
这样只能通过改变“W”的值来接收不同的邮件,但看不出这个W跟日期有什么关系!求高手指点指点~ 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询