Zitat:

-Der Typ "Outlook.MAPIFolder" ist nicht definiert. (Zeile 3) -"Application" ist kein Member von "WindowsApplication1.Form1". (Zeile 5) -Der Typ "Outlook.MAPIFolder" ist nicht definiert. (Zeile 7) -Der Name "Outlook" wurde nicht deklariert. (Zeile 9)

Public Class Form1
    Private Sub CreateNewFolder()
        Dim inBox As Outlook.MAPIFolder = Me.Application.ActiveExplorer( _
          ).Session. _
            GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        Dim userName As String = Me.Application.ActiveExplorer() _
            .Session.CurrentUser.Name
        Dim customFolder As Outlook.MAPIFolder
        Try
            customFolder = inBox.Folders.Add(userName, Outlook _
               .OlDefaultFolders.olFolderInbox)
            MessageBox.Show("You have created a new folder named " _
                & userName & ".")
            inBox.Folders(userName).Display()
        Catch ex As Exception
            MessageBox.Show("The following error occurred: " & ex.Message)
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox("Erstellung eines Ordners", MsgBoxStyle.OkOnly, "Einen neuen" & _
        "Ordner wird jetzt erstellt...")
        Call CreateNewFolder()
    End Sub
End Class