Outlook) (PropertyAccessor.SetProperties 方法

會將陣列 SchemaNames 指定的屬性設定為陣列 Values 指定的值。

語法

expression。 SetProperties( _SchemaNames_ , _Values_ )

表達 代表 PropertyAccessor 物件的變數。

參數

名稱	必要/選用	資料類型	描述
SchemaNames	必要	Variant	屬性名稱的陣列，其值將設定為 Values 參數所指定。 這些屬性是依命名空間參照。 如需詳細資訊，請參閱依命名空間參照屬性。
值	必要	Variant	要為 SchemaNames 參數所指定之屬性設定的值陣列。

傳回值

如果作業成功，VBA 中為Null (Nothing的Variant) 。 例如，如果在設定任何屬性之前發生錯誤， SchemaNames 陣列中的元素數目與 Values 陣列中的數目不符，則會傳回 Err 值。 如果屬性設定期間發生錯誤，傳回值會是 Err 物件的陣列，其中此陣列中的元素數目與 SchemaNames 數 組的元素數目相同。 陣列中的 Err 值會對應至在 SchemaNames 參數中設定對應屬性的錯誤結果。

註解

如果屬性不存在，而且 SchemaNames 元素包含有效的屬性規範， 則 SetProperties 會建立 屬性，並使用 Values所指定的值來指派屬性。 屬性的類型就是 Values 中傳遞之元素的類型。 如果屬性存在，SetProperties 就會將 Values 所指定的值指派給屬性。

請注意，自訂檢視不支援使用 PropertyAccessor 建立的自訂屬性。 如果您想要檢視專案上的自訂屬性，請使用UserProperties物件的Add方法來建立屬性。

如果 PropertyAccessor 的父物件支援明確的 儲存 作業，則應該使用明確的 Save 方法呼叫將屬性儲存至 物件。 如果物件不支援明確的 Save 作業，在呼叫 SetProperties 時，屬性會儲存至物件。

請特別小心，務必正確處理所有的例外狀況。 設定屬性失敗的狀況包括：

• 因為部分 Outlook 及 MAPI 屬性為唯讀，因此該屬性為唯讀屬性。

• 找不到指定的命名空間所參照的屬性。

• 指定屬性的格式無效而且無法剖析。

• 該屬性不存在而且無法建立。

• 該屬性存在但傳遞錯誤類型的值。

• 因為用戶端為離線狀態，因此無法開啟該屬性。

• 屬性是使用 UserProperties.Add 方法所建立。 第一次設定屬性時，您必須使用UserProperty.Value屬性，而不是PropertyAccessor物件的SetProperties或SetProperty方法。

如需使用 PropertyAccessor 物件設定屬性的詳細資訊，請參閱 取得和設定屬性的最佳做法。

範例

下列程式碼範例會說明 SetProperties 方法如何設定多個屬性值。 如果屬性不存在，只要父物件支援這些屬性的建立，SetProperties 就會建立屬性。 由於 MailItem 物件支援 MailItem.Save 作業，所以此處的屬性會以明確的 oMail.Save 儲存。

Sub DemoPropertyAccessorSetProperties() 
 Dim PropNames(), myValues() As Variant 
 Dim arrErrors As Variant 
 Dim prop1, prop2, prop3, prop4 As String 
 Dim i As Integer 
 Dim oMail As Outlook.MailItem 
 Dim oPA As Outlook.PropertyAccessor 
 'Get first item in the inbox 
 Set oMail = _ 
 Application.Session.GetDefaultFolder(olFolderInbox).Items(1) 
 'Names for properties using the MAPI string namespace 
 prop1 = "http://schemas.microsoft.com/mapi/string/" & _ 
 "{FFF40745-D92F-4C11-9E14-92701F001EB3}/mylongprop" 
 prop2 = "http://schemas.microsoft.com/mapi/string/" & _ 
 "{FFF40745-D92F-4C11-9E14-92701F001EB3}/mystringprop" 
 prop3 = "http://schemas.microsoft.com/mapi/string/" & _ 
 "{FFF40745-D92F-4C11-9E14-92701F001EB3}/mydateprop" 
 prop4 = "http://schemas.microsoft.com/mapi/string/" & _ 
 "{FFF40745-D92F-4C11-9E14-92701F001EB3}/myboolprop" 
 PropNames = Array(prop1, prop2, prop3, prop4) 
 myValues = Array(1020, "111-222-Kudo", Now(), False) 
 'Set values with SetProperties call 
 'If the properties don't exist, then SetProperties 
 'adds the properties to the object when saved. 
 'The type of the property is the type of the element 
 'passed in myValues array. 
 Set oPA = oMail.PropertyAccessor 
 arrErrors = oPA.SetProperties(PropNames, myValues) 
 If Not (IsEmpty(arrErrors)) Then 
 'Examine the arrErrors array to determine if any 
 'elements contain errors 
 For i = LBound(arrErrors) To UBound(arrErrors) 
 'Examine the type of the element 
 If IsError(arrErrors(i)) Then 
 Debug.Print (CVErr(arrErrors(i))) 
 End If 
 Next 
 End If 
 'Save the item 
 oMail.Save 
End Sub

另請參閱

PropertyAccessor 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。