jmail4.1用pop3收信的例子

　2001-01-04 10:56:45　来源：WEB开发网　　　

核心提示：<%Set pop3 = Server.CreateObject( "jmail.POP3" )'pop3的连接用户名，密码，jmail4.1用pop3收信的例子，pop3地址pop3.Connect "username", "passWord"

<%　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
　　
　　'这个程序得到附件，并且保存到服务器的硬盘上。也可以返回附件的详细连接
　　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:\EMail\attachments\" & at.Filename )
　　　　　　 getAttachments = getAttachments & "<a href=""/EMail/attachments/" & at.Filename &""">" &_
　　　　　　　　　　　　　　　　 at.FileName & "(" & at.Size　& " bytes)" & "</a>" & separator
　　　　　Next
　　End Function
　　　
　　%>　　
　　<html>
　　　<body>
　　　　<TABLE>
　　　　　<tr>
　　　　　　<td>邮件标题</td>
　　　　　　<td><%= msg.Subject %></td>
　　　　　</tr>
　　　　　<tr>
　　　　　　<td>发件人</td>
　　　　　　<td><%= msg.FromName %></td>
　　　　　</tr>
　　　　　<tr>
　　　　　　<td>收件人</td>
　　　　　　<td><%= ReTO %></td>
　　　　　</tr>
　　　　　<tr>
　　　　　　<td>抄送</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

%>