Nice thought, but that code doesn't work. I just tried it.
What the code would actually have to do would be to delete the SideEffects
property or set it to 0 from the item in Sent Items to allow it to be seen
there, SideEffects is
"
http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}/85100003"
in DASL property tag syntax. On the receiving end the code would have to
delete the same property or set it to 0.
I didn't bother testing what possible side effects deleting the SideEffects
property might have, but doing that does make the item visible in the
preview pane. Be aware that there might be side effects to doing that.
The property tag for that is not 0x8002, it's 0x8510.
So the correct lines for the property would be:
Dim oField As MAPI.Field
Set oField = objCDOMail.Fields.Item("0x8510",
"0820060000000000C000000000000046"
oField.Value = 0
objCDOMail.Update True
However, as I said that only works on the items after sending when in Sent
Items or after receiving in the recipient Inbox.
In addition, the code as written doesn't instantiate or logon to the
MAPI.Session object (or even declare it) and sending using CDO will trigger
the security warning dialog.