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
        MsgBox "Source and target folder must be of the same type.", vbInformation
      End If

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