Hallo zusammen,
ich würde gerne bestimmte IMAP-Ordner beim Starten von Outlook ausklappen. Das IMAP-Konto heißt in Outlook "Gmail". Aufklappen würde ich gerne die IMAP-Ordner "Posteingang" und den Ordner "[Gmail]". Diesen Code habe ich bisher (mir ist klar, dass nicht funktoniert, da ich in VBA leider ein ziemlich blutiger Anfänger bin und wenn dann würde er auch nur den Ordner "Posteingang" aufklappen):
Expand specific folders
Sub ChangeViewtoFolderT1()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace("Gmail")
Dim Exp As Outlook.Explorer
Set Exp = Application.ActiveExplorer
Dim myInbox As Folder
Set myInbox = ns.GetDefaultFolder(olFolderInbox)
Dim folder1 As Folder
Set folder1 = myInbox.Folders.Item("Posteingang")
Set Exp.CurrentFolder = Posteingang
End Sub
Kann mir jemand ein paar Tipps geben, wie ich den Code ändern/erweitern muss, damit die beiden IMAP-Ordner "Posteingang" und "[Gmail]" beim Start automatisch ausgeklappt werden. Was mir bereits klar ist: Der Code muss beim Start ausgeführt werden. Das muss ich dann im MS VBA-Editor von Outlook so einstellen.
Vielen Dank für alle Antworten!
Beste Grüße
Rainer
|