Outlook desktop – View – Postavi view na folder i podfoldere

Umjesto ovoga..

..stavi VBA

Sub MojPogledView()
  Dim CurrentFolder As Outlook.Folder
  Dim i As Long
  Dim objViews As Views
  Dim objView As View
  Set CurrentFolder = Application.ActiveExplorer.CurrentFolder
  Set objViews = CurrentFolder.Views
  Set objView = objViews.Item("MojPogled")
  objView.Apply
  For i = CurrentFolder.Folders.Count To 1 Step - 1
    Set olNewFolder = CurrentFolder.Folders(i)
    Set objView = objViews.Item("MojPogled")
    objView.Apply
  Next i
End Sub

hxxps://www.slipstick.com/developer/apply-view-to-folder-using-vba/

20240108113126-SW157TO outlook olk xoutlook xolk macro xmacro vba xvba views xviews