Εάν έχετε δημιουργήσει πολλές εργασίες στο Outlook και θέλετε τώρα να τις αναθέσετε σε ένα άτομο, θα επιθυμείτε μεθόδους για να τις εκχωρήσετε κατά παρτίδες. Σε αυτό το άρθρο, θα σας δείξουμε 2 τέτοιες προσεγγίσεις.
Μερικές φορές, για ορισμένους λόγους, πρέπει να αναθέσετε πολλές υπάρχουσες εργασίες στον δικό σας φάκελο Tasks σε κάποιον. Σε γενικές γραμμές, για να εκχωρήσετε μια εργασία, πρέπει να την ανοίξετε και να κάνετε κλικ στο κουμπί "Εκχώρηση εργασίας", συμπληρώστε τον παραλήπτη στο πεδίο "Προς" και τέλος κάντε κλικ στο κουμπί "Αποστολή". Όμως, αυτό σημαίνει ότι είναι πολύ κουραστικό στην περίπτωση που θέλετε να αναθέσετε πολλές εργασίες. Ως εκ τούτου, στα ακόλουθα, θα μοιραστούμε μαζί σας 2 πολύ πιο αποτελεσματικές και βολικές μεθόδους.
Μέθοδος 1: Προώθηση εργασιών ως συνημμένα σε email
- Αρχικά, σε έναν φάκελο Εργασιών, πατήστε το πλήκτρο "Ctrl" και εν τω μεταξύ επιλέξτε όλες τις εργασίες που θέλετε να αναθέσετε.
- Στη συνέχεια, κάντε κλικ στο κουμπί "Προώθηση" στην ομάδα "Απάντηση" στην καρτέλα "Αρχική σελίδα".
- Αμέσως, θα εμφανιστεί ένα νέο email.
- Σε αυτό το μήνυμα, έχουν επισυναφθεί όλες οι επιλεγμένες εργασίες.
- Τέλος, μπορείτε να προσθέσετε τον παραλήπτη, να συνθέσετε και να στείλετε το μήνυμα κατά βούληση.
Μέθοδος 2: Batch Assign Tasks με το Outlook VBA
- Στην αρχή, μεταβείτε στο πρόγραμμα επεξεργασίας του Outlook VBA ανατρέχοντας στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα VBA σε μια ενότητα.
Sub AssignMultipleTasksToAPerson()
Dim objSelection As Outlook.Selection
Dim objTask As Outlook.TaskItem
Dim i As Long
Dim lTaskCount As Long
'Get selected items
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
lTaskCount = 0
For i = objSelection.Count To 1 Step -1
If TypeOf objSelection(i) Is TaskItem Then
Set objTask = objSelection(i)
With objTask
'Alter the recipient email address as per your needs
.Recipients.Add ("johnsmith@datanumen.com")
.Recipients.ResolveAll
.Assign
.Send
End With
lTaskCount = lTaskCount + 1
End If
Next
'Get prompt
MsgBox lTaskCount & " tasks have been assigned!", vbInformation + vbOKOnly
End If
End Sub
- Μετά από αυτό, προσθέστε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Αργότερα, επιλέξτε τις εργασίες που θα ανατεθούν.
- Τέλος, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Αμέσως, αυτές οι εργασίες θα ανατεθούν στον προκαθορισμένο παραλήπτη.
Αποδράστε από την επίπονη απώλεια δεδομένων του Outlook
Θα είναι πολύ άθλιο να υποστούν απώλεια δεδομένων, συμπεριλαμβανομένης της απώλειας δεδομένων του Outlook. Ως εκ τούτου, είναι απαραίτητο να ληφθούν αποτελεσματικές προφυλάξεις για να αποτραπεί αυτό. Πρώτα απ 'όλα, πρέπει να κάνετε τακτικά αντίγραφα ασφαλείας δεδομένων. Εκτός αυτού, πρέπει να ξέρετε πού μπορείτε να αποκτήσετε το ενσωματωμένο εργαλείο επιδιόρθωσης - Σάρωση και πώς να το τρέξετε. Τελευταίο αλλά όχι λιγότερο σημαντικό, για να παρέχετε άμεση διάσωση σε περίπτωση βλάβης του εργαλείου επισκευής εισερχομένων, θα πρέπει καλύτερα να προετοιμάσετε ένα ισχυρό εξωτερικό εργαλείο εκ των προτέρων, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com