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