OL2000: Τρόπος μέσω προγραμματισμού Ορισμός χρονικού για όλες τις επαφές

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

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

Περίληψη

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

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

Η προεπιλεγμένη ρύθμιση για την καταγραφή στο χρονικό στοιχείων επαφών είναι απενεργοποιημένη. Εάν δημιουργείτε επαφές και, στη συνέχεια, αποφασίσετε να ενεργοποιήσετε την καταγραφή στο χρονικό για αυτές τις επαφές, ορίστε την επιλογή εγγραφών για κάθε επαφή:
  1. Στο διακομιστήΕργαλείαμενού, κάντε κλικ στο κουμπίOptions.
  2. Στο διακομιστήΠροτιμήσειςκαρτέλα, κάντε κλικ στο κουμπίΕπιλογές χρονικού.
  3. ΣτοΓια αυτές τις επαφέςπλαίσιο, κάντε κλικ σε κάθε επαφή για την οποία θέλετε να ενεργοποιήσετε την καταγραφή στο χρονικό.
Εάν έχετε πολλές επαφές και θέλετε να ενεργοποιήσετε την καταγραφή στο χρονικό για όλους τους, μπορεί να είναι πιο αποτελεσματικό να αλλάξετε μέσω προγραμματισμού όλες τις επαφές.

Η 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Για να δημιουργήσετε τη μακροεντολή:
  1. Στο διακομιστήΕργαλείαμενού, σημείοMacro, και στη συνέχεια κάντε κλικ στο κουμπίΜακροεντολές.
  2. Στοόνομα μακροεντολήςπληκτρολογήστεSetAllContactsToJournal, και στη συνέχεια κάντε κλικ στο κουμπίCreate. Το πρόγραμμα επεξεργασίας της Visual Basic ξεκινά και δημιουργεί αυτόματα μια υπορουτίνα για εσάς.
  3. Πληκτρολογήστε τις παρακάτω γραμμές κώδικα:
    Sub SetAllContactsToJournal()
    
       Dim objContactsFolder As Outlook.MAPIFolder
       Dim objContacts As Outlook.Items
       Dim objContact As Object
       Dim iCount As Integer
    
       ' Specify which contact folder to work with
       Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
       Set objContacts = objContactsFolder.Items
    
       iCount = 0
    
       ' Process the changes
       For Each objContact In objContacts
          If TypeName(objContact) = "ContactItem" Then
             If objContact.Journal = False Then
                objContact.Journal = True
                objContact.Save
                iCount = iCount + 1
             End If
          End If
       Next
       
       MsgBox "Number of contacts updated:" & Str$(iCount)
    
       ' Clean up
       Set objContact = Nothing
       Set objContacts = Nothing
       Set objContactsFolder = Nothing
    
    End Sub
    					
  4. Στο διακομιστήFILEμενού, κάντε κλικ στο κουμπίΚλείσιμο και επιστροφή στο Microsoft Outlook.
Για να χρησιμοποιήσετε τη μακροεντολή:
  1. Στο διακομιστήΕργαλείαμενού, σημείοMacro, και στη συνέχεια κάντε κλικ στο κουμπίΜακροεντολές.
  2. Κάντε κλικSetAllContactsToJournal, και στη συνέχεια κάντε κλικ στο κουμπίΕκτέλεση.
Εμφανίζεται ένα παράθυρο που σας ενημερώνει για τον αριθμό των επαφών που έχουν ενημερωθεί.

ΣΗΜΕΙΩΣΕΙΣ

  • Ενδέχεται να διαρκέσει κάποιο χρονικό διάστημα για την επεξεργασία των στοιχείων στο φάκελο επαφών σας.
  • Όταν ενημερώνονται οι επαφές σας, το δείκτη του ποντικιού δεν αλλάζει σε κλεψύδρα.
  • Μπορείτε να αντιστοιχίσετε τη μακροεντολή σε ένα κουμπί, εάν θα χρησιμοποιείτε συχνά.Για πρόσθετες πληροφορίες σχετικά με την αντιστοίχιση αυτήν τη μακροεντολή σε ένα κουμπί γραμμής εργαλείων, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
    252426OL2000: Τρόπος για να αντιστοιχίσετε μια μακροεντολή σε ένα κουμπί της γραμμής εργαλείων
  • Το δείγμα κώδικα λειτουργεί μόνο με τον προεπιλεγμένο φάκελο "Επαφές". Εάν θέλετε να εργαστείτε με οποιοδήποτε φάκελο επαφών, εντοπίστε την ακόλουθη γραμμή κώδικα
    Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
    						
    και να αλλάξετε:
    Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder
    					
  • Εάν είστε εξοικειωμένοι με τον προγραμματισμό και θέλετε να χρησιμοποιήσετε ένα φάκελο συγκεκριμένες επαφές σε διαφορετική θέση, ανατρέξτε στο ακόλουθο άρθρο της Γνωσιακής Βάσης της Microsoft:
208520OL2000: Παραδείγματα προγραμματισμού για αναφορά σε στοιχεία και φακέλους

Αναφορές

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

Ιδιότητες

Αναγν. άρθρου: 252947 - Τελευταία αναθεώρηση: Σάββατο, 2 Νοεμβρίου 2013 - Αναθεώρηση: 4.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Outlook 2000 Standard Edition
Λέξεις-κλειδιά: 
kbnosurvey kbarchive kbhowto kbmt KB252947 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο έχει μεταφραστεί χρησιμοποιώντας λογισμικό μηχανικής μετάφρασης της Microsoft και μπορείτε να το διορθώσετε χρησιμοποιώντας την τεχνολογία Community Translation Framework (CTF) (Πλαίσιο μετάφρασης κοινότητας). Η Microsoft παρέχει μηχανική μετάφραση, επεξεργασία μετά τη μηχανική μετάφραση από την κοινότητα και άρθρα μεταφρασμένα από επαγγελματίες προκειμένου να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής βάσης σε πολλές γλώσσες. Τα άρθρα μηχανικής μετάφρασης και αυτά που επεξεργάζονται ύστερα από μηχανική μετάφραση ενδέχεται να περιέχουν σφάλματα στο λεξιλόγιο, στη σύνταξη ή/και στη γραμματική. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες μας. Για περισσότερες πληροφορίες σχετικά με το CTF, μεταβείτε στην τοποθεσία http://support.microsoft.com/gp/machine-translation-corrections/el.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη: 252947

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

 

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