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:
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