Oops! Forgot the most important keyword...
Since "ItemsInSentFolder" is an Outlook.Items object, add .Items after the GetDefaultFolder:[vba]Set ItemsInSentFolder = Application.Session.GetDefaultFolder(olFolderSentMail).Items[/vba]Yeah, doesn't seem to work when you leave out the most important part of it