Guten Tag,
dieses Script nutze ich, um mit VBA rasch in Outlook einen bestimmten Ordner zu wechseln. Leider wird dieser nicht im laufenden Outlook geöffnet, sondern in einm neune Fenster, bzw. neuen Outlook-Instanz.
Was muss ich da ändern?
Danke für jede Hilfe.
Grüße
Norbert Ammermann
Code:
Sub DisplayATaskFolder()
Dim myNamespace As Outlook.NameSpace
Dim myTasks As Outlook.Folder
Dim myFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myTasks = myNamespace.GetDefaultFolder(olFolderTasks)
Set myFolder = myTasks.Folders(1)
myFolder.Display
End Sub
Windows10 und Offiece 365
|