Set oApp = New Outlook.Application
Set oNs = oApp.GetNamespace("MAPI")
Set oAufgaben = oNs.GetDefaultFolder(olFolderTasks)
 
For I = 1 To oAufgaben.Items.Count
      WITH oAufgaben.items(I)
           ...
      END WITH
NEXT I

Gott denkt in den Genies, tr?umt in den Dichtern und schl?ft in den ?brigen Menschen.