<% Option Explicit
' Written by Daryl Maunder Midnight Oil Computing Pty Ltd
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim SCL
Dim xsender
dim xreceiver
dim MsgSubject
dim MsgCount
Sub ListDirectory(objFolder)
Dim objFile
Dim objSubFolder
For Each objFile in objFolder.Files
MsgCount = MsgCount + 1
Response.Write ""
' Open the file
Dim TextStream
Set TextStream = objfile.OpenAsTextStream(ForReading,TristateUseDefault)
Dim Line
' Read the X-Sender from the first line
Line = TextStream.readline
XSender = "-"
If Left(Line,10) = "x-sender: " then XSender=Right(Line,len(Line)-10)
If XSender = "" then XSender = "-"
Response.write "| " & xsender & " | "
' Read the x-receiver from the second line
Line = TextStream.readline
If Left(Line,12) = "x-receiver: " then xreceiver=Right(Line,len(Line)-12)
If Xreceiver = "" then Xreceiver = "-"
Response.write "" & xreceiver & " | "
' Read the x-SCL from the third line
Line = TextStream.readline
If Left(Line,7) = "X-SCL: " then scl=Right(Line,len(Line)-7)
SCL = Left(SCL,1)
If SCL = "" then SCL = "-"
Response.write "" & scl & " | "
Dim SubjectFound
SubjectFound = false
Do While Not TextStream.AtEndOfStream and not SubjectFound
Line = TextStream.readline
If Left(Line,9) = "Subject: " then
SubjectFound = True
MsgSubject = Right(Line,len(Line)-9)
End if
Loop
If MsgSubject = "" then MsgSubject="-"
Response.Write "" & MsgSubject & " | "
Set TextStream = nothing
Response.Write "View | "
Response.Write "Resubmit | "
Response.Write "Delete | "
Response.Write "
"
Next
End Sub
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
%>
Exchange IMF Archive Manager
Delete all Archived mail
| From |
To |
SCL |
Subject |
<%
dim ShowRecipient
Dim objFolder
Set objFolder = objFSO.GetFolder(Application("ArchiveDir"))
MsgCount = 0
ListDirectory objFolder
Response.Write ("
")
Response.Write ("")
Response.Write ("" & MsgCount & " archived messages found")
Response.Write ("
")
Response.Write ("Delete all Archived mail")
%>