When I compile the solution (id 21738004) given by Bluedevilfan in Outlook 2007 (i.e. Version 12) (I'm using Microsoft Exchange also) I get a number of errors. A missing End If and an End With that should have been an End If seems to sort some of it. However the program stops on the Set redOriginal = CreateObject("Redemption.SafeMailItem") line with "The operation failed" message. Can someone fix this?