StartDownloadsServiceSamplesWorkshopsContact DeutschEnglish
 
Samples
General
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Visitors1798118
Impressions6735956
Links
Imprint
Privacy Policy
Contact
Copy views
Author: Michael BauerHomepage
Date: 05.05.2006Accessed: 24584
  
Description

In Outlook you can create views of your own. While it's not possible to copy or inherit views, you can do that with a few lines of VBA code since Outlook XP.

The sample asks once for the folder with the view that you want to copy. Then it asks for the destination folders until you click cancel.

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
 
 

ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more]

 

Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more]

 

SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more]

 

OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more]