Bewertung: 5 / 5

Stern aktivStern aktivStern aktivStern aktivStern aktiv
 

Mit dem folgenden Skript werden für alle IMAP-Konten die Ordner "Posteingang" aufgeklappt. Im Skript wurde ein DoEvents ergänzt, da es sonst unter Outlook 2007 nicht funktioniert hat.

Public Sub Application_Startup()

'====================================================================='
' Öffnet bei Programmstart alle Posteingangsordner und wählt dann'
' einen festgelegten Startordner aus.'
' (c) 2007 Peter Marchert - http://www.outlook-stuff.com'
'
' Für Outlook 2007 noch DoEvents eingefügt
' (c) 2009 Christian Kunkel - http://familie-kunkel.com'
'
'====================================================================='

Dim objFolder As Outlook.MAPIFolder
Dim strStartFolder As String
Dim lngFolder As Long

On Error Resume Next

' Startordner festlegen (z. B. "Kontakte", "Posteingang", "Aufgaben" etc.)'
strStartFolder = "Outlook-Heute"

' Alle Posteingangs-Ordner aufklappen'
For lngFolder = 1 To Outlook.Session.Folders.Count
Set objFolder = Outlook.Session.Folders(lngFolder).Folders("Posteingang")
Call Outlook.ActiveExplorer.SelectFolder(objFolder)
DoEvents
Next

' Ordner bei Programmstart anwählen'
If strStartFolder = "Outlook-Heute" Then
Set objFolder = Outlook.Session.GetDefaultFolder(olFolderInbox).Parent
Else
Set objFolder = Outlook.Session.GetDefaultFolder(olFolderInbox).Parent.Folders(strStartFolder)
End If

Call Outlook.ActiveExplorer.SelectFolder(objFolder)

Set objFolder = Nothing

End Sub