|
<!-- 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>" & _ |