outlook編程

如何在ms訪問中添加outlook自定義字段？例子：outlook編程

Set objOutlook = CreateObject("Outlook.Application") 
Set item = objOutlook.CreateItem(2) 
Set nms = objOutlook.GetNamespace("MAPI") 
Set fldContacts = nms.GetDefaultFolder(10) 
Set itms = fldContacts.Items 
Set item = itms.Add 
    item.FirstName = Me.FirstName 
    ... 
    item.Email1Address = Me.Email 
    item.Fields("ClientId") = "Client1" 
    item.Display

item.Fields（「客戶端Id」）= 「客戶端1」 - >這一行是不行的，任何想法如何做這件事情的工作？謝謝！！

來源

2009-10-05 Arnold

我沒有訪問Outlook現在來測試這個，但它看起來像它應該是

item.Fields("ClientId").Text = "Client1"

或

item.Fields("ClientId").Value = "Client1"

換句話說，它看起來像你的代碼試圖將控件轉換爲字符串（「Client1」），當您要將控件的文本（或值）設置爲字符串「Client1」時。

來源

2009-10-05 22:17:32 David

謝謝大衛的迴應。但仍然有「運行時錯誤」438「對象不支持此屬性或方法」 – Arnold 2009-10-05 22:21:30

當您創建新的項目，你需要指定它是一個聯繫人：

Set itm = itms.Add("IPM.Contact")

來源

2015-08-03 23:06:58

在這種特殊情況下。問題不在於項目類型，而是Outlook對象模型中沒有項目公開Fields（）。類型很好--10是olFolderContacts，所以調用Items.Add而沒有任何參數會返回ContactItem對象。 – 2015-08-03 23:48:38

沒有Outlook項目公開字段（）。使用任一項目。 PropertyAccessor.SetProperty或物品。 UserProperties.Add

來源

2015-08-03 23:47:57

回答

相關問題