Verschieben via Skript sperren

Hallo Zusammen,

in unserem David haben wir ein Skrip eingepflegt um E-Mails einfach ablegen zu können. Dieses Skript wird mir jetzt zum Verhängnis.

Ich habe einen Ordner, hier dürfen keine E-Mails gelöscht werden. Entsprechend habe ich die NTFS Rechte vergeben.Dies funktioniert auch ABER ich kann die E-Mails immernoch via Skrip ablegen.
Tue ich das, sind die E-Mails aus diesem einem Ordner auch verschwunden. Weiß jmd wie ich das blokieren kann?

Hier mein Skript:

Zitat

sBarName = "In Ablage"

sDestArchive = "Ablage"
sSizeIcon = "Doc-stat.ico"

sub Initialize(oInfoCenter, key)
Set oBar = oInfoCenter.GetCommandBar("Menu/entries")
oBar.Insert "Extras/#start", cstr(sBarName), key, cstr(sSizeIcon), "OnInvoke", true
end sub

sub OnInvoke(oInfoCenter, oContext)
Set oEntryList = oInfoCenter.EntryList
Set oSelection = oEntryList.Selection
Set oTree = oInfoCenter.ArchiveTree
Set oArchive = oTree.SelectedArchive
Set oDestArchive = oInfoCenter.Account.GetArchive(sDestArchive)
for each oItem in oSelection
Set oMsgItem = oItem.GetInterface2
oMsgItem.Move oDestArchive, true
Next
oEntryList.refresh
end sub

Alles anzeigen

Hallo stsm,

vielen Dank für den Tipp. Aber ich in bezüglich der Skripts dann wohl nicht so vassiert.

Könntest du mir ein Beispiel posten was ich da reinschreiben muss wenn der Ordner in z.B Unverteilt/A/B liegt.