Question

我正在尝试制作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，如果我将属性添加到原始项目然后复制/移动和新项目，然后删除原始项目上的属性，操作可以正常工作。

Answer 1

Move是一个返回新项目的函数，而不是sub：

Set objCopiedItem = item.Move(objPSTFolder)

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

1 个答案: