Dim userName As String = Me.Application.ActiveExplorer( _
      ).Session.CurrentUser.Name

    Dim app As New Outlook.Application
    Dim session As Outlook.NameSpace = app.GetNamespace("MAPI")
 
    Dim userName As String = session.CurrentUser.Name

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist