vba - 使用 VBA 在 Outlook 中创建用户定义的联系人字段

Question

我正在尝试编写一个 Outlook 宏，它将在所有联系人上创建一个新字段，然后根据另一个已经存在的字段填充该字段。这是我到目前为止所拥有的。它似乎没有创造任何东西。

Sub ChangeField()
    Dim ContactsFolder As Folder
    Dim Contact As ContactItem
    Dim objProperty As UserDefinedProperty

    Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts)
    MsgBox ("Contacts Found: " & ContactsFolder.Items.Count)

    With ContactsFolder.UserDefinedProperties
        Set objProperty = .Add("CustomCompanyField", olText)
    End With

    For Each Contact In ContactsFolder.Items
        Contact.CustomCompanyField = Contact.CompanyName
        Contact.Save
    Next    
End Sub

这可以通过VBA完成吗？还是只能手动创建联系人字段？任何帮助表示赞赏！

Answer 1

尝试更换线路

 Contact.CustomCompanyField = Contact.CompanyName

和

 Contact.UserProperties.Add("CustomCompanyField", olText).Value = Contact.CompanyName