Set permissions on an Outlook folder with vbscript

[Midwest Muskie]

I am wanting to automatically create mailbox folders and set permissions on
the folders using a script (preferably vbscript). I've figured out how to
create the folders, but can't figure out how to set permissions. Also, how
can I direct the script to use a particular Outlook profile (not have me
select one)?

Thanks for any help you can provilde.

Mike

 

[Ken Slovak - [MVP - Outlook]]

The folder permissions are not exposed in the Outlook object model. You
could use ADSI code to do that, or you could use CDO 1.21 code with the
ACL.dll component.

See http://www.outlookcode.com/archive0/d/exstech.htm for more information.

 

[Midwest Muskie]

Thanks for your quick response, Ken. I visited your web site. It appears
that you have significant programming experience in both Outlook and
Exchange. My company is trying to identify an email archive solution for our
Exchange 2003 system. We may be looking for someone to help us with some
custom programming of Outlook and\or Exchange to integrate with the available
archive solutions out there. Would you be interested in doing some contract
work for us?

 

[Ken Slovak - [MVP - Outlook]]

I do consulting work, but the newsgroup isn't an appropriate place to
discuss that. You can contact me off list about your project requirements.

 

[Midwest Muskie]

I agree, and will be in touch.

Thanks,
Mike

I do consulting work, but the newsgroup isn't an appropriate place to
discuss that. You can contact me off list about your project requirements.

 

[Dmitry Streblechenko]

<plug>
You can also do that with Redemption - RDOFolder.ACL:
http://www.dimastr.com/redemption/rdo/RDOFolder.htm
</plug>

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

 

[Midwest Muskie]

Thank you for your reply, Dmitry. Is the redemption.dll file installed by
default with an Outlook install? That is, should all of my Outlook users be
able to run this script? Can I set permissions with Redemption?

When I run the following script:

set Session = CreateObject("Redemption.RDOSession")
Session.Logon
set Folder = Session.GetDefaultFolder(olFolderCalendar)
for each ACE in Folder.ACL
Debug.Print ACE.Name & " - " & ACE.Rights
next

It generates the following error at the set Folder statement:
Unexpected default folder kind: 0

Any thoughts??

Thanks again,
Mike

 

[Midwest Muskie]

I just looked a little closer at your web page. It appears that Redemption
is a product that you sell. I have a redemption.dll file in my system32
folder. How is that one different from the one you market?

Thanks,
Mike

 

[Dmitry Streblechenko]

It might not be. If you have a product installed that uses Redemption, it
will be on your system. Even if System32 is probably not the best folder to
install anything to.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

 

[Dmitry Streblechenko]

Where does yopur cod run? Did you add Outlook ior Reemption to the projetc
reefrences? Otherwise olFolderCalendar is not defined and VB defaults it to
0.
You can replace olFolderCalendar symbolic constant with 9.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-