|
<% Set pop3 = Server.CreateObject( "JMail.POP3" ) 'pop3的连接用户名，密码，pop3地址 pop3.Connect "username", "password", "mail.mydomain.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 & " (<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 '这个程序得到附件，并且保存到服务器的硬盘上。也可以返回附件的详细连接 |