Dim MobjOutlook As Microsoft.Office.Interop.Outlook.Application = New _
    Microsoft.Office.Interop.Outlook.Application()
    Dim MobjNS As Outlook.NameSpace = MobjOutlook.GetNamespace("MAPI")
    Dim MobjMF As Outlook.MAPIFolder = MobjNS.GetDefaultFolder( _
      Microsoft.Office.Interop._
                                       Outlook.OlDefaultFolders.olFolderInbox)
    Dim MobjIt As Outlook.Items = MobjMF.Items
...
...
...
...

EmpfängerAdd = Mobjit(zähler).Recipients