OL2002: Jak změnit soubor jako pole pro všechny kontakty

Překlady článku Překlady článku
ID článku: 291144 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento článek popisuje, jak programově změnit pole Zařadit jako velký počet existujících kontaktů pomocí vlastní formulář Outlook a Visual Basic Scripting Edition (VBScript).

Další informace

Důležité: změníte formát pole Zařadit jako pomocí standardní formulář kontaktu Outlook, Outlook zajistí formát tohoto pole neovlivní ostatní oblasti, kde je zobrazen tento typ informací (například v horní části kontakt při zobrazení v zobrazení adresní karty). Tento příklad jednoduše změní Soubor jako samotného pole a proto neprovede stejnou funkci jako formulář kontaktu Outlook. Společnost Microsoft doporučuje vytvořit kopii složky kontaktů a potom použijte ukázkový kód níže na složku, kterou jste zkopírovali zajistit výhody použití této ukázkové nepřevýší všechny potenciální vyskytují chyby tento přístup.

Poznámka: Při změně pole Zařadit jako pořadí, ve kterém se kontakty zobrazují v adresáři Outlook nebudou ovlivněna.

Ukázky programů jsou společností Microsoft poskytovány pouze pro ilustraci bez žádné záruky výslovně uvedené ani předpokládané, včetně předpokládaných záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.
Pokud máte zkušenosti s programováním omezený, můžete kontaktovat partnera s certifikátem Microsoft nebo služby Advisory. Na další informace těchto webech společnosti Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104

Služba Microsoft zpravodaje - http://support.microsoft.com/gp/advisoryservice

Další informace o možnostech podpory, které jsou k dispozici a o možnostech kontaktování společnosti Microsoft na následujícím webu společnosti Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSKdyž vytvoříte nový vlastní formulář Outlook, můžete změnit pole Zařadit jako pro všechny kontakty do následujících formátů:
  • První poslední
  • Poslední první
  • Společnost
  • Poslední Křestní (společnost)
  • Společnost (Příjmení, křestní)

Jak navrhnout vlastní formulář

  1. V nabídce soubor přejděte na příkaz Nový a klepněte na příkaz E-mail otevřít novou e-mailovou zprávu.
  2. V nabídce Nástroje nové e-mailové zprávy přejděte na příkaz formuláře a potom klepněte na tlačítko Navrhnout tento formulář.
  3. Vložte pět příkazového tlačítka na nový formulář. Akce:
    1. Klepněte na kartu (P.2) přejděte na prázdnou stránku na formuláři.
    2. V nabídce formuláře klepněte na příkaz Ovládací prvky, CommandButton klepněte a přetáhněte tlačítko na stránku prázdného formuláře.
    3. Klepněte pravým tlačítkem myši na nové tlačítko, klepněte na příkaz Vlastnosti a poté v poli název zadejte cmdLastFirst.
    4. Do pole Titulek zadejte Příjmení, první a potom klepněte na tlačítko OK.
    5. V dialogovém okně paneluCommandButton klepněte a potom přetáhněte druhé tlačítko stránku prázdného formuláře.
    6. Klepněte pravým tlačítkem myši na nové tlačítko, klepněte na příkaz Vlastnosti a poté v poli název zadejte cmdFirstLast.
    7. Do pole Titulek zadejte První poslední a potom klepněte na tlačítko OK.
    8. V dialogovém okně panelu klepněte na tlačítko CommandButton a tlačítko přetáhněte třetí stránku prázdného formuláře.
    9. Klepněte pravým tlačítkem myši na nové tlačítko, klepněte na příkaz Vlastnosti a poté v poli název zadejte cmdCompany.
    10. Do pole Titulek zadejte společnosti a klepněte na tlačítko OK.
    11. V dialogovém okně panelu klepněte na tlačítko CommandButton a tlačítko přetáhněte čtvrté stránce prázdného formuláře.
    12. Klepněte pravým tlačítkem myši na nové tlačítko, klepněte na příkaz Vlastnosti a poté v poli název zadejte cmdLastFirstCompany.
    13. Do pole Titulek zadejte Příjmení, Křestní (společnost) a potom klepněte na tlačítko OK.
    14. V dialogovém okně panelu klepněte na tlačítko CommandButton a tlačítko přetáhněte páté stránky prázdného formuláře.
    15. Klepněte pravým tlačítkem myši na nové tlačítko, klepněte na příkaz Vlastnosti a poté v poli název zadejte cmdCompanyLastFirst.
    16. Do pole Titulek zadejte Společnost (Příjmení, křestní) a potom klepněte na tlačítko OK.
  4. Zadejte následující kód Visual Basic Scripting Edition (VBScript). Akce:
    1. V nabídce formuláře tlačítko Pohledu otevření tohoto programu.
    2. V editoru zadejte nebo zkopírujte následující 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. V nabídce soubor v programu klepněte na tlačítko Zavřít se vrátíte do formuláře.
    4. Klepněte na stránku zpráv formuláře.
    5. V nabídce formuláře klepněte na Tuto stránku zobrazit. Skryje stránky formuláře tak, aby se nezobrazí při použití formuláře.
  5. Publikujte formulář. Akce:
    1. V nabídce Nástroje přejděte na příkaz formuláře a potom klepněte na tlačítko Publikovat formulář jako.
    2. Ověřte, že vedle tlačítka Zobrazit v se zobrazí Knihovna osobních formulářů.
    3. Do pole Zobrazovaný název zadejte název discriptive pro nový formulář (například pole změnit soubor jako) a potom klepněte na tlačítko publikovat.
    4. Po zobrazení výzvy uložte definici formuláře s položkou, klepněte na tlačítko Ne.
    5. Zavřete zprávu bez uložení.

Použití vlastní formulář

Použití nového formuláře:
  1. Vyhledejte složku Kontakty, které chcete re-sequence.
  2. V nabídce soubor přejděte na příkaz Nový a potom klepněte na tlačítko Zvolit formulář.
  3. Změnit pole oblastKnihovna osobních formulářů, klepněte na tlačítko Nový formulář a potom klepněte na tlačítko OK.
  4. Klepněte na příslušné tlačítko Aktualizovat pole Zařadit jako.

Odkazy

Další informace o dostupných prostředcích a odpovědi na nejčastější dotazy týkající se řešení aplikace Microsoft Outlook naleznete v následujícím článku znalostní báze Microsoft Knowledge Base:
287530OL2002: Dotazy týkající se vlastních formulářů a řešení aplikace Outlook (Tento článek může obsahovat odkazy na anglický obsah (dosud nepřeložený).)

Vlastnosti

ID článku: 291144 - Poslední aktualizace: 23. listopadu 2006 - Revize: 2.4
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Outlook 2002 Standard Edition
Klíčová slova: 
kbmt kbhowto KB291144 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:291144

Dejte nám zpětnou vazbu

 

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