Userlogin Outlook auslesen

[PeterGlönkler]

Hallo
bin VB-Neuling und sollte Mails als Datei mit dem Userkennzeichen abspeichern.
Dazu setze ich den Dateinamen aus mehreren Variablen zusammen. Nun fehlt mir noch das Login des Users bzw. die Initialen des Nutzers.
Wie kann ich das auslesen?

Was ich bisher rausgefunden hab:
Set myUser = Application.GetNamespace("MAPI").CurrentUser
MsgBox myUser.Name

Im Word habe ich zumindest die Initialen des Officenutzers auslesen können.
Dim myUser$
With Dialogs(wdDialogToolsOptionsUserInfo)
myUser$ = .Initials
End With
WordBasic.FileSaveAs Name:="Y:\tmp\MTEST" & myUser & ".doc", Format:=5

Grüße
Peter Glönkler

 

[NRFi]

hi,
habe mir mal die outlook-library eingebunden:

Dim test As Outlook.Application
Set test = New Outlook.Application
MsgBox (test.Session.CurrentUser.Name)

und das gemacht.

als ausgabe kommt nachname, vorname

vielleicht als quickndirtyidee:
nach komma splitten,
vom ersten element den ersten buchstaben, vom zweiten den zweiten.
geht halt nur, wenn der benutzer sein initial nicht geändert hat.
ansonsten keine ahnung wie man dran kommt

 

[PeterGlönkler]

Habs doch noch rausgefunden

Vielen Dank für deine Antwort, NRFi
Hab nun doch noch das Userlogin rausgefunden
mfg
P.Glönkler


Hier meine Lösung:

Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize _
As Long) As Long

Public Function RetrieveUserName() As String
Const MaxLen = 50
Dim strName As String
Dim lngRetVal As Long
strName = Space$(MaxLen)
lngRetVal = GetUserName(strName, MaxLen)
strName = Trim$(strName)
strName = Left$(strName, Len(strName) - 1)
RetrieveUserName = strName
End Function

Public Sub Login_Ausgabe()
Dim Anwender As String
Anwender = UCase(RetrieveUserName)
MsgBox Anwender
End Sub