Post edited 13:22 – Ноябрь 15, 2010 by mcsimm
Post edited 13:21 – Ноябрь 17, 2010 by mcsimm

Здравствуйте!

Может, кто-нибудь сможет помочь справится с задачей.

В «Контактах» Аутлук имеется папки, допустим, «Подразделение 1″, «Подразделение 2″ и т.д.). Туда я заношу данные,

корректирую, группирую и т.д. На других ПК структура папки «Контакты» такая же. Теперь надо обновить у них информацию.

Принцип такой:

1) Выделяю контакты в «Подразделении 1″, правый клик мышкой – «Переслать документы»;

2) Отправляю письмо с прикрепленными файлами пользователю или группе;

3) На другом ПК человек в принятом письме перетягивает прикрепленные файлы мышью на «Контакты» – «Подразделение 1″,

заменяет при запросе. Все, данные обновились.

Возникает желание автоматизировать прием контактов на другой стороне.

1) Каждое такое письмо с карточками будет иметь определенную фразу в Subject

2) Создаю новое правило на входящие письма, которые в «Теме» содержат определенную строку и запуск сценарий.

3) Выбираю заранее подготовленный сценарий …. а вот тут уже хуже …. например, знаю, как файл сохранить

в файловой системе:

Sub script_1(myItem As Outlook.MailItem)

Dim att_count As Integer

For att_count = 1 To myItem.Attachments.Count

myItem.Attachments.Item(att_count).SaveAsFile («C:Files» & myItem.Attachments.Item( att_count).FileName)

Next

End Sub

а вот как его сохранить в «ContactsПодразделение 1″

Если кто даст мудрый совет, то буду очень благодарен.

P.S. Подскажите еще, пожалуйста, как в этом же скрипте еще до копирования произвести удаление всех имеющихся контактов

из папки «ContactsПодразделение 1″ причем без запроса?

P.S.S Не обращайте внимание на отсутствие знака «Слэш», я его писал, но почему-то в сообщении они не отображаются