どのように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]
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]