Outlook 2007 IMAP Konten

[virus]

Hallo,

ich habe folgendes Problem, und zwar habe ich mir 2 IMAP Konten angelegt.

Jetzt wird aber oben noch der persönliche Ordner angezeigt. Ich denke den brauche ich da sich ja auch der Postausgansserver befindet. Ich hätte es jetzt gerne dass der obere Ordner eingeklappt ist, und die 2 anderen Konten ausgeklappt. Leider ändert sich das bei jedem Start wieder und der Persönliche Ordner bleibt ausgeklappt und die anderen zwei sind eingelappt.

Weiss jemand hiefür einen Rat?

Und was mache ich mit den ganzen Englischen Ordnern unter jeden Acount ? Habe da jetzt 2 sent Ordner und einen gesendet.

Gruß und danke

Sascha

 

[Yuuri]

Beim Einklappen kann ich dir nicht helfen, beim Ausklappen schon. Du kannst ein Makro erstellen, dass beim Start von Outlook automatisch ausgeführt wird.

Den VBA-Editor kannst du mittels Alt + F11 öffnen. Links wählst du dann einfach das vorhandene Makro und fügst rechts im neuen Fenster den unten stehenden Code ein, speicherst es und kannst den Editor wieder schließen.

Private Sub Application_Startup()
  ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
  On Error Resume Next
  Dim Ns As Outlook.NameSpace
  Dim Folders As Outlook.Folders
  Dim CurrF As Outlook.MAPIFolder
  Dim F As Outlook.MAPIFolder
  Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = True

  Set Ns = Application.GetNamespace("Mapi")
  Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
    Set F = Ns.GetDefaultFolder(olFolderInbox)
    Set F = F.Parent
    Set Folders = F.Folders
    LoopFolders Folders, True

  Else
    LoopFolders Ns.Folders, True
  End If

  DoEvents
  Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
  ByVal bRecursive As Boolean _
)
  Dim F As Outlook.MAPIFolder

  For Each F In Folders
    Set Application.ActiveExplorer.CurrentFolder = F
    DoEvents

    If bRecursive Then
      If F.Folders.Count Then
        LoopFolders F.Folders, bRecursive
      End If
    End If
  Next
End Sub

Sollte imho auch unter 2007 funktionieren, hab hier 2013 am Laufen.

Nachteil: Je nach Größe des Postfaches kann der Start von Outlook andauern.
Vorteil: Ist Outlook offen, hast du sofort den aktuellen Status aller Konten.

 

[virus]

Hallo,

danke erstmal für die Hilfe.

Habe das Makro erstellt. Aber wenn ich dann das Makro auswählen will wird mir nichts angezeigt

Was mache ich falsch?

Gruß

Sascha

 

[RicoEF]

Kannst du mal bitte in der Systemsteuerung --> E-Mail bzw. Mail --> Datendateien mal schauen was dort als Standard definiert ist?

 

[Yuuri]

Hast du auch das vorhandene Makro benutzt? Links im Menü heißt das "ThisOutlookSession".