Sub sein_OL()
' <- DECLARE ->
Dim OLAP As Object ' mit Verweis: Dim OLAP As Outlook.Application
Dim OLIT As Object ' mit Verweis: Dim OLIT As Outlook.MailItem
Dim OLFO As Object ' mit Verweis: Dim OLFO As Outlook.MAPIFolder
Dim OLNS As Object ' mit Verweis: Dim OLNS As Outlook.Namespace
Dim V As Variant
' <- PROCESS ->
Set OLAP = CreateObject("Outlook.Application") ' mit Verweis: Set OLAP = New 
' Outlook.Application
Set OLNS = OLAP.GetNamespace("MAPI")
' <- Wenn Du die Verzeichnissstruktur kennst:
Set OLFO = OLAP.Session.Folders("Nürnberg-IT").Folders("Posteingang").Folders( _
  "Support-Betrieb").Folders("Server")
' <- Wenn Du die Verzeichnissstruktur nicht kennst:
For Each OLFO In OLAP.Session.Folders
    If OLFO.Name Like "*Nürnberg*" Then Exit For
Next OLFO
Set OLFO = OLFO.Folders("Posteingang").Folders("Support-Betrieb").Folders( _
  "Server")
' <- Mailitem Finden
For Each V In OLFO.Items
    If TypeName(V) = "MailItem" Then
        Set OLIT = V
        Exit For
    End If
Next V
' <- CLEANUP ->
Set OLIT = Nothing
Set OLFO = Nothing
Set OLNS = Nothing
Set OLAP = Nothing
End Sub