Outlook VBA: Benutzername ermitteln

[Beck, Alwin]

Outlook 2003

Hallo,
in einem Outlook VBA benötige ich den Name und Vorname des
angemeldeten
Users. Wie kann ich diesen auslesen ?

Über meine Fuction lese ich derzeit nur den angemeldeten User aus -
hier
fehlt mir Name + Vorname :

Function NTUSER() As String
'Ermittelt den aktuell angemeldeten Windowsbenutzer

Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
NTUSER = Left$(strUserName, lngLen - 1)
Else
NTUSER = vbNullString
End If

'MsgBox NTUSER
End Function

Danke
Gruß
Albe

[Michael Bauer [MVP - Outlook]]

Am Wed, 4 Mar 2009 08:02:15 +0100 schrieb Beck, Alwin:

> Outlook 2003
>
> Hallo,
> in einem Outlook VBA benötige ich den Name und Vorname des
> angemeldeten
> Users. Wie kann ich diesen auslesen ?

Hallo,

den Outlook-User findest Du in Session.CurrentUser

--
Viele Gruesse
Michael Bauer - MVP Outlook

: Outlook-Kategorien? Category Manager ist die Lösung
: VBOffice Reporter für Datenanalyse & Berichte
: <http://www.vboffice.net/product.html?pub=6>

[Beck, Alwin]

"Beck, Alwin" <ungu...@ungueltig.invalid> schrieb im Newsbeitrag
news:urb$mcJnJH...@TK2MSFTNGP03.phx.gbl...

Danke für die Info. Habe es nun wie folgt gelöst :

Dim myuser As Object
Dim myNameSpace As NameSpace

Set myNameSpace = Nothing
Set myuser = Application.GetNamespace("MAPI").CurrentUser