Can someone let me know how to delete four messages in a Folder? I have tried to find information on it but there is not VBA code samples. Use the code below but it does not delete all the messages. For Each MailItem In MyFolder.Items Debug.Print MailItem.Delete Next MailItem Any suggestions and/or guidance will be helpfull. Luis