POP3,接收邮件头。
------------------------
EmailUserName=账号
EmailUserPass=密码
EmailUserPOP= POP3服务器地址
Set POP3 = Server.CreateObject("JMail.POP3")
POP3.Connect EmailUserName,EmailUserPass,EmailUserPOP
POP3.DownloadHeaders
if POP3.Count=0 then
Response.end
end if
For I=1 To POP3.Count
Subject=POP3.Messages.Item(I).Subject
FromAddress=POP3.Messages.Item(I).From
FromName=POP3.Messages.Item(I).FromName
Response.write "<br>" & Subject '主题
Response.write "<br>" & FromAddress '发件人Email
Response.write "<br>" & FromName '发件人姓名
Response.write "<br>" & POP3.Messages.Item(I).Date '邮件到达服务器的时间
Next
POP3.Disconnect