OL2002: Τρόπος αλλαγής του αρχείου ως πεδίο για όλες τις επαφές

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 291144 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Αυτό το άρθρο περιγράφει πώς μπορείτε να χρησιμοποιήσετε μια προσαρμοσμένη φόρμα του Outlook και Visual Basic Scripting Edition (VBScript) για να αλλάξετε μέσω προγραμματισμού τοΤο αρχείο ωςτο πεδίο για έναν μεγάλο αριθμό από τις υπάρχουσες επαφές.

Περισσότερες πληροφορίες

Σημαντικό: Εάν αλλάξετε τη μορφή τουΤο αρχείο ωςτο πεδίο χρησιμοποιώντας την τυπική φόρμα επαφής του Outlook, Outlook εξασφαλίζει ότι η μορφή αυτού του πεδίου δεν επηρεάζει άλλες περιοχές όπου εμφανίζεται αυτός ο τύπος των πληροφοριών (όπως στο επάνω μέρος μιας επαφής όταν προβάλλετε στην προβολή "κάρτες διευθύνσεων"). Ωστόσο, αλλάζει απλώς αυτό το παράδειγμα τηςΤο αρχείο ωςίδιο πεδίο και κατά συνέπεια δεν εκτελεί την ίδια λειτουργία με τη φόρμα επαφής του Outlook. Η Microsoft συνιστά να δημιουργήσετε ένα αντίγραφο του φακέλου επαφές και στη συνέχεια να χρησιμοποιήσετε το δείγμα κώδικα κάτω από το φάκελο που αντιγράψατε για να εξασφαλίσετε ότι τα οφέλη της χρήσης αυτού του δείγματος υπερβαίνουν τα πιθανά shortcomings αυτής της προσέγγισης.

ΣΗΜΕΙΩΣΗ: Όταν αλλάζετε τοΤο αρχείο ωςτο πεδίο, η σειρά με την οποία εμφανίζονται οι επαφές στο βιβλίο διευθύνσεων του Outlook δεν επηρεάζονται.

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς να παρέχει καμία εγγύηση, είτε σιωπηρή είτε ρητή, περιλαμβανομένων, ενδεικτικά, των σιωπηρών εγγυήσεων εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες, για να καλύψουν τις συγκεκριμένες ανάγκες σας.
Εάν δεν έχετε μεγάλη εμπειρία προγραμματισμού, ίσως χρειαστεί να επικοινωνήσετε με κάποιον πιστοποιημένο συνεργάτη της Microsoft (Microsoft Certified Partner) ή να χρησιμοποιήσετε τις συμβουλευτικές υπηρεσίες Microsoft Advisory Services. Για περισσότερες πληροφορίες, επισκεφθείτε αυτές τις τοποθεσίες της Microsoft στο Web:

Πιστοποιημένοι συνεργάτες της Microsoft -https://partner.microsoft.com/global/30000104

Συμβουλευτικές υπηρεσίες της Microsoft-http://support.Microsoft.com/GP/advisoryservice

Για περισσότερες πληροφορίες σχετικά με τις επιλογές υποστήριξης που είναι διαθέσιμες και τον τρόπο επικοινωνίας με τη Microsoft, επισκεφθείτε την ακόλουθη τοποθεσία της Microsoft στο Web:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSΌταν δημιουργείτε μια νέα προσαρμοσμένη φόρμα του Outlook, μπορείτε να αλλάξετε τοΤο αρχείο ωςτο πεδίο για όλες τις επαφές σε οποιαδήποτε από τις παρακάτω μορφές:
  • Όνομα Επώνυμο
  • Τελευταία, πρώτα
  • Εταιρεία
  • Τελευταία, η πρώτη (εταιρεία)
  • Εταιρεία (επώνυμο, όνομα)

