Could you please point out what your question is?

--
Best regards
Michael Bauer - MVP Outlook
Manage and share your categories:
http://www.vboffice.net/product.html?pub=6&lang=en


Am Mon, 28 Dec 2009 02:51:01 -0800 schrieb Alberto:

Hello, Outlook surprises me every day more or maybe I have a lack on VBA,
please read the next case and tell me if you understand something

Using Outlook 2003 SP3
langauge: German

Sub1()
' Working on MapiFolderA:
Dim myItem, myNewItem as mailItem

Set myItem= MapiFolderA.items("Item Subject")
Set myNewItem= myItem.Copy
myNewItem.subject="MyNewItem Subject"
myNewItem.save
End sub


At this point we have two items in the folder but myNewItem has the
current
time as the value for the ReceivedTime property.
If i would'nt have modified MyNeWItem (.save), the ReceivedTime property
would keep its original value, but of course i want to modify the recently
created item.


Trick!!! To copy temporary the item to another folder.
NO, it doesn't work either: !!!!


Sub1()
' Working on MapiFolderA:
Dim myItem, myNewItem, myItem3 as mailItem

Set myItem= MapiFolderA.items("Item Subject")
Set myNewItem= myItem.Copy
Set MapiFolderB = GetFolder("here Path to Folder B")
Set myItem3 = MyNewItem.Move(MapiFolderB)
myItem3.Subject = "MyItem3 Subject"
myItem3.save
End sub

MyItem3 in the folder MapiFolderB has again the current time/date as the
ReceivedTime property (

SOLUTION: (Not brilliant but at least work)
Modify the item in the new folder trough another Sub()

Sub1()
' Working on MapiFolderA:
Dim myItem, myNewItem as mailItem

Set myItem= MapiFolderA.items("Item Subject")
Set myNewItem= myItem.Copy
Set MapiFolderB = GetFolder("here Path to Folder B")
Set myItem3 = MyNewItem.Move(MapiFolderB)

Call Sub2
End sub


'In Sub2 we can modify all propertys of the item and then move it to
MapifolderA, for example.

Is this behaviour expected??
I've heard that with Redemption or CDO this behaviour is not expected but
in
my environment Redemption is not an option.


Thanks in advance...