Sub Application_NewMail() If MsgBox("You have new mail. Do you want to see your Inbox?", _ vbYesNo + vbInformation, "New Mail Alert") = vbYes Then Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Display End If End Sub