Vba mailitem.Save操作无法完成，因为objct已被删除

我正在尝试创建mailitem的副本，将副本移动到其他位置并向其添加自定义项属性。但是在我添加自定义属性之后，该项将不会保存并崩溃，出现上面提到的错误

这是我的密码，请帮我弄清楚

Dim objCopiedItem, objControlItem
Set objCopiedItem = item.Copy
Call objCopiedItem.Move(objPSTFolder)

Dim property1 : Set property1 = GetMigrationProperty(objCopiedItem.ItemProperties)
  if property1 is nothing Then
     Set property1 = objCopiedItem.ItemProperties.Add("Migration ID", 1)
     property1.Value = item.EntryID
     objCopiedItem.Save
 else
   property1.Value = item.EntryID
   objCopiedItem.Save
 End If

---

错误发生在objCopiedItem.Save，如果我将属性添加到原始项，然后复制/移动和新项，然后删除原始项上的属性，则操作不会出现问题。

move是一个返回新项的函数，而不是子项：

Set objCopiedItem = item.Move(objPSTFolder)