Display name of outlook current user via excel-VBA

Hello! I'm trying to find the name of the current user of outlook.
I'm writing an automated email via excel-VBA, and at the end of the email, I want to write the name of the current user.

I've tried this:

Sub name()
Dim username As String, Ln As Long
Set wn = CreateObject("Wscript.Network")
username = WshNetwork.username
MsgBox (username)

End Sub

But I only get the user name of windows..

And then I tried this:

Sub username()

Set objSession = CreateObject("MAPI.Session")

' Logon using an existing MAPI session
objSession.Logon "", "", False, False, 0

' Get folder where the current Outlook item lives
Set objFolder = Item.Parent

' Get the Outlook item with CDO
Set objMessage = objSession.GetMessage(Item.EntryID, objFolder.StoreID)

' Get the sender of the message
Set objSender = objMessage.Sender

' Pull out some properties of the sender
MsgBox ("Sender name: " & objSender.Name)
MsgBox ("Sender address: " & objSender.Address)

' Close MAPI session
objSession.Logoff

End Sub

But a big error appears ([colaboration data objects - [MAPI_E_LOGON_FAILED(80040111)])

Is there a simplified way for dummies? Thank you in advance

what username do you want "

Application.username
Environ("Username")
createobject("wscript.network").username

Or do you want the accountname 'user@Alicita.ch'

What do you get using:

Sub snb()
  msgbox createobject("Outlook.application").Getnamespace("MAPI").CurrentUser
End sub

Is there a way to eliminate the first pop-up without the intervention of the user?

1 - return to using Excel 2000
2 - Install the freeware ClickYes

To do what ?

I thought a messagebox is meant to display something.....
So the code did what you asked for.

As soon as you try to read something from outlook you will get the unwanted question. In an earlier post I indicated how you can prevent that question to pop up.