Code:
Dim oEmail As Outlook.MailItem