Жесткое удаление правил Exchange через vbs

Я пытаюсь удалить OOF-правила с биржи. Ниже приведен скрипт vbs.

Set objsession = CreateObject("MAPI.session")
objsession.Logon "", "", False, False, 0, True, server & vbLf & mailbox
Set objInbox = objsession.Inbox
Set objHidden = objInbox.HiddenMessages
For i= 1 To objHidden.Count
Set objRule = objHidden.Item(i)
...Validation if the item actually is an oof-rule...
objRule .Item(i).Delete

Это прекрасно работает для некоторых правил. Однако в большинстве случаев я получаю сообщение об ошибке в последней строке: "MAPI_W_PARTIAL_COMPLETION(40680)"

Я попробовал то же самое в MFCMAPI и получил то же сообщение об ошибке при простом удалении правила. Однако, если я выбрал «Постоянное удаление с передачей DELETE_HARD_DELETE», все работает нормально...

поэтому мой вопрос: как я могу передать этот флаг Delete_hard_delete в vbs? Это вообще возможно?

В качестве альтернативы я мог бы также использовать другой язык программирования и/или выкуп

Обновление: это работает с Redemption... Похоже, что Redemption пропускает этот флаг по умолчанию.

Vbs-код:

Const olFolderInbox = 6
set Session = CreateObject("Redemption.RDOSession")
Session.LogonHostedExchangeMailbox _
"targetmailbox", _ 
"user", _ 
"password"
set Rules = Session.Stores.DefaultStore.Rules 
for each Rule in Rules
  Rule.Delete
next

exchange-server vbscript mapi outlook-redemption
person Hamster    schedule 08.07.2015    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Redemption предоставляет правила через коллекцию RDOExchangeMailboxStore.Rules.

Если вы хотите использовать флаг DELETE_HARD_DELETE, RDOMail.Delete принимает необязательный аргумент (redDeleteFlags). . Одно из значений перечисления — dfHardDelete(2).

person Dmitry Streblechenko    schedule 08.07.2015
comment
Метод Delete объекта RDORule не принимает никаких параметров... Во всяком случае, я думаю, что параметр delete_hard_delete передается по умолчанию, так как этот метод работает нормально. Благодарю вас! Обновлен мой вопрос с рабочим кодом - person Hamster; 09.07.2015
comment
Правильно, только RDOMail.Delete принимает параметр. - person Dmitry Streblechenko; 09.07.2015