Dim oFolder As Folder Set oFolder = Session.Stores.Item("Name of Store").GetDefaultFolder(olFolderInbox)