IMF Archive Manager zum Anzeigen als Webseite .asp
Also ich habe versucht dieses Skript einzubinden,das zum Anzeigen der Spammails als Webseite dient, um es der Sekretärin zu übergeben die Spam-Mails zu löschen.
http://hellomate.typepad.com/exchange/2004/06/imf_archive_man.html
Ich habe die Wordanleitung befolgt ,mir wird auch die Webseite angezeigt.
Leider bekomme ich einen Laufzeitfehler ...
Laufzeitfehler in Microsoft VBScript Fehler "800a0005'
Ungültiger Prozeduraufruf oder ungültiges Argument
/spam/Default.asp, line 101
Sehe ich mir die Zeile 101 an
]
dim ShowRecipient
Dim objFolder
Set objFolder = objFSO.GetFolder(Application("ArchiveDir"))
MsgCount = 0
ListDirectory objFolder
Response.Write ("</TABLE>")
Response.Write ("<P><P>")
Response.Write ("" & MsgCount & " archived messages found")
Response.Write ("<P><P>")
Response.Write ("<A HREF=DeleteAll.asp>Delete all Archived mail</A>")
Nach meinen Verständnis gehts zur Application archiv ......
das finde ich in der global.asa
<script language="vbscript" runat="server">
sub Application_OnStart
Application("ArchiveDir")="D:\Programme\Exchsrvr\Mailroot\vsi 1\UceArchive\"
Application("PickupDir")="D:\Programme\Exchsrvr\Mailroot\vsi 1\PickUp\"
end sub
</script>
Vieleicht hat jemand eine Idee
Ich respektiere Leute die programieren können )-:
Ich kanns net ....
http://hellomate.typepad.com/exchange/2004/06/imf_archive_man.html
Ich habe die Wordanleitung befolgt ,mir wird auch die Webseite angezeigt.
Leider bekomme ich einen Laufzeitfehler ...
Laufzeitfehler in Microsoft VBScript Fehler "800a0005'
Ungültiger Prozeduraufruf oder ungültiges Argument
/spam/Default.asp, line 101
Sehe ich mir die Zeile 101 an
]
dim ShowRecipient
Dim objFolder
Set objFolder = objFSO.GetFolder(Application("ArchiveDir"))
MsgCount = 0
ListDirectory objFolder
Response.Write ("</TABLE>")
Response.Write ("<P><P>")
Response.Write ("" & MsgCount & " archived messages found")
Response.Write ("<P><P>")
Response.Write ("<A HREF=DeleteAll.asp>Delete all Archived mail</A>")
Nach meinen Verständnis gehts zur Application archiv ......
das finde ich in der global.asa
<script language="vbscript" runat="server">
sub Application_OnStart
Application("ArchiveDir")="D:\Programme\Exchsrvr\Mailroot\vsi 1\UceArchive\"
Application("PickupDir")="D:\Programme\Exchsrvr\Mailroot\vsi 1\PickUp\"
end sub
</script>
Vieleicht hat jemand eine Idee
Ich respektiere Leute die programieren können )-:
Ich kanns net ....