1. ホーム
  2. Web プログラミング
  3. プログラミング10000問

POP3でメールを受信するには?

2022-01-17 20:52:18

<% Set pop3 = Server.CreateObject( "JMail.POP3" )
  pop3.Connect "ユーザ名", "パスワード", "pop3mail.intels.net"
  ' POP3
の接続ユーザー名。 , パスワード <スパン ,POP3 アドレス <スパン .
  Response.Write( " これで " & pop3.count & " <スパン 電子メール <br><br>" ).
  if pop3.count > 0 then
    msg = pop3.Messages.item(1)を設定します。   
    ReTo = ""
    ReCC = ""
    Set Recipients = msg.Recipients
    separator = ", "
    For i = 0 To Recipients.Count - 1
        もし i = Recipients.Count - 1 ならば
            separator = ""
        終了
        セット re = Recipients.item(i)
        If re.ReType = 0 Then
            ReTo = ReTo & re.Name & "(<a href=""mailto:"& re.EMail & "">" re.EMail & "">" amp; "</a>)" &.ReTo (Re.EMail&"&quo;"&quo;/tmp)
セパレータ
        その他
            ReCC = ReTo & re.Name & "(<a href=""mailto:"& re.EMail & "">" & re.EMail & amp; "</a>)" & separator...
        終了 If
    次へ
<スパン
' 上記のすべての受信者を取得する , およびストア .
    関数 getAttachments()
          セット・アタッチメント = msg.Attachments
          separator = ", "
          For i = 0 To Attachments.Count - 1
            もし i = Attachments.Count - 1 ならば
                separator = ""
            終了
            セット アット = アタッチメント(i)
            SaveToFile( "c:\intelsemailattachments" & at.Filename )
            getAttachments = getAttachments & "<a href="/intels/email/attachments/" & at.Filename & """& quot;>" &_)
                                at.FileName & "(" & at.Size & " bytes)" "</a>" & 区切り記号
          次のページ
    終了関数 <未定義

' 上記は添付ファイルを取得するためのプログラムです , を作成し、サーバーに保存します。 , また、添付ファイルのリンクに戻ることができます .
    %>   
    <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>
Cc <スパン : <スパン シェン・チャオヤン 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]