0

我正在尝试制作邮件项目的副本，将副本移动到其他位置并向其添加自定义项目属性。但是在我添加自定义属性后，该项目不会保存并崩溃并出现上述错误。

这是我的代码，请帮我解决这个问题！

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，如果我将属性添加到原始项目然后复制/移动和新项目，然后删除原始项目上的属性，则操作没有问题。

4

1 回答 1

2

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

Set objCopiedItem = item.Move(objPSTFolder)
于 2013-08-07T16:51:53.660 回答