OL2002: Ako zmeniť súbor ako pole pre všetky kontakty

Preklady článku Preklady článku
ID článku: 291144 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Tento článok popisuje spôsob použitia vlastných formulár programu Outlook a Visual Basic Scripting Edition (VBScript) zmenu Súbor ako pole na veľký počet existujúce kontakty.

DALSIE INFORMACIE

DÔLEŽITÉ: Ak zmeníte formát Súbor ako pole pomocou štandardného Outlook kontaktný formulár, program Outlook zabezpečuje, že formát tohto poľa nemá vplyv na ostatné oblasti, kde sa zobrazí tento typ informácií (ako napríklad v hornej časti kontakt pri prezeraní v zobrazení karty s adresami). Avšak, tento príklad jednoducho zmení Súbor ako pole sama a preto nevykonáva rovnakú funkciu ako kontaktný formulár programu Outlook. Microsoft odporúča vytvoriť kópiu priečinka Kontakty a potom použije vzorka kód nižšie v priečinku, ktorý ste skopírovali na zabezpečenie, že výhody použitia táto vzorka prevážia akékoľvek potenciálne nedostatky tohto prístupu.

POZNÁMKA: Ak zmeníte Súbor ako pole, poradie zobrazovania kontaktov v adresári programu Outlook nie je dotknutá.

Spoločnosť Microsoft poskytuje príklady programovacieho základňa, bez záruky buď vyjadrenej alebo implicitnej záruky, vrátane, ale nie výlučne, implicitných záruk obchodovateľnosti a vhodnosti na konkrétny účel. Tento článok predpokladá, že ovládate predvádzaný programovací jazyk a nástroje na vytváranie a ladenie procedúr. Microsoft podporu odborníkov môže pomôcť vysvetliť funkčnosť konkrétny postup, ale nie modifikuje tieto príklady poskytovať pridanú funkčnosť alebo výstavbe postupy vašim špecifickým potrebám.
Ak máte obmedzené programovania skúsenosti, budete chcieť kontaktovať Microsoft Certified Partner alebo Microsoft poradenských služieb. Pre viac informácií, navštívte týchto webových lokalít spoločnosti Microsoft:

Microsoft certifikované partneri- https://partner.Microsoft.com/Global/30000104

Poradenské služby Microsoft- http://support.Microsoft.com/GP/advisoryservice

Ďalšie informácie o možnosti podpory, ktoré sú k dispozícii a o tom, ako kontaktovať spoločnosť Microsoft, navštívte nasledujúcu webovú lokalitu spoločnosti Microsoft:http://support.Microsoft.com/default.aspx?scid=FH;EN-US;CNTACTMSKeď vytvoríte nový vlastného formulára programu Outlook, môžete zmeniť Súbor ako pole pre všetky kontakty na niektorý z nasledujúcich formátov:
  • Meno priezvisko
  • Posledná, prvá
  • Spoločnosť
  • Posledná, prvá (spoločnosť)
  • Spoločnosť (posledná, prvá)

