Sub test()
Dim OutApp, Ns
On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
Ns = OutApp.Session.CurrentUser.Address
MsgBox Ns
End Sub
With GetObject(, "Outlook.Application")
.ActiveWindow.WindowState = 1 ' olMinimized = 1 - Normale = 2
End With