将联系人添加到链接的交换表答案

【问题标题】：Add a contact to a linked exchange table将联系人添加到链接的交换表
【发布时间】：2014-01-09 17:31:37
【问题描述】：

我正在尝试构建一个访问流程以将联系人添加到 Outlook 文件夹。我已经链接了文件夹，可以添加、更新和删除记录。但并非所有字段都在 Outlook 中正确显示。即地址字段。

我已经添加了一个测试联系人并添加了一个地址，重新访问并完美地模仿了数据，但在 Outlook 中没有显示地址。

为了让地址显示在 Outlook 中，需要做些什么吗？

这是我的数据：

First   Last    Title   Company Department  Office  Post Office Box Address City    State   Zip/Postal Code Country/Region  Phone
John    Test        superduper              500 west T  Test City   MI  99999   United States of America    1 800 555 5555
Bill    Test        Awesomedawesome             600 East G  Test City   MI  99999   United States of America    1 800 666 6666

第一条记录是outlook添加的，下面是access添加的。

这是我在 Outlook 中得到的视图：

【问题讨论】：

您是否尝试过从 Outlook 中提取 John Test 并比较对象？我在使用 SharePoint 时发现某些字段名称不是您想象的那样。它们可能被描述为“地址”，但在 Exchange 中，它可能是“user_address_1”作为键，名称为“地址”，值为“500 west T”。

标签： exchange-server ms-access-2010 linked-tables

【解决方案1】：

我最终选择了代码路线：

Dim olCI As Outlook.ContactItem
Set olCI = mf.Items.Add(olContactItem)
    With olCI
        .FullName = Trim(rs!Name)
        .Title = Trim(rs!Salutation)
        .JobTitle = Trim(rs!Title)
        .Email1Address = Trim(rs!Email)
        .CompanyName = Trim(rs!AccountName)
        .BusinessAddressStreet = Trim(rs!MailingStreet)
        .BusinessAddressCity = Trim(rs!MailingCity)
        .BusinessAddressPostalCode = Trim(rs!MailingZipCode)
        .BusinessAddressCountry = Trim(rs!MailingCountry)
        .BusinessFaxNumber = Trim(rs!Fax)
        .BusinessTelephoneNumber = Trim(rs!Phone)
        .OtherTelephoneNumber = Trim(rs!OtherPhone)
        .BusinessHomePage = ""
        .MobileTelephoneNumber = Trim(rs!MobilePhone)
        .Birthday = IIf(IsNull(rs!Birthdate), 0, rs!Birthdate)
        .Department = rs!Department
        .Save
    End With

【讨论】：