<%ÃÂ Set pop3 = Server.CreateObject( “JMail.POP3” )
ÃÂ pop3.Connect “username”, “password”, “pop3mail.intels.net”
à‘ POP3çÂÂè¿ÂæÂ¥ç¨æ·åÂÂ,å¯Âç Â,POP3å°åÂÂ.
à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
àà‘ 以ä¸Âè·åÂÂæÂÂæÂÂæ¶件人,并åÂÂå¨.
ÃÂ ÃÂ Function getAttachments()
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ Set Attachments = msg.Attachments
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ separator = “, “
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ For i = 0 To Attachments.Count – 1
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ If i = Attachments.Count – 1 Then
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ separator = “”
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ End If
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ Set at = Attachments(i)
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ at.SaveToFile( “c:\intels\email\attachments\” & at.Filename )
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ getAttachments = getAttachments & “<a href=””/intels/email/attachments/” & at.Filename &”””>” &_
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ at.FileName & “(” & at.SizeÃÂ & ” bytes)” & “</a>” & separator
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ Next
ÃÂ ÃÂ End Functionxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ 以ä¸Âæ¯ç¨ÂåºÂå¾Âå°éÂÂ件,并ä¿ÂÃ¥ÂÂå°æÂÂå¡å¨ä¸Â,ä¹Âå¯è¿ÂÃ¥ÂÂéÂÂ件é¾æÂÂ¥.
ÃÂ ÃÂ %>ÃÂ ÃÂ
ÃÂ ÃÂ <html>
ÃÂ ÃÂ ÃÂ <body>
ÃÂ ÃÂ ÃÂ ÃÂ <TABLE>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <tr>
àààààà<td>主é¢Â:æ¼éªåÂኼÂÃ¥ÂÂä½ é®好!</td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <td><%= msg.Subject %></td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ </tr>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <tr>
àààààà<td>Ã¥ÂÂ件人:æÂÂéÂÂå°@163.net</td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <td><%= msg.FromName %></td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ </tr>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <tr>
àààààà<td>æ¶件人:å®Âé¢Â浩@163.net</td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <td><%= ReTO %></td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ </tr>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <tr>
àààààà<td>æÂÂéÂÂ:ç³æÂÂé³@163.net</td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <td><%= ReCC %></td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ </tr>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <tr>
àààààà<td>éÂÂ件:éÂÂé£Âèµ·èÂÂçÂÂ传说</td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <td><%= getAttachments %></td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ </tr>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <tr>
àààààà<td>Ã¥ÂÂ
容:ä¹ÂéÂÂÃ¥ÂÂå¦ä¹ÂéÂÂÃ¥ÂÂå¦â¦â¦</td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ <td><pre><%= msg.body %></pre></td>
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ </tr>ÃÂ ÃÂ ÃÂ ÃÂ
ÃÂ ÃÂ ÃÂ ÃÂ </TABLE>
ÃÂ ÃÂ ÃÂ </body></html>
<%ÃÂ end if
ÃÂ pop3.Disconnect
%>
[1]