Wissensdatenbank
pronego > pronego Helpdesk > Wissensdatenbank

Microsoft Outlook: IMAP Ordner ausklappen

Lösung Private Sub Application_Startup()

'====================================================================='
' Bei Programmstart in den entsprechenden IMAP-Posteingang wechseln
'====================================================================='

Dim objFolder As Outlook.MAPIFolder
Dim oldExplorer As Outlook.Explorer

'alten aktiven Explorer + Zustand merken
Set oldExplorer = Outlook.ActiveExplorer
' IMAP-Ordner objekt
Set objFolder =
Outlook.Session.Folders("sekretariat@stjakobushospiz.de").Folders("Posteingang")
' IMAP-Ordner anzeigen im neuen Fenster
objFolder.Display
Outlook.ActiveWindow.WindowState = oldExplorer.WindowState
' altes Fenster schliessen
oldExplorer.Close

Set objFolder = Nothing

End Sub
Artikeldetails
Artikel-ID: 12
Kategorie: pronego
Datum (hinzugefügt): 29.01.2009 13:32:00
Aufrufe: 546

 
<< Zurück

Powered by Help Desk Software HESK™