View Source Code

SourceFileName = "samples/mail_body.asp"

C:\inetpub\wwwroot\aspsample\samples\mail_body.asp

<!-- このスクリプトはご自由にご利用頂いて結構ですが、転売、無断転用などを禁止いたします。Copyright K.Nakajima -->
<!-- 下記のuseridの部分をお客様のユーザーIDと置き換えて下さい。-->
<!-- 実行には、この「mail_body.asp」の他に「mail_login.asp」と「mail_list.asp」も必要となります。 -->
<HTML>
<HEAD>
<TITLE>Web Mail</TITLE>
</HEAD>
<BODY>
<%
Set oBasp21 = Server.CreateObject("Basp21")

sServer = Request.Cookies("userid-webmail")("server")
sUser = Request.Cookies("userid-webmail")("user")
sPass = Request.Cookies("userid-webmail")("pass")
sDir = "c:\InetPub\wwwroot\userid\_exc\temp"

If Request("NO") <> "" Then
  iNo = CInt(Request("NO"))
Else
  Response.End
End if

sOut = oBasp21.RcvMail(sServer, sUser, sPass, "SAVE " & iNo, sDir)
If IsArray(sOut) Then
  For Each sFile In sOut
    sOut2 = oBasp21.ReadMail(sFile, "", sDir)
    If IsArray(sOut2) Then
      For Each BUF In sOut2
        BUF = Server.HTMLEncode(BUF) 
        BUF = Replace(BUF, Chr(13), "<FONT SIZE=2 COLOR=GREEN>↓</FONT><BR>")
        BUF = Replace(BUF, Chr(10), "")
        If Left(BUF, 5) <> "Body:" Then
          Response.Write "<FONT COLOR=BLUE>" & BUF & "</FONT><BR>" & vbNewLine
        Else
          Response.Write "<HR>"
          Response.Write Mid(BUF, 6) & "<BR>" & vbNewLine
        End If
      Next
    End If
  Next
End If

%>

</BODY>
</HTML>