MS Outlook VBA-编辑任务项目的空值

Question

我编写了一个简单的代码来为任务文件夹中的每个任务添加索引编号。 我创建了一个名为“index”的自定义字段。 代码循环执行所有任务，并在每个任务的“索引”字段中放置任务的编号（不确定顺序是什么）。 由于某些原因，只有在将某些值分配给“索引”字段时才起作用。如果它是空的，它什么都不做。

For i = 1 To objFolder.Items.Count 
Set xitem = objFolder.Items(i) 
xitem.UserProperties.Find("index") = i 
xitem.Save  
Next i 

任何帮助，将不胜感激。

谢谢

Answer 1

是的，因为你的代码假定用户属性已经存在 - UserProperties.Find将返回null如果属性不存在。您需要使用UserProperties.Add。它的财产已经在那里，它将返回现有的财产。

For i = 1 To objFolder.Items.Count 
    Set xitem = objFolder.Items(i) 
    set prop = xitem.UserProperties.Add("index", olNumber) 
    prop.Value = i 
    xitem.Save  
Next i