Ako navrhnúť vlastné formulára

  1. Na Súbor ponuku, ukážte na Nové, a potom kliknite na tlačidlo E-mailovej správy Otvorte novú e-mailovú správu.
  2. Na Nástroje ponuka novej e-mailovej správy, ukážte na Formuláre, a potom kliknite na tlačidlo Tento formulár.
  3. Vložte päť príkazové tlačidlá do nového formulára. Urobíte to takto:
    1. Kliknite na tlačidlo (P.2) TAB prejdite na prázdnu stranu formulára.
    2. Na Formulár ponuky, kliknite na tlačidlo Ovládacie prvky, kliknite na tlačidlo CommandButton, a potom presuňte tlačidlo na stránke prázdny formulár.
    3. Kliknite pravým tlačidlom na tlačidlo Nový, kliknite na tlačidlo Vlastnosti, a potom zadajte cmdLastFirst v meno rámček.
    4. V Popis zadajte Posledná, prvá, a potom kliknite na tlačidlo ok.
    5. V Toolbox dialógové okno, kliknite na tlačidlo CommandButton, a potom presuňte druhé tlačidlo na stránke prázdny formulár.
    6. Kliknite pravým tlačidlom na tlačidlo Nový, kliknite na tlačidlo Vlastnosti, a potom zadajte cmdFirstLast v meno rámček.
    7. V Popis zadajte Meno priezvisko, a potom kliknite na tlačidlo ok.
    8. V Toolbox dialógové okno, kliknite na tlačidlo CommandButton, a presuňte ho tretej tlačidlo na stránke prázdny formulár.
    9. Kliknite pravým tlačidlom na tlačidlo Nový, kliknite na tlačidlo Vlastnosti, a potom zadajte cmdCompany v meno rámček.
    10. V Popis zadajte Spoločnosť, a potom kliknite na tlačidlo ok.
    11. V Toolbox dialógové okno, kliknite na tlačidlo CommandButton, a presuňte ho štvrtú tlačidlo na stránke prázdny formulár.
    12. Kliknite pravým tlačidlom na tlačidlo Nový, kliknite na tlačidlo Vlastnosti, a potom zadajte cmdLastFirstCompany v meno rámček.
    13. V Popis zadajte Posledná, prvá (spoločnosť), a potom kliknite na tlačidlo ok.
    14. V Toolbox dialógové okno, kliknite na tlačidlo CommandButton, a presuňte ho piaty tlačidlo na stránke prázdny formulár.
    15. Kliknite pravým tlačidlom na tlačidlo Nový, kliknite na tlačidlo Vlastnosti, a potom zadajte cmdCompanyLastFirst v meno rámček.
    16. V Popis zadajte Spoločnosť (posledná, prvá), a potom kliknite na tlačidlo ok.
  4. Zadajte nasledujúci kód Visual Basic Scripting Edition (VBScript). Urobíte to takto:
    1. Na Formulár ponuky, kliknite na tlačidlo Zobraziť kód Ak chcete otvoriť Script Editor.
    2. V editore Script Editor, zadajte alebo skopírujte nasledujúci kód:
      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 Súbor kliknite na ponuku v editore skriptu Zatvorte pre návrat do formulára.
    4. Kliknite na tlačidlo Správa stranu formulára.
    5. Na Formulár ponuky, kliknite na tlačidlo Zobrazenie tejto stránky. To kože stranu formulára tak, aby sa nezobrazí, keď sa formulár používa.
  5. Publikujte formulár. Urobíte to takto:
    1. Na Nástroje ponuku, ukážte na Formuláre, a potom kliknite na tlačidlo Zverejniť formulár ako.
    2. Overiť, či vedľa Pozrite sa tlačidlo vidíte Knižnice osobných formulárov.
    3. V Zobrazované meno Zadajte discriptive názov pre váš nový formulár (ako napríklad Zmeniť súbor ako polia), a potom kliknite na tlačidlo Publikovať.
    4. Keď sa zobrazí výzva na uloženie definície formulára s položkou, kliknite na tlačidlo nie.
    5. Zavrite okno hlásenia bez uloženia.

Ako používať vlastné formulára

Používanie nového formulára:
  1. Vyhľadajte priečinok Kontakty, ktoré chcete re-sequence.
  2. Na Súbor ponuku, ukážte na Nové, a potom kliknite na tlačidlo Vybrať formulár.
  3. Zmena Pozrite sa Ak chcete, aby Knižnice osobných formulárov, kliknite na váš nový formulár, a potom ok.
  4. Kliknite na príslušné tlačidlo Aktualizovať Súbor ako pole.

ODKAZY

Ďalšie informácie o dostupných zdrojov a answersto najčastejšie kladené otázky o riešení Microsoft Outlook, kliknite na nasledujúce číslo článku databázy Microsoft Knowledge Base:
287530 OL2002: Otázky O vlastné formuláre a Outlook riešenia
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Vlastnosti

ID článku: 291144 - Posledná kontrola: 29. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Outlook 2002 Standard Edition
Kľúčové slová: 
kbhowto kbmt KB291144 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:291144

Odošlite odozvu

 

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