Outlook Technologies

Outlook Forms

Languages

Samples

More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

share code 09-Sep-2010 06:05

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: advanced Code area: Outlook Expert Techniques Printer Friendly Version
Title: Check calendar folder Permissions
Description: This will check the calendar folder permissions and output them to a file in the "perms" folder with the mailbox name.
Date: 01-Dec-2005 13:50
Code level: advanced
Code area: Outlook Expert Techniques
Posted by: Chris Quinn
Body: 'Usage checkperm %mailbox% %server% Dim CalendarRights, userDelegate Dim strProfileInfo strServer = Wscript.Arguments.Item(1) strMailbox = Wscript.Arguments.Item(0) Const ForReading = 1 Const ForAppending = 8 Const RIGHTS_EDIT_OWN = &h8 Const RIGHTS_EDIT_ALL = &h20 Const RIGHTS_DELETE_OWN = &h10 Const RIGHTS_DELETE_ALL = &h40 Const RIGHTS_READ_ITEMS = &h1 Const RIGHTS_CREATE_ITEMS = &h2 Const RIGHTS_CREATE_SUBFOLDERS = &h80 Const RIGHTS_FOLDER_OWNER = &h100 Const RIGHTS_FOLDER_CONTACT = &h200 Const RIGHTS_FOLDER_VISIBLE = &h400 Const RIGHTS_NONE = 0 Const ROLE_OWNER = &h5e3 Const ROLE_PUBLISH_EDITOR = &h4e3 Const ROLE_EDITOR = &h463 Const ROLE_PUBLISH_AUTHOR = &h49b Const ROLE_AUTHOR = &h41b Const ROLE_NONEDITING_AUTHOR = &h413 Const ROLE_REVIEWER = &h401 Const ROLE_CONTRIBUTOR = &h402 Const ROLE_NONE = &h400 Const UDefault = "ID_ACL_DEFAULT" Const UAnonymous = "ID_ACL_ANONYMOUS" Set objFSO = CreateObject("scripting.filesystemobject") On Error Resume Next objfso.CreateFolder("perms") On Error Goto 0 If objFSO.FileExists("perms\" & strMailbox & ".txt") Then objFSO.DeleteFile("perms\" & strMailbox & ".txt") End If Set objOutputTextFile = objFSO.OpenTextFile ("perms\" & strMailbox & ".txt", ForAppending, True) Set objACLObject = CreateObject("MSExchange.ACLObject") Set objSession = CreateObject("MAPI.Session") strProfileInfo = strServer & vbLf & strMailbox objSession.Logon , , False, True, , True, strProfileInfo 'Get the Default Information store and Calendar Folder Set objStore = objSession.GetInfoStore("") Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderCalendar) objACLObject.CDOItem = objFolder Set objACEs = objACLObject.ACEs Set objACEs2 = objACLObject.ACEs For Each userAce in objACEs2 Select Case userAce.ID Case UDefault userDelegate = "UDefault" Case UAnonymous userDelegate = "UAnonymous" Case Else Set TempEntry = objSession.GetAddressEntry(userAce.ID) userDelegate = UCase(TempEntry.Name) End Select Select Case userAce.Rights case "0" CalendarRights = "none" case "2043" CalendarRights = "OWNER" case "1179" CalendarRights = "PUBLISHING AUTHOR" case "1147" CalendarRights = "EDITOR" case "1025" CalendarRights = "REVIEWER" case "1275" CalendarRights = "Publishing Editor" case "1051" CalendarRights = "Author - 1051" case "1563" CalendarRights = "Author + Folder Contact - 1563" Case "1024" CalendarRights = "Folder Visible - 1024" Case "1026" CalendarRights = "CONTRIBUTOR" Case "1043" CalendarRights = "NONEDITING_AUTHOR - 1043" case "1923" CalendarRights = "Custom - All Check Boxes - 1923" case "1067" CalendarRights = "Custom - Create,Read,Visible + Edit:all,Del:none - 1067" case "1035" CalendarRights = "Custom - Create,Read,Visible + Edit:own,Del:none - 1035" Case else CalendarRights = "??custom?? - " & userAce.Rights End Select WScript.Echo userDelegate & vbTab & CalendarRights & vbTab & strMailbox objOutputTextFile.WriteLine(userDelegate & vbTab & CalendarRights & vbTab & strMailbox) Next objOutputTextFile.WriteLine("Complete") objOutputTextFile.Close
All 6comments

	Page [ 1 ]
	Sue Mosher 02-Dec-2005 09:28 Note that this code requires both CDO 1.21 ( see http://www.outlookcode.com/d/cdo.htm ) and the ACL.dll COM component (see http://www.outlookcode.com/d/exstech.htm )
	Mat Sutton 09-Jan-2007 04:13 Hi The code above looks like something I could use although I also want to know if the Delegate has "See Private Items". I would appreciate any assistance on how to detect which Delegate has the "Delegate can see my Private Items". Thanks Mat
	Stephen Thomas 08-Apr-2008 08:59 I have tried this in my environment and get the error: ActiveX component can't create object: 'MSExchange.ACLObject' Code: 800A01AD. What am I doing wrong?
	Sue Mosher 08-Apr-2008 10:06 Stephen, it means that the required ACL.DLL component (see my comment above) is not installed on your system.
	Chris Quinn 08-Apr-2008 22:48 Thank you Sue Incidentaly I also noticed that I am missing a constant in the code. It works because the cdoDefaultCalendarFolder was not set. I reccomend that you set the variable to the 0 value. Add the following line Const CdoDefaultFolderCalendar = 0 Also looking at the Comment from last January, I have not got a way to view the setting for the Private Items.
	Sue Mosher 09-Apr-2008 06:32 Chris, I don't know how the private items setting is kept. A copy of Outlook Spy might reveal those details.
	Page [ 1 ]

name email