Sub DeleteAutoForwardedEmail(Item As Outlook.MailItem)
If Item.AutoForwarded Then
Item.Delete
End If
End Sub

3) Save and exit VBA.

4) Create a new rule on Outlook 2010.
5) Start from a blank rule: Select “Apply rule on messages I receive” -> press Next
6) Which condition(s) do you want to check? Select nothing or “on this computer only” -> press Next.
7) What do you want to do with the message? Select “run a script”.
8) Use mouse to click “run a script” in “Edit the rule description” box, and select “Project1.ThisOutlookSession.DeleteAutoForwardedEmail”. -> press Next.
9) Press Next to ignore “Are there any exceptions?”.
10) Assign a name for this rule: Delete AutoForwarded Email.
11) Press Finished.