Нужен макрос для Outlook - добавление отправителей в контакты

[steel20]

Помогите с макросом.
Есть 5 000 писем. Всех отправителей нужно добавить в контакты. Использовала это:
http://profhelp.com.ua/articles/ms-outlook-%D0%B0%D0%B2%D1%82%D0%BE%D0%BC%D0%B0%D1%82%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%BE%D0%B5-%D1%81%D0%BE%D0%B7%D0%B4%D0%B0%D0%BD%D0%B8%D0%B5-%D0%BA%D0%BE%D0%BD%D1%82%D0%B0%D0%BA%D1%82%D0%BE%D0%B2


И это:
http://macros-vba.ru/makrosy/outlook/154-kak-dobavit-otpravitelya-pisma-v-kontakty-outlook

Не работает. Кто знает решение - пожалуйста, отзовитесь!

[Дмитрий Щербаков(The_Prist)]

Не работает - что означает? Не создает контакт вовсе или как-то неправильно создает? Адресная книга вообще присутствует локально? Это не Exchange, случаем? Если Exchange, то добавлять может только админ.

[steel20]

Не Эксчендж.

Адресная книга была пустая до запуска макроса из этого мануала:
http://profhelp.com.ua/articles/ms-outlook-%D0%B0%D0%B2%D1%82%D0%BE%D0%BC%D0%B0%D1%82%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%BE%D0%B5-%D1%81%D0%BE%D0%B7%D0%B4%D0%B0%D0%BD%D0%B8%D0%B5-%D0%BA%D0%BE%D0%BD%D1%82%D0%B0%D0%BA%D1%82%D0%BE%D0%B2

Макрос прошел письма. После этого в книге появился адрес моего же ящика, только под разными именами. Плюс один адрес отправителя тоже добавился. Остальные 4 500 - нет.

Макрос из второго мануала вообще не заработал - ничего не произошло после запуска

[vikttur]

о в книге появился адрес моего же ящика, только под разными именами. Плюс один адрес отправителя тоже добавился.

Спамом балуетесь?

[steel20]

Нет.

[Дмитрий Щербаков(The_Prist)]

Так трудно сказать - Вам надо смотреть, что возвращает строка

Код (vb) Выделить Развернуть

iSenderName = MailMsg.SenderName
вдруг там неверно определяется адрес - такое тоже может быть.
Ну и вообще надо пошагово просмотреть код, убрав строку On Error Resume Next - скорее всего где-то ошибка возникает, поэтому и не создается.
Все это про второй код написано.