Outlook VBA: Benutzername ermitteln

04/03/2009 - 08:02 von Beck, Alwin | Report spam
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
 

Lesen sie die antworten

#1 Michael Bauer [MVP - Outlook]
04/03/2009 - 21:33 | Warnen spam
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>

Ähnliche fragen