В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

OL2000: Программная настройка ведения журнала для всех контактов

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:252947
Аннотация
Данная статья содержит Outlook макросы Visual Basic для приложений, которые можно использовать для программного изменения всех контактов, таким образом, чтобы они автоматически устанавливаются для журнала.
Дополнительная информация
Настройка по умолчанию ведение журнала контактов отключена. Если создать контакты, а затем решить включить ведение журнала для следующих контактов, установите параметр журнала для каждого контакта:
  1. НаСредстваменю, нажмите кнопкуПараметры.
  2. НаПараметрывкладки, щелкнитеПараметры журнала.
  3. ВДля следующих контактовполе, щелкните каждый контакт, для которого нужно включить ведение журнала.
Если имеется большое количество контактов, и нужно включить ведение журнала для всех из них, он может быть более эффективным для программного изменения все контакты.

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и или подразумеваемых, включая, но не ограничиваясь только ими, подразумеваемые гарантии товарности или пригодности для определенной цели. Примеры в данной статье рассчитаны на пользователя, имеющего достаточный уровень знаний соответствующего языка программирования, а также необходимых средств разработки и отладки.. Специалисты служб технической поддержки Майкрософт могут пояснить назначение тех или иных конструкций кода в конкретном примере, но модификация примеров и их адаптация к задачам разработчика не поддерживается..
, Если имеют ограниченный опыт программирования, может потребоваться обратиться к партнеру корпорации Майкрософт или консультационной службе корпорации Майкрософт. Для получения дополнительных сведений посетите следующие веб-узел Майкрософт:

Корпорация Майкрософт Сертифицированные партнеры-https://Partner.Microsoft.com/Global/30000104

Рекомендации корпорации Майкрософт службы-http://support.Microsoft.com/gp/advisoryservice

Для получения дополнительных сведений о поддержке, которые доступны, а также о том, как связаться с корпорацией Майкрософт, посетите следующий веб-узел корпорации Майкрософт:http://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSДля создания макроса:
  1. НаСредствавыберите пункт менюМакрос, а затем нажмите кнопкуМакросы.
  2. ВИмя макросаполе, типSetAllContactsToJournal, а затем нажмите кнопкуСоздать. Редактор Visual Basic, запускается и автоматически создает подпрограмма.
  3. Введите следующие строки кода:
    Sub SetAllContactsToJournal()   Dim objContactsFolder As Outlook.MAPIFolder   Dim objContacts As Outlook.Items   Dim objContact As Object   Dim iCount As Integer   ' Specify which contact folder to work with   Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)   Set objContacts = objContactsFolder.Items   iCount = 0   ' Process the changes   For Each objContact In objContacts      If TypeName(objContact) = "ContactItem" Then         If objContact.Journal = False Then            objContact.Journal = True            objContact.Save            iCount = iCount + 1         End If      End If   Next      MsgBox "Number of contacts updated:" & Str$(iCount)   ' Clean up   Set objContact = Nothing   Set objContacts = Nothing   Set objContactsFolder = NothingEnd Sub					
  4. НаФайлменю, нажмите кнопкуЗакрыть и вернуться в Microsoft Outlook.
Макрос:
  1. НаСредствавыберите пункт менюМакрос, а затем нажмите кнопкуМакросы.
  2. Нажмите кнопкуSetAllContactsToJournal, а затем нажмите кнопкуЗапустить.
Открывается окно о том, что число контактов, которые были обновлены.

Заметки

  • Это может занять некоторое время для обработки элементов в папке Контакты.
  • При обновлении контактов, указатель мыши не изменяется на значок песочных часов.
  • Можно назначить макрос кнопке при использовании этого часто.Для получения дополнительных сведений о назначении макроса кнопке панели инструментов щелкните следующий номер статьи базы знаний Майкрософт:
    252426OL2000: как назначить макрос кнопке панели инструментов
  • Пример кода работает только с помощью папки «Контакты» по умолчанию. Если требуется работать с любой папкой контактов, найдите следующую строку кода
    Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)						
    и замените его на:
    Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder					
  • Если вы знакомы с программированием и необходимо использовать папку контактов, определенный в другом месте, обратитесь к следующей статье Microsoft Knowledge Base:
208520OL2000: примеры программирования для содержащие ссылки на папки и элементы
Ссылки
Для получения дополнительных сведений о доступных ресурсах и answersto ответы на часто задаваемые вопросы о решениях Microsoft Outlook щелкните следующий номер статьи базы знаний Майкрософт:
146636OL2000: вопросы О настраиваемых форм и решений Outlook
OL2K OutSol OutSol2000

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 252947 — последний просмотр: 09/21/2011 08:27:00 — редакция: 3.0

Microsoft Outlook 2000 Standard Edition

  • kbhowto kbmt KB252947 KbMtru
Отзывы и предложения