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
(https://partner.microsoft.com/global/30000104)


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


Για περισσότερες πληροφορίες σχετικά με τις επιλογές υποστήριξης που είναι διαθέσιμες και τον τρόπο επικοινωνίας με τη Microsoft, επισκεφθείτε την ακόλουθη τοποθεσία της Microsoft στο Web:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
(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):
287530
(http://support.microsoft.com/kb/287530/EN-US/ )
OL2002: Ερωτήσεις σχετικά με προσαρμοσμένες φόρμες και λύσεις για το Outlook
Επιστροφή στην αρχή | Αποστολή σχολίων

Ιδιότητες

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

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

 
Επιστροφή στην αρχήΕπιστροφή στην αρχή