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

Переводы статьи Переводы статьи
Код статьи: 252947 - Vizualiza?i produsele pentru care se aplic? acest articol.
Развернуть все | Свернуть все

В этой статье

Аннотация

Данная статья содержит 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 = Nothing
    
    End 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

Свойства

Код статьи: 252947 - Последний отзыв: 21 сентября 2011 г. - Revision: 3.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Outlook 2000 Standard Edition
Ключевые слова: 
kbhowto kbmt KB252947 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:252947

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com