どのようにPOP 3で電子メールを受信しますか?


<%  Set pop 3=Server.reate Object(「JMail.POP 3」)  pop 3.Connect「username」「password」「pop 3 mail.intels.net」  ' POP 3の接続ユーザ名、パスワード、POP 3アドレス。  Resonse.Write(「今持っています」&pop 3 count&「メールを送ります。br/>
  if pop 3.count>0 then    Set msg=pop 3.Messages.item(1)        ReTo="    ReCC="    Set Recipients=msg.Recipints    separator=","    For i=0 To Recipints.sont-1        If i=Recipients.Coount-1 The n            separator="        End If        Set re=Recipients.item(i)        If re.ReType=0 The n            ReTo=ReTo&re.Name&"(malto:「&re.EMail&」「"""""""""""&re.EMail&""""/")&separator        End If    次のテックス   ' 以上のべたの受信者を取得し、保存します。    Function getAttachments()          Set Attachments=msg.Attachments          separator=","          For i=0 To Attachmens.sont-1            If i=Attachments.soount-1 The n                separator="            End If            Set at=Attachments(i)            at.SaveToFile(「c:\intels\email\at chments」&at.Filename)            get Attachments=get Attachments""「separator」          次のテックス    End Function以上は、プログラムが添付されていて、サーバーに保存されています。    %>                                                                                                                                                                                                                                            テ-マ:雪を揺らして云を吹きかけて、よろくくお伝えください。td>            <%=msg.Subject%>差出人:李雁氷@163.net(/td)            <%=msg.From Name%>受取人:宋顔浩@163.net(/td)            <%=ReTO%>書きました:申朝日@163.net(/td)            <%=ReCC%>添付ファイル:風に舞う伝説<%=get Attachments]>内容:ウリマギャギャーギャザーギャギャザー…            <%=msg.body%>      <%  end if  pop 3.Disconnect%>[1]