前景編程

Question

如何在MS Access中添加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（“ ClientId”）=“ Client1”->此行不起作用，不知道如何使此事情起作用？ 謝謝！！

Answer 1

我現在沒有訪問Outlook進行測試的權限，但是看起來應該

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

要么

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

換句話說，當您要將控件的文本（或值）設置為字符串“ Client1”時，您的代碼似乎正在嘗試將控件轉換為字符串（“ Client1”）。

Answer 2

創建新項目時，需要指定它是聯系人：

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

Answer 3

沒有Outlook項目公開Fields（）。 使用任一項目。 PropertyAccessor.SetProperty或Item。 UserProperties.Add