OL2002: Jak zmieniæ plik jako pole dla wszystkich kontaktów

W tym artykule opisano sposób programowo zmieniæ za pomoc¹ niestandardowego formularza programu Outlook i Visual Basic Scripting Edition (VBScript) Kataloguj jako pole du¿¹ liczbê istniej¹cych kontaktów.

WA¯NE: Jeœli zmiana formatu Kataloguj jako pole za pomoc¹ standardowych kontaktu formularz programu Outlook, Outlook zapewnia, ¿e format tego pola nie wp³ywa na inne obszary, w którym bêd¹ wyœwietlane informacje tego typu (takie jak u góry kontaktu podczas wyœwietlania w widoku kart adresów). Jednak¿e, w tym przyk³adzie po prostu zmienia Kataloguj jako samego pola, a zatem nie wykonuje tak¹ sam¹ funkcjê jak formularz kontaktu programu Outlook. Firma Microsoft zaleca, aby utworzyæ kopiê folderu Kontakty, a nastêpnie u¿yj poni¿szy kod przyk³adowy folder, w którym kopiowane do zapewnienia, ¿e korzyœci wynikaj¹ce ze stosowania tego przyk³adu przewa¿aj¹ nad wszelkich potencjalnych braków tego podejœcia.

UWAGA: Po zmianie Kataloguj jako nie dotyczy pola kolejnoœæ wyœwietlania kontaktów w ksi¹¿ce adresowej programu Outlook.

Firma Microsoft podaje przyk³ady programowania wy³¹cznie, bez ¿adnej rêkojmi, wyra¿onej wprost ani dorozumianej, w tym tak¿e, aby dorozumianych gwarancji przydatnoœci handlowej i/lub przydatnoœci do okreœlonego celu. W tym artykule za³o¿ono, ¿e u¿ytkownik zna jêzyk programowania oraz narzêdzia u¿ywane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mog¹ pomóc w wyjaœnieniu jak dzia³a okreœlona procedura, ale nie bêd¹ modyfikowaæ tych przyk³adów ani dodawaæ ¿adnej funkcji i konstruowaæ nowych procedur w celu zaspokojenia okreœlonych potrzeb.
Jeœli ma niewielkie doœwiadczenie w programowaniu, nale¿y skontaktowaæ siê z certyfikowanym partnerem firmy Microsoft lub us³ugi doradcze firmy Microsoft. Aby uzyskaæ wiêcej informacji odwiedŸ nastêpuj¹ce witryny firmy Microsoft w sieci Web:

Certyfikowani partnerzy - firmy Microsoft https://partner.microsoft.com/Global/30000104

Us³ugi doradcze firmy Microsoft — http://support.microsoft.com/gp/advisoryservice

Aby uzyskaæ wiêcej informacji na temat dostêpnych opcji pomocy technicznej oraz sposobu kontakt z firm¹ Microsoft odwiedŸ nastêpuj¹c¹ witrynê firmy Microsoft w sieci Web:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPodczas tworzenia nowego niestandardowego formularza programu Outlook mo¿na zmieniæ Kataloguj jako pole wszystkie kontakty do jednego z nastêpuj¹cych formatów:

• Imiê nazwisko
• Nazwisko, imiê
• Firma
• Nazwisko, imiê (firma)
• Firma (nazwisko, imiê)

Jak zaprojektowaæ formularz niestandardowy

