Public WithEvents olMailItem As Outlook.MailItem
...
Private Sub Application_Startup()
 
    Dim objMAPI As NameSpace
 
    Set objMAPI = Application.GetNamespace("MAPI")
    Set olMailItem = objMAPI.GetDefaultFolder(olFolderInbox).Items.Item
    Set objMAPI = Nothing
 
End Sub

corsa(r)

"Zwei Dinge sind unendlich: Das Universum und die
menschliche Dummheit. Aber bei dem Universum
bin ich mir noch nicht ganz sicher."
(Albert Einstein)