Ordner-Ansichten kopieren

Sie können in Outlook die Ansichten für jeden Ordner selbst gestalten. Seit Outlook XP helfen Ihnen ein paar Zeilen Code, diese Ansicht in andere Ordner des gleichen Typs zu kopieren:

  So fügen Sie Makros in Outlook ein

Public Sub CopyView()
  Dim SourceFolder As Outlook.MAPIFolder
  Dim TargetFolder As Outlook.MAPIFolder

  Set SourceFolder = Application.Session.PickFolder

  If Not SourceFolder Is Nothing Then

    Set TargetFolder = Application.Session.PickFolder

    While Not TargetFolder Is Nothing
      If TargetFolder.DefaultItemType = SourceFolder.DefaultItemType Then

        With TargetFolder.CurrentView
          .xml = SourceFolder.CurrentView.xml
          .Save
        End With

      Else
        MsgBox "Quell- und Zielordner müssen vom gleichen Typ sein.", vbInformation
      End If

      Set TargetFolder = Application.Session.PickFolder
    Wend
  End If
End Sub