Добавить контакт в таблицу обмена

Я пытаюсь создать процесс доступа для добавления контактов в папку 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

Первая запись добавляется внешний вид, нижняя из них добавляется доступ.

Вот вид я получаю в перспективе: enter image description here

источник

2013-12-20 Herrozerro

Вы пробовали потянув 'Джон Test' из Outlook, и сравнивая объект? Я обнаружил, что при выполнении SharePoint некоторые имена полей не то, что вы могли бы подумать, что они будут. Они могут быть описаны как «Адрес», но в Exchange это может быть «user_address_1» в качестве ключа с «Адресом» в качестве его имени со значением «500 west T». – GoldBishop

Я заканчивал тем, что маршрут код:

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

источник

2014-04-10 12:45:58 Herrozerro

Добавить контакт в таблицу обмена

ответ

Смежные вопросы