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

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

В этой статье

Аннотация

В данной статье описывается использование пользовательских форм 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 Explicit
      Dim strSortBy
      
      Sub cmdLastFirst_Click()
         strSortBy = "LastFirst"
         UpdateContacts
      End Sub
      
      Sub cmdFirstLast_Click()
         strSortBy = "FirstLast"
         UpdateContacts
      End Sub
      
      Sub cmdCompany_Click()
         strSortBy = "Company"
         UpdateContacts
      End Sub
      
      Sub cmdLastFirstCompany_Click()
         strSortBy = "Last, First (Company)"
         UpdateContacts
      End Sub
      
      Sub cmdCompanyLastFirst_Click()
         strSortBy = "Company (Last, First)"
         UpdateContacts
      End Sub
      
      Sub 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 = Nothing
      
      End Sub
      						
    3. НаФайлвыберите пункт меню в редакторе сценариевЗакрытьЧтобы вернуться к форме.
    4. ПунктСообщениеСтраница формы.
    5. НаФормаменю, нажмите кнопкуОтображать эту страницу. Таким образом, чтобы он не отображается, когда используется это скрывает страницы формы.
  5. Опубликовать форму. Для этого:
    1. НаСредствавыберите пункт менюФормы, а затем нажмите кнопкуОпубликовать форму как.
    2. Убедитесь, что рядом сИскать ввы увидите кнопкуБиблиотека личных форм.
    3. ВОтображаемое имяВведите имя новой формы discriptive (например,Изменение как поля), а затем нажмите кнопкуПубликация.
    4. Когда будет предложено сохранить определение формы выберите элемент и нажмите кнопкуНет.
    5. Закройте сообщение, не сохраняя его.

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

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

Ссылки

Для получения дополнительных сведений о доступных ресурсах и answersto ответы на часто задаваемые вопросы о решениях Microsoft Outlook щелкните следующий номер статьи базы знаний Майкрософт:
287530OL2002: вопросы О настраиваемых форм и решений Outlook

Свойства

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

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

 

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