OL2002: ????? ????? ????? ???? ??? ???? ???? ???????

???? ??? ??????? ????? ??????? ????? Outlook ? Visual Basic Scripting Edition (VBScript) ????? ?????? ??? "?????" ?????? ??? ??? ???? ?? ???? ??????? ???????? ?????? ??????.

???: ??? ??? ?????? ????? ??? ????? ???????? ????? ??? ????? Outlook ????? ???? Outlook ?? ???? ??????? ??? ????? ??? ????? ???? ??? ??? ??? ??? ????? ?? ????????? (??? ???? ??? ??????? ??? ????? ?? ????? ????? "?????? ????????"). ??? ????? ?? ???? ??? ?????? ?????? ?????? ????? ????? ???? ??? ????? ?? ?????? ??? ???? ?????? ???? ????? Outlook. ???? Microsoft ???? ???? ???? ???? ??????? ?????? ?? ??? ?? ??????? ????? ???????? ???????? ????? ??? ?????? ???? ??? ?????? ??? ?????? ?? ?? ????? ??????? ??? ?????? ???? ?? shortcomings ???????? ?? ??? ???????.

??????: ????? ???? ?????? ????? ????? ??????? ???? ???? ?? ???? ??????? ?? ???? ?????? Outlook ?? ?????.

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ????? ? ? ?? ????? ??? ?????? ???????? ??????? ?/?? ???????? ???? ????. ????? ??? ??????? ??? ????? ??? ??? ??????? ???? ?? ????? ???????? ????????? ?????? ????????? ????????. ???? ?? ????? ??????? ????? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ????????? ???????.
??? ??? ??? ?? ???? ???? ???? ?????? ?? ???? ???????? ?? ????? ??? ??????? ????? Microsoft ?? ????? ???????. ????? ?? ?????????? ?? ?????? ????? ??? Microsoft ???:

Microsoft ????????? Partners ? https://partner.microsoft.com/global/30000104

????? Microsoft ??????? ???? ???? ??????? - http://support.microsoft.com/gp/advisoryservice

?????? ??? ???? ?? ????????? ??? ?????? ????? ???????? ???? ????? ??????? ????? Microsoft ?? ?????? ???? Microsoft ?????? ??? ?????: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS????? ???? ?????? ????? ???? ???? Outlook ????? ????? ??? ????? ???? ???? ??????? ??? ??? ????????? ???????:

• ????? ??????
• ?????? ?????
• ??????
• ?????? ????? (??????)
• ?????? (?????? ? ?????)

????? ????? ????? ????

1. ?? ??????? ???? ??? ??? ???? ?? ???? ??? ????? ???? ???? ????? ???? ???????? ?????.
2. ?? ??????? ????? ????? ???? ???????? ????? ??? ??? ????? ? ?? ???? ??? ????? ??? ???????.
3. ????? ????? ??????? ??? ??? ????? ????. ?????? ????:
   1. ???? ??? ????? ??????? (P.2) ???????? ??? ???? ????? ?? ???????.
   2. ?? ??????? "?????" ? ???? ??? ???? ????? ?????? ???? ??? CommandButton ?? ?? ???? ???? ??? ???? ????? ????.
   3. ???? ??? ?????? ?????? ??? ???? ?????? ???? ??? ????? ?? ?? ???? cmdLastFirst ?? ?????? ?????.
   4. ?? ?????? ????? ??????? ???? ?????? ????? ?? ???? ??? ?????.
   5. ?? ???? ?????? Toolbox ???? ??? CommandButton ?? ?? ???? ?? ???? ??? ???? ????? ????.
   6. ???? ??? ?????? ?????? ??? ???? ?????? ???? ??? ????? ?? ?? ???? cmdFirstLast ?? ?????? ?????.
   7. ?? ?????? ????? ??????? ???? ????? ?????? ?? ???? ??? ?????.
   8. ?? ???? ?????? Toolbox ???? ??? CommandButton ?? ??? ????? ???? ??? ???? ????? ????.
   9. ???? ??? ?????? ?????? ??? ???? ?????? ???? ??? ????? ?? ?? ???? cmdCompany ?? ?????? ?????.
   10. ?? ?????? ????? ??????? ???? ?????? ??? ?? ???? ??? ?????.
   11. ?? ???? ?????? Toolbox ???? ??? CommandButton ?? ??? ?????? ???? ??? ???? ????? ????.
   12. ???? ??? ?????? ?????? ??? ???? ?????? ???? ??? ????? ?? ?? ???? cmdLastFirstCompany ?? ?????? ?????.
   13. ?? ?????? ????? ??????? ???? ?????? ????? (??????) ??? ?? ???? ??? ?????.
   14. ?? ???? ?????? Toolbox ???? ??? 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 ???? ??? ??? ??????? ????? ?????? ?? "????? ??????? ?? Microsoft: