附件readmail.asp

领测软件测试网 <!--
    This sample script uses the CDO for NTS Library to
    read e-mail for a specific user.
    Leon Braginski & Matt Powell (c)
-->
<%@ LANGUAGE = "VBScript" %>
<%
If (Request.ServerVariables ("REQUEST_METHOD") = "POST") then
    Name = Request.Form("name")
    Email = Request.Form("ename")
else
    @# Assume it is GET
    Name = Request.QueryString("name")
    Email = Request.QueryString("email")
end if

If (Email = "") OR (Name = "") then
    Response.Write "You have to supply name and email <BR>"
    Response.End
End If

Set objSession = Server.CreateObject ("CDONTS.Session")
objSession.LogonSMTP Name, Email
Set objInbox = objSession.GetDefaultFolder(1)

If objInbox Is Nothing Then
    Set collMessages = Nothing
    Response.Write "Can@#t get folder. <br>"
    objSession.Logoff
    Response.End
End If

Set collMessages = objInbox.Messages

If (collMessages.Count = 0) Then
    Response.Write  "<center> User <b>"  & Name & "</b>" & _
        " (email:  <b>" & Email & "</b>) does not have messages"
    Response.End
    objSession.Logoff
end if

Response.Write  "<center> User <b>"  & Name & "</b>" & _
    " (email:  <b>" & Email & "</b>) has <b>"& _
    collMessages.Count & "</b> message(s) </center> <p>"

Response.Write "<TABLE BORDER WIDTH=100% >"
Response.Write "<TR> <TD WIDTH=10% > <i>ID</i></TD>" & _
    "<TD WIDTH=15% > <i>From</i></TD>" & _
    "<TD WIDTH=15% > <i>Subject</i> </TD> " & _
    "<TD WIDTH=60% > <i>Message Text</i></TD> </TR>"

For Mes = 1 To collMessages.Count
    Set objMessage = collMessages.Item(Mes)
    Response.Write "<TR> <TD WIDTH=10% >" & Mes & "</TD>" & _
        "<TD WIDTH=15% >" & objMessage.Sender.Name & "</TD>" & _
        "<TD WIDTH=15% >" & objMessage.Subject & "</TD>" & _
        "<TD WIDTH=60% >" & objMessage.Text & "</TD> </TR>"
Next

Response.Write "</TABLE>"
%>

文章来源于领测软件测试网 https://www.ltesting.net/