vbscript - Hard delete Exchange rules via vbs -
i trying remove oof-rules exchange. following vbs script
set objsession = createobject("mapi.session") objsession.logon "", "", false, false, 0, true, server & vblf & mailbox set objinbox = objsession.inbox set objhidden = objinbox.hiddenmessages i= 1 objhidden.count set objrule = objhidden.item(i) ...validation if item oof-rule... objrule .item(i).delete
this works fine rules. however, in cases, receive error in last line: "mapi_w_partial_completion(40680)"
i tried same in mfcmapi , received same error message there when deleting rule. however, if chose "permanent delete passing delete_hard_delete", works fine...
so question is: how can pass delete_hard_delete flag in vbs? possible?
as alternative, use programming language and/or redemption
update: works redemption... looks redemption passes flag default.
vbs-code:
const olfolderinbox = 6 set session = createobject("redemption.rdosession") session.logonhostedexchangemailbox _ "targetmailbox", _ "user", _ "password" set rules = session.stores.defaultstore.rules each rule in rules rule.delete next
redemption exposes rules through rdoexchangemailboxstore.rules collection.
if want use delete_hard_delete flag, rdomail.delete takes optional argument (reddeleteflags). 1 of enum values dfharddelete(2).
Comments
Post a Comment