批量文件夹进行用户访问权限修改VBA

glenn001

在outlook inbox文件夹中有10个父文件夹，每个文件夹下又有20-30个子文件夹，现要对所有的父子文件夹进行用户访问权限的修改请问用VBA怎么写？

谢谢

aaaaabbbbb

有难度，你写过控制1个文件夹的吗？

glenn001

没有

我不怕难的，班主点拨一下就好了.

我只要知道一个文件夹如何控制，如何对所有文件夹和子文件夹进行循环，就行乐.

aaaaabbbbb

不知道有没有帮助？其实我也没有写过。
View.SaveOption 属性
返回 OlViewSaveOption 常量，该常量用于确定指定视图可用的文件夹以及视图所附加的读取权限。只读。
语法

表达式.SaveOption

表达式   一个代表 View 对象的变量。

说明


SaveOption 属性在使用 Views.Add 方法创建 View 对象时设置。


示例


以下 Microsoft Visual Basic/Visual Basic for Applications (VBA) 示例显示可以被“便笺”文件夹中所有用户访问的所有视图的名称。

本示例锁定对所有用户可用的全部视图的用户界面。子例程 LockView 接受 View 对象和一个 Boolean 值，该值指示“视图”界面是否将被锁定。在本示例中，调用过程时 Boolean 值始终设置为 True。

Visual Basic for Applications
Sub LocksPublicViews()
'Locks the interface of all views that are available to
'all users of this folder.

    Dim olApp As Outlook.Application
    Dim objName As Outlook.NameSpace
    Dim objViews As Outlook.Views
    Dim objView As Outlook.View

    Set olApp = New Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderNotes).Views

    For Each objView In objViews
        If objView.SaveOption = olViewSaveOptionThisFolderEveryone Then
           Call LockView(objView, True)
        End If
    Next objView

End Sub

Sub LockView(ByRef objView As View, ByVal blnAns As Boolean)
'Locks the user interface of the view.
'Accepts and returns a View object and user response.

    With objView
        If blnAns = True Then
            'if true lock UI
            .LockUserChanges = True
            .Save
        Else
            'if false don't lock UI
            .LockUserChanges = False
        End If
    End With

End Sub


© 2006 Microsoft Corporation。保留所有权利。



请参阅
View 对象
View 对象成员