Με τον τρόπο σχεδίασης της προσαρμοσμένης φόρμας

  1. Στο διακομιστήFILEμενού, σημείοΝέα, και στη συνέχεια κάντε κλικ στο κουμπίΑλληλογραφία μηνυμάτωνΓια να ανοίξετε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου.
  2. Στο διακομιστήΕργαλείαμενού του νέου μηνύματος ηλεκτρονικού ταχυδρομείου, τοποθετήστε το δείκτηΦόρμες, και στη συνέχεια κάντε κλικ στο κουμπίΣχεδίαση φόρμας.
  3. Εισαγωγή πέντε κουμπιά εντολής στη νέα φόρμα. Για να το κάνετε αυτό:
    1. Κάντε κλικ στην καρτέλα(P.2)στην καρτέλα για να μεταβείτε σε μια κενή σελίδα της φόρμας.
    2. Στο διακομιστήMAPIμενού, κάντε κλικ στο κουμπίΕργαλειοθήκη στοιχείων ελέγχουΚάντε κλικΣτοιχείο CommandButton, και στη συνέχεια σύρετε το κουμπί στη σελίδα κενή φόρμα.
    3. Κάντε δεξιό κλικ στο νέο κουμπί, κάντε κλικ στο κουμπίΙδιότητες (Properties), και στη συνέχεια πληκτρολογήστεcmdLastFirstΣτοNAME"Τύπος" (Type).
    4. ΣτοΛεζάντα (Caption)πληκτρολογήστεΤελευταία, πρώτα, και στη συνέχεια κάντε κλικ στο κουμπίOk.
    5. ΣτοΕργαλειοθήκηπαράθυρο διαλόγου, κάντε κλικ στο κουμπίΣτοιχείο CommandButton, και στη συνέχεια, σύρετε ένα δεύτερο κουμπί στη σελίδα κενή φόρμα.
    6. Κάντε δεξιό κλικ στο νέο κουμπί, κάντε κλικ στο κουμπίΙδιότητες (Properties), και στη συνέχεια πληκτρολογήστεcmdFirstLastΣτοNAME"Τύπος" (Type).
    7. ΣτοΛεζάντα (Caption)πληκτρολογήστεΌνομα Επώνυμο, και στη συνέχεια κάντε κλικ στο κουμπίOk.
    8. ΣτοΕργαλειοθήκηπαράθυρο διαλόγου, κάντε κλικ στο κουμπίΣτοιχείο CommandButton, και στη συνέχεια σύρετε ένα τρίτο κουμπί στη σελίδα κενή φόρμα.
    9. Κάντε δεξιό κλικ στο νέο κουμπί, κάντε κλικ στο κουμπίΙδιότητες (Properties), και στη συνέχεια πληκτρολογήστεcmdCompanyΣτοNAME"Τύπος" (Type).
    10. ΣτοΛεζάντα (Caption)πληκτρολογήστεΕταιρεία, και στη συνέχεια κάντε κλικ στο κουμπίOk.
    11. ΣτοΕργαλειοθήκηπαράθυρο διαλόγου, κάντε κλικ στο κουμπίΣτοιχείο CommandButton, και στη συνέχεια σύρετε ένα τέταρτο κουμπί στη σελίδα κενή φόρμα.
    12. Κάντε δεξιό κλικ στο νέο κουμπί, κάντε κλικ στο κουμπίΙδιότητες (Properties), και στη συνέχεια πληκτρολογήστεcmdLastFirstCompanyΣτοNAME"Τύπος" (Type).
    13. ΣτοΛεζάντα (Caption)πληκτρολογήστεΤελευταία, η πρώτη (εταιρεία), και στη συνέχεια κάντε κλικ στο κουμπίOk.
    14. ΣτοΕργαλειοθήκηπαράθυρο διαλόγου, κάντε κλικ στο κουμπίΣτοιχείο CommandButton, and then drag a fifth button to the blank form page.
    15. Right-click the new button, clickΙδιότητες (Properties), και στη συνέχεια πληκτρολογήστεcmdCompanyLastFirstΣτοNAME"Τύπος" (Type).
    16. ΣτοCaptionπληκτρολογήστεCompany (Last, First), και στη συνέχεια κάντε κλικ στο κουμπίOk.
  4. Type the following Visual Basic Scripting Edition (VBScript) code. Για να το κάνετε αυτό:
    1. Στο διακομιστήMAPIμενού, κάντε κλικ στο κουμπίΠροβολή κώδικαto open the Script Editor.
    2. In the Script Editor, type or copy the following code:
      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. Στο διακομιστήFILEmenu in Script Editor, clickClose (Κλείσιμο)to return to the form.
    4. Κάντε κλικ στην καρτέλαΜήνυμαpage of the form.
    5. Στο διακομιστήMAPIμενού, κάντε κλικ στο κουμπίDisplay This Page. This hides the form page so that it does not appear when the form is used.
  5. Publish the form. Για να το κάνετε αυτό:
    1. Στο διακομιστήΕργαλείαμενού, σημείοΦόρμες, και στη συνέχεια κάντε κλικ στο κουμπίPublish Form As.
    2. Verify that next to theΑναζητήστε στο φάκελοbutton you seePersonal Forms Library.
    3. ΣτοΕμφανιζόμενο όνομα (Display Name)box, type a discriptive name for your new form (such as,Change File As fields), και στη συνέχεια κάντε κλικ στο κουμπίPublish.
    4. When you are prompted to save the form definition with the item, clickΟΧΙ,.
    5. Close the message without saving it.

How to Use the Custom Form

To use your new form:
  1. Locate the Contact folder that you want to re-sequence.
  2. Στο διακομιστήFILEμενού, σημείοΝέα, και στη συνέχεια κάντε κλικ στο κουμπίChoose Form.
  3. Αλλαγή τουΑναζητήστε στο φάκελοπλαίσιοPersonal Forms Library, click your new form, and then clickOk.
  4. Click the appropriate button to update theFile AsΠεδίο (Field).

Αναφορές

Για πρόσθετες πληροφορίες σχετικά με τους διαθέσιμους πόρους και για απαντήσεις σε συνήθεις ερωτήσεις για λύσεις του Microsoft Outlook, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft (Knowledge Base):
287530OL2002: Ερωτήσεις σχετικά με προσαρμοσμένες φόρμες και λύσεις για το Outlook

Ιδιότητες

Αναγν. άρθρου: 291144 - Τελευταία αναθεώρηση: Πέμπτη, 6 Οκτωβρίου 2011 - Αναθεώρηση: 5.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Outlook 2002 Standard Edition
Λέξεις-κλειδιά: 
kbhowto kbmt KB291144 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:291144

Αποστολή σχολίων

 

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