Τρόπος αυτόματης μετακίνησης των εργασιών που έχουν ανατεθεί σε άλλους σε έναν συγκεκριμένο φάκελο εργασιών στο Outlook

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

Το Outlook μας επιτρέπει να αναθέσουμε εργασίες σε άλλους. Εν τω μεταξύ, οι εργασίες που εκχωρείτε σε άλλα άτομα θα αποθηκευτούν επίσης στον προεπιλεγμένο φάκελο εργασιών σας. Σε αυτήν την περίπτωση, εάν συχνά χρειάζεται να αναθέσετε εργασίες σε άλλους, ο φάκελος εργασιών σας θα είναι ακατάστατος. Ο καλύτερος τρόπος για να ταξινομήσετε και να διαχειριστείτε τις εργασίες σας είναι να δημιουργήσετε έναν ξεχωριστό φάκελο και, στη συνέχεια, να μετακινήσετε τις εργασίες που έχουν ανατεθεί σε άλλους σε αυτόν το φάκελο. Αλλά χειροκίνητα αυτό θα είναι λίγο ενοχλητικό. Εδώ θα σας βοηθήσουμε να το επιτύχετε αυτόματα με το Outlook VBA.

Αυτόματη μετακίνηση των εργασιών που έχουν εκχωρηθεί σε άλλους σε έναν συγκεκριμένο φάκελο εργασιών

1. Αρχικά, θα πρέπει να δημιουργήσετε έναν νέο φάκελο εργασιών. Κάντε δεξί κλικ στον προεπιλεγμένο φάκελο εργασιών και επιλέξτε "Νέος φάκελος". Καθορίστε ένα όνομα για αυτόν. Εδώ θα πάρουμε ως παράδειγμα τον "Δοκιμή".
2. Στη συνέχεια, μεταβείτε στην καρτέλα "Προγραμματιστής" και κάντε κλικ στο κουμπί "Visual Basic".
3. Στη συνέχεια στο νέο παράθυρο "Visual Basic", κάντε διπλό κλικ στο έργο "ThisOutlookSession" και αντιγράψτε τους ακόλουθους κωδικούς VBA σε αυτό.

Public WithEvents Items As Outlook.Items

Sub Application_Startup()
    Set Items = Session.GetDefaultFolder(olFolderTasks).Items
End Sub

Sub Items_ItemAdd(ByVal Item As Object)
    If TypeName(Item) = "TaskItem" Then
       MoveTask Item
    End If
End Sub

Sub MoveTask(Item As TaskItem)
    Dim Folder As Outlook.Folder
    Dim myName As String
 
    'replace "smith" with your own account name
    myName = "Smith"
 
    If InStr(Item.Owner, myName) = 0 Then
       Set Folder = Session.GetDefaultFolder(olFolderTasks).Folders("Test")
       Item.Move Folder
    End If
End Sub

Σημείωση: Η συμβολοσειρά "myName" εξαρτάται από το όνομα του λογαριασμού σας. Μπορείτε να μεταβείτε στις "Ρυθμίσεις λογαριασμού" για να ελέγξετε το πεδίο "Το όνομά σας" όπως το παρακάτω στιγμιότυπο οθόνης:

4. Μετά από αυτό, πρέπει να υπογράψετε αυτόν τον κωδικό και να αλλάξετε τις ρυθμίσεις μακροεντολών. Για περισσότερες λεπτομέρειες, μπορείτε να ανατρέξετε στο Βήμα 2 στο άρθρο "2 βήματα για την αυτόματη επισήμανση ανεπιθύμητων μηνυμάτων ως αναγνωσμένα στο Outlook".
5. Τέλος, μπορείτε να δοκιμάσετε.

• Αρχικά, δημιουργήστε μια νέα εργασία και κάντε κλικ στο κουμπί "Εκχώρηση εργασίας" στο νέο παράθυρο εργασιών.
• Στη συνέχεια, μπορείτε να συνθέσετε την εργασία και να επιλέξετε τον παραλήπτη και τέλος να κάνετε κλικ στο κουμπί "Αποστολή".
• Μετά από αυτό, μπορείτε να μεταβείτε στη λίστα φακέλων εργασιών. Θα διαπιστώσετε ότι αυτή η εργασία τοποθετείται σίγουρα στο φάκελο "Δοκιμή".

Αντιμετωπίστε κατεστραμμένα αρχεία Outlook

Εάν λάβετε μηνύματα σφάλματος του Outlook που σχετίζονται με τα αρχεία σας στο Outlook, είναι πιθανό τα αρχεία να είναι κατεστραμμένα. Σε αυτήν την περίπτωση, μπορείτε να χρησιμοποιήσετε το ενσωματωμένο εργαλείο επιδιόρθωσης, Scanpst.exe, για να δοκιμάσετε. Εάν αποτύχει, η τελευταία σας λύση πρέπει να είναι πιο ισχυρή κατεστραμμένο εργαλείο επιδιόρθωσης αρχείων του Outlook, αρέσει DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή SQL Server βάση δεδομένων mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com