Outlook 2003 VBA-Script

[GiantD]

Hi,

hab folgendes VBA-Script gefunden um in Outlook ein zweites Fenster mit "Kalender" zu öffnen:

Sub Application_Startup()

SecondOLWindow

End Sub

Public Sub SecondOLWindow()

Dim myNms As Outlook.NameSpace

Dim myFolder As Outlook.MAPIFolder

Dim myExplorer As Outlook.Explorer

Set myNms = Application.GetNamespace("MAPI")

Set myFolder = myNms.GetDefaultFolder(olFolderCalendar)

Set myExplorer = Application.Explorers.Add(myFolder)

myExplorer.Display

End Sub

Wie kann ich nun das Script erweitern um ein drittes Fenster mit "Aufgaben" gleichzeitig zu öffnen. Hab überhaupt keine VBA Kenntnisse wie das gehen könnte.

MFG

GiantD