Private Sub Email(i As Integer)
  Dim oOutlook As Outlook.Application       ' Outlook Object
  Dim oNamespace As Outlook.NameSpace      ' Namespace Object
  Dim oFolder As Outlook.MAPIFolder      ' MapiFolder Object
  Dim oMail As Outlook.MailItem           ' Mail Object
 
  Dim j As Integer, x As Integer
 
   ' Outlook-Objekt erstellen
  Set oOutlook = CreateObject("Outlook.Application")
 
  ' Namespace: MAPI
  Set oNamespace = oOutlook.GetNamespace("MAPI")
 
  ' Outlook-Ordner: "Neue Nachrichten"
  Set oFolder = oNamespace.GetDefaultFolder(olFolderInbox)
 
  ' Alle Ordner im Posteingang durchlaufen
  j = oFolder.Folders.Count
  Do While j > 0
    If oFolder.Folders.Item(j).Name = "Backup" Then
          ' Alle Mails durchlaufe
     End If
    j = j - 1
  Loop
 
  ' Objekte zerstören
  Set oMail = Nothing
  Set oFolder = Nothing
  Set oNamespace = Nothing
  Set oOutlook = Nothing
 
End Sub