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

Popular posts from this blog

toolbar - How to add link to user registration inside toobar in admin joomla 3 custom component -

linux - disk space limitation when creating war file -