VBOffice

Ordner-Ansichten kopieren

Mit VBA lassen sich die Einstellungen für eine Ordneransicht kopieren und auf andere Ordner übertragen.

Zuletzt geändert: 05.05.2006 | Aufrufe: 61.127  | #25
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.

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:


tip  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
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.
email  Senden Sie eine Nachricht