Как написать макрос в Outlook 2010, чтобы задать все свойства папки "просмотреть все элементы"?

ваша просьба научить вас писать макрос может быть слишком общей. Так что вместо этого вот ответ о том, как развернуть все папки.

http://www.msoutlook.info/question/595 and

http://vboffice.net/sample.html?lang=en&mnu=2&smp=57&cmd=showitem

вы можете развернуть все папки, когда это необходимо, не обязательно при запуске.

"этот пример открывает все дерево при запуске, и это спектакль...

в процедуре 'ExpandAllFolders' есть переменная 'ExpandDefaultStoreOnly'. При текущем значении (True)расширяется только личная папка. Если вы хотите развернуть все доступные почтовые ящики (архивы, Exchange), установите переменную = False."

http://vboffice.net/sample.html?lang=en&mnu=2&smp=57&cmd=showitem

Private Sub Application_Startup()
    ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

ExpandDefaultStoreOnly = True

Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

If ExpandDefaultStoreOnly = True Then
    Set F = Ns.GetDefaultFolder(olFolderInbox)
    Set F = F.Parent
    Set Folders = F.Folders
    LoopFolders Folders, True

Else
    LoopFolders Ns.Folders, True
End If

DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
    ByVal bRecursive As Boolean)

Dim F As Outlook.MAPIFolder

For Each F In Folders
    Set Application.ActiveExplorer.CurrentFolder = F
    DoEvents

    If bRecursive Then
        If F.Folders.Count Then
            LoopFolders F.Folders, bRecursive
      End If
    End If
Next
End Sub