jmail4.1用pop3收信的例子 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → jmail4.1用pop3收信的例子

jmail4.1用pop3收信的例子 时间：2004/11/7 2:53:00来源：本站整理作者：蓝点我要评论(0)

<%  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 = ""

        End If



        Set re = Recipients.item(i)

        If re.ReType = 0 Then

            ReTo = ReTo & re.Name & " (" & re.EMail & ")" & separator

        else

            ReCC = ReTo & re.Name & " (" & re.EMail & ")" & 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 & "" &_

                                 at.FileName & "(" & at.Size  & " bytes)" & "" & separator

          Next

    End Function



    %>