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

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
Tento článok bol archivovaný. Je publikovaný v aktuálnej podobe a už nebude aktualizovaný.
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 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. 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
OfficeKBHowTo OutSol OutSol2002
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.

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 291144 – Posledná kontrola: 12/06/2015 01:04:20 – Revízia: 2.0

Microsoft Outlook 2002 Standard Edition

  • kbnosurvey kbarchive kbhowto kbmt KB291144 KbMtsk
Pripomienky