OL2002: как изменить файл как поле для всех контактов

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

Эта статья на английском языке:291144
Эта статья помещена в архив. Она предлагается "как есть" и обновляться не будет.
Аннотация
В данной статье описывается использование пользовательских форм Outlook и Visual Basic Scripting Edition (VBScript) для программного измененияФайл какполе для большого числа существующих контактов.
Дополнительная информация
Внимание: При изменении форматаФайл какполе с помощью стандартных Outlook обратитесь к форме, Outlook гарантирует, что формат этого поля не влияет на другие области, в котором отображается этот тип данных (например в верхней части при просмотре в представлении Адресные карточки контакта). Однако в этом примере просто изменяетФайл каксамо поле и таким образом, не выполняет ту же функцию, как форма контакта Outlook. Корпорация Майкрософт рекомендует создать копию папки «Контакты» и затем использовать приведенный ниже код примера в папку, в которой были скопированы, чтобы убедиться, что преимущества использования в этом примере перевешивают все потенциальные недостатки этого подхода.

Примечание: При измененииФайл какполя не влияет на порядок, в котором отображаются контакты в адресной книге Outlook.

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

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

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

Для получения дополнительных сведений о поддержке, которые доступны, а также о том, как связаться с корпорацией Майкрософт, посетите следующий веб-узел корпорации Майкрософт:http://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSПри создании новой настраиваемой формы Outlook, можно изменитьФайл какполя для всех контактов в любой из следующих форматов:
  • Во-первых, последний
  • Фамилия, имя
  • Компания
  • Фамилия, имя (организация)
  • Компания (последнего, первый)

Способ разработки настраиваемой формы

  1. НаФайлвыберите пункт менюНовый, а затем нажмите кнопкуПочтовое сообщениеЧтобы открыть новое сообщение электронной почты.
  2. НаСредстваменю новое сообщение электронной почты, выберите пунктФормы, а затем нажмите кнопкуЭта форма конструктора.
  3. Кнопки команд вставки пять на новую форму. Для этого:
    1. Пункт(P.2)вкладки для перехода к пустой страницы в форме.
    2. НаФормаменю, нажмите кнопкуЭлемент управления панели элементовщелкнитеCommandButton, а затем перетащите кнопку страницы в пустую форму.
    3. Щелкните правой кнопкой мыши новую кнопку, нажмите кнопкуСвойства, а затем введитеcmdLastFirstвИмяполе.
    4. ВЗаголовокполе, типФамилия, имя, а затем нажмите кнопкуОК.
    5. ВПанель инструментовдиалоговое окно, нажмите кнопкуCommandButton, а затем перетащите второй кнопки страницы в пустую форму.
    6. Щелкните правой кнопкой мыши новую кнопку, нажмите кнопкуСвойства, а затем введитеcmdFirstLastвИмяполе.
    7. ВЗаголовокполе, типВо-первых, последний, а затем нажмите кнопкуОК.
    8. ВПанель инструментовдиалоговое окно, нажмите кнопкуCommandButton, а затем выделите кнопку третьей страницы в пустую форму.
    9. Щелкните правой кнопкой мыши новую кнопку, нажмите кнопкуСвойства, а затем введитеcmdCompanyвИмяполе.
    10. ВЗаголовокполе, типКомпания, а затем нажмите кнопкуОК.
    11. ВПанель инструментовдиалоговое окно, нажмите кнопкуCommandButton, а затем выделите кнопку четвертый страницы в пустую форму.
    12. Щелкните правой кнопкой мыши новую кнопку, нажмите кнопкуСвойства, а затем введитеcmdLastFirstCompanyвИмяполе.
    13. ВЗаголовокполе, типФамилия, имя (организация), а затем нажмите кнопкуОК.
    14. ВПанель инструментовдиалоговое окно, нажмите кнопкуCommandButton, а затем выделите пятой кнопки страницы в пустую форму.
    15. Щелкните правой кнопкой мыши новую кнопку, нажмите кнопкуСвойства, а затем введитеcmdCompanyLastFirstвИмяполе.
    16. ВЗаголовокполе, типКомпания (последнего, первый), а затем нажмите кнопкуОК.
  4. Код типа следующие Visual Basic Scripting Edition (VBScript). Для этого:
    1. НаФормаменю, нажмите кнопкуПерейти к кодуЧтобы открыть редактор сценариев.
    2. В редакторе сценариев введите или скопируйте следующий код:
      Option ExplicitDim strSortBySub cmdLastFirst_Click()   strSortBy = "LastFirst"   UpdateContactsEnd SubSub cmdFirstLast_Click()   strSortBy = "FirstLast"   UpdateContactsEnd SubSub cmdCompany_Click()   strSortBy = "Company"   UpdateContactsEnd SubSub cmdLastFirstCompany_Click()   strSortBy = "Last, First (Company)"   UpdateContactsEnd SubSub cmdCompanyLastFirst_Click()   strSortBy = "Company (Last, First)"   UpdateContactsEnd SubSub UpdateContacts()   Dim CurFolder   Dim MyItems   Dim MyItem   Dim NumItems, i   ' Use whichever folder is currently selected   Set CurFolder = Application.ActiveExplorer.CurrentFolder   ' Make sure it's a contact folder   If CurFolder.DefaultItemType = 2 Then      MsgBox "This process may take some time. You will be " & _      "notified when complete.", , "Contact Tools Message"      Set MyItems = CurFolder.Items      NumItems = MyItems.Count      For i = 1 to NumItems         Set MyItem = MyItems.Item(i)         ' Make sure it's not a distribution list in the folder         ' (really only applies to OL98 and OL2000)         If TypeName(MyItem) = "ContactItem" Then            Select Case strSortBy               Case "LastFirst"                  If MyItem.LastNameandFirstName <> "" Then                     MyItem.FileAs = MyItem.LastNameandFirstName                  Else                     MyItem.FileAs = MyItem.CompanyName                  End IF               Case "FirstLast"                  If MyItem.Subject <> "" Then                     MyItem.FileAs = MyItem.Subject                  Else                     MyItem.FileAs = MyItem.CompanyName                  End IF               Case "Company"                  If MyItem.CompanyName <> "" Then                     MyItem.FileAs = MyItem.CompanyName                  Else                     MyItem.FileAs = MyItem.LastNameandFirstName                  End IF               Case "Last, First (Company)"                  MyItem.FileAs = MyItem.LastNameAndFirstName                  If MyItem.CompanyName <> "" Then                     If MyItem.FileAs <> "" Then                        MyItem.FileAs = MyItem.FileAs & " (" & _                                        MyItem.CompanyName & ")"                     Else                        MyItem.FileAs = MyItem.FileAs & _                                  MyItem.CompanyName                     End If                  End If               Case "Company (Last, First)"                  MyItem.FileAs = MyItem.CompanyName                  If MyItem.LastNameandFirstName <> "" Then                     If MyItem.FileAs <> "" Then                        MyItem.FileAs = MyItem.FileAs & " (" & _                               MyItem.LastNameAndFirstName & ")"                     Else                        MyItem.FileAs = MyItem.FileAs & _                               MyItem.LastNameAndFirstName                     End If                  End If            End Select            MyItem.Save         End If           ' check TypeName      Next      MsgBox "Finished updating contacts."   Else      MsgBox "The current folder must be a contacts folder."   End If                 ' check contacts folder   Set MyItem = Nothing   Set MyItems = Nothing   Set CurFolder = NothingEnd Sub						
    3. НаФайлвыберите пункт меню в редакторе сценариевЗакрытьЧтобы вернуться к форме.
    4. ПунктСообщениеСтраница формы.
    5. НаФормаменю, нажмите кнопкуОтображать эту страницу. Таким образом, чтобы он не отображается, когда используется это скрывает страницы формы.
  5. Опубликовать форму. Для этого:
    1. НаСредствавыберите пункт менюФормы, а затем нажмите кнопкуОпубликовать форму как.
    2. Убедитесь, что рядом сИскать ввы увидите кнопкуБиблиотека личных форм.
    3. ВОтображаемое имяВведите имя новой формы discriptive (например,Изменение как поля), а затем нажмите кнопкуПубликация.
    4. Когда будет предложено сохранить определение формы выберите элемент и нажмите кнопкуНет.
    5. Закройте сообщение, не сохраняя его.

Использование настраиваемой формы

Для использования новой формы:
  1. Найдите папку контактов, которые требуется re-sequence.
  2. НаФайлвыберите пункт менюНовый, а затем нажмите кнопкуВыбор формы.
  3. ИзменениеИскать вЧтобыБиблиотека личных формв новую форму и нажмите кнопкуОК.
  4. Нажмите соответствующую кнопку, чтобы обновитьФайл какполе.
Ссылки
Для получения дополнительных сведений о доступных ресурсах и answersto ответы на часто задаваемые вопросы о решениях Microsoft Outlook щелкните следующий номер статьи базы знаний Майкрософт:
287530OL2002: вопросы О настраиваемых форм и решений Outlook
OutSol2002 OfficeKBHowTo OutSol

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

Свойства

Номер статьи: 291144 — последний просмотр: 12/06/2015 01:04:20 — редакция: 3.0

Microsoft Outlook 2002 Standard Edition

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