<% Set pop3 = Server.CreateObject( "JMail.POP3" )
'pop3的连接用户名,密码,pop3地址
pop3.Connect "username", "password", "mail.mydomain.com"
Response.Write( "你有" & pop3.count & " 封邮件。
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 = ""
...[ 查看全文 ]