Save on Send

Hiya,

I have some code which saves every email to a .msg file on a network share when the user presses the Send button. However it's saving it in the 'drafted' state so if someone opens up the .msg file it can be modified.

If I manually save a sent item it's not editable - how do I achieve this effect in VBA?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
                ...code...
                Item.SaveAs strFileName, olMSG
                ...code...
End Sub

Thanks