1. Na Plik menu, wska¿ Nowy, a nastêpnie kliknij przycisk Wiadomoœæ e-mail Aby otworzyæ now¹ wiadomoœæ e-mail.
2. Na Narzêdzia menu nowych wiadomoœci e-mail, polecenie Formularze, a nastêpnie kliknij przycisk Projektuj ten formularz.
3. Wstaw nowy formularz piêæ przycisków poleceñ. Aby to zrobiæ:
   1. Kliknij przycisk (P.2) TAB, aby przejϾ do pustej strony na formularzu.
   2. Na Formularz menu, kliknij przycisk Przybornik, kliknij przycisk Formant CommandButton, a nastêpnie przeci¹gnij przycisk do strony pusty formularz.
   3. Kliknij prawym przyciskiem myszy przycisk Nowy, kliknij przycisk W³aœciwoœci, a nastêpnie wpisz cmdLastFirst w Nazwa pole.
   4. W Podpis pole typu Nazwisko, imiê, a nastêpnie kliknij przycisk OK.
   5. W Przybornik okno dialogowe, kliknij przycisk Formant CommandButton, a nastêpnie przeci¹gn¹æ drugi przycisk strony pusty formularz.
   6. Kliknij prawym przyciskiem myszy przycisk Nowy, kliknij przycisk W³aœciwoœci, a nastêpnie wpisz cmdFirstLast w Nazwa pole.
   7. W Podpis pole typu Imiê nazwisko, a nastêpnie kliknij przycisk OK.
   8. W Przybornik okno dialogowe, kliknij przycisk Formant CommandButton, a nastêpnie przeci¹gnij przycisk trzeciej stronie pusty formularz.
   9. Kliknij prawym przyciskiem myszy przycisk Nowy, kliknij przycisk W³aœciwoœci, a nastêpnie wpisz cmdCompany w Nazwa pole.
   10. W Podpis pole typu Firma, a nastêpnie kliknij przycisk OK.
   11. W Przybornik okno dialogowe, kliknij przycisk Formant CommandButton, a nastêpnie przeci¹gnij czwartego przycisku do strony pusty formularz.
   12. Kliknij prawym przyciskiem myszy przycisk Nowy, kliknij przycisk W³aœciwoœci, a nastêpnie wpisz cmdLastFirstCompany w Nazwa pole.
   13. W Podpis pole typu Nazwisko, imiê (firma), a nastêpnie kliknij przycisk OK.
   14. W Przybornik okno dialogowe, kliknij przycisk Formant CommandButton, a nastêpnie przeci¹gnij pi¹ty przycisk do strony pusty formularz.
   15. Kliknij prawym przyciskiem myszy przycisk Nowy, kliknij przycisk W³aœciwoœci, a nastêpnie wpisz cmdCompanyLastFirst w Nazwa pole.
   16. W Podpis pole typu Firma (nazwisko, imiê), a nastêpnie kliknij przycisk OK.
4. Wpisz nastêpuj¹cy kod jêzyka Visual Basic Scripting Edition (VBScript). Aby to zrobiæ:
   1. Na Formularz menu, kliknij przycisk Wyœwietl kod Aby otworzyæ Edytor skryptów.
   2. W Edytorze skryptów wpisz lub skopiuj poni¿szy kod:

      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. Na Plik Kliknij menu w programie Script Editor Zamknij Aby powróciæ do formularza.
   4. Kliknij przycisk Wiadomoœci Strona formularza.
   5. Na Formularz menu, kliknij przycisk Wyœwietl tê stronê. Ukrywa stronê formularza, nie wyœwietlane, gdy formularz jest stosowany.
5. Opublikuj formularz. Aby to zrobiæ:
   1. Na Narzêdzia menu, wska¿ Formularze, a nastêpnie kliknij przycisk Opublikuj formularz jako.
   2. SprawdŸ, czy obok Szukaj w przycisk, który widzisz Biblioteka formularzy osobistych.
   3. W Nazwa wyœwietlana Wpisz nazwê nowego formularza (na przyk³ad, discriptive, Zmieñ plik jako pola), a nastêpnie kliknij przycisk Publikowanie.
   4. Po wyœwietleniu monitu zapisz z elementem definicjê formularza, kliknij przycisk Nr.
   5. Zamknij wiadomoϾ bez zapisywania go.

Jak u¿ywaæ formularza niestandardowego

Aby u¿yæ nowego formularza:

1. Zlokalizuj folder kontaktów, który chcesz re-sequence.
2. Na Plik menu, wska¿ Nowy, a nastêpnie kliknij przycisk Wybierz formularz.
3. Zmiana Szukaj w pole Biblioteka formularzy osobistych, kliknij przycisk Nowy formularz, a nastêpnie kliknij przycisk OK.
4. Kliknij odpowiedni przycisk, aby zaktualizowaæ Kataloguj jako pole.

Aby uzyskaæ dodatkowe informacje dotycz¹ce dostêpnych zasobów i answersto, czêsto zadawane pytania dotycz¹ce rozwi¹zañ programu Microsoft Outlook kliknij numer artyku³u poni¿ej w celu wyœwietlenia tego artyku³u z bazy wiedzy Microsoft Knowledge Base: