Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 01:34:06

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Outlook и VBA
| | |-+  Нужен макрос для Outlook - добавление отправителей в контакты
Страниц: [1]   Вниз
Печать
Автор Тема: Нужен макрос для Outlook - добавление отправителей в контакты  (Прочитано 11179 раз)
0 Пользователей и 1 Гость смотрят эту тему.
steel20
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 3


Просмотр профиля E-mail
« : 27.05.2018, 00:04:23 »

Помогите с макросом.
Есть 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)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #1 : 27.05.2018, 10:29:44 »

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

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
steel20
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 3


Просмотр профиля E-mail
« Ответ #2 : 27.05.2018, 16:07:18 »

Не Эксчендж.

Адресная книга была пустая до запуска макроса из этого мануала:
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
Глобальный модератор
Ветеран
*****

Репутация: +124/-0
Офлайн Офлайн

Сообщений: 1 816



Просмотр профиля
« Ответ #3 : 27.05.2018, 16:14:43 »

Цитировать
о в книге появился адрес моего же ящика, только под разными именами. Плюс один адрес отправителя тоже добавился.
Спамом балуетесь?
Записан
steel20
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 3


Просмотр профиля E-mail
« Ответ #4 : 27.05.2018, 17:31:03 »

Нет.
Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #5 : 27.05.2018, 18:41:51 »

Так трудно сказать - Вам надо смотреть, что возвращает строка
Код: (vb)
iSenderName = MailMsg.SenderName

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

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru