2 γρήγορες μέθοδοι για τη συγχώνευση πολλαπλών εργασιών σε μία στο Outlook σας

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

Όταν ασχολείστε με πολλαπλές εργασίες του Outlook που είναι συσχετιζόμενες μεταξύ τους, ίσως θελήσετε να τις συγχωνεύσετε απευθείας σε μία εργασία. Και η νέα συγχωνευμένη εργασία θα πρέπει να περιλαμβάνει όλα τα σώματα των εργασιών προέλευσης και να χρησιμοποιεί την παλαιότερη ημερομηνία μεταξύ όλων των ημερομηνιών ως ημερομηνία έναρξης και την πιο πρόσφατη ημερομηνία ως ημερομηνία λήξης και ούτω καθεξής. Τώρα, παρακάτω, θα παρουσιάσουμε 2 τρόπους για να το αποκτήσετε γρήγορα.

Μέθοδος 1: Συγχώνευση πολλαπλών εργασιών με μη αυτόματο τρόπο

1. Αρχικά, δημιουργήστε μια νέα εργασία.
2. Στη συνέχεια, στη νέα εργασία, μεταβείτε στην καρτέλα "Εισαγωγή" και κάντε κλικ στο κουμπί "Στοιχεία του Outlook".
3. Στη συνέχεια, στο αναδυόμενο παράθυρο, επιλέξτε τις εργασίες που θέλετε να συγχωνεύσετε.
4. Στη συνέχεια, επιλέξτε "Μόνο κείμενο" στο πλαίσιο "Εισαγωγή ως".
5. Μετά από αυτό, κάντε κλικ στο κουμπί "OK".
6. Αργότερα, οι πληροφορίες των εργασιών θα εισαχθούν στο σώμα της νέας εργασίας.
7. Τώρα, πρέπει να βρείτε με μη αυτόματο τρόπο την παλαιότερη και την πιο πρόσφατη ημερομηνία μεταξύ όλων των ημερομηνιών στο σώμα.
8. Στη συνέχεια, αλλάξτε την ημερομηνία έναρξης και την ημερομηνία λήξης της τρέχουσας εργασίας.
9. Τέλος, αποθηκεύστε αυτήν την εργασία ως συνήθως.

Η Μέθοδος 1 θα είναι αρκετά προβληματική κατά τον ορισμό της ημερομηνίας έναρξης και της ημερομηνίας λήξης της συγχωνευμένης εργασίας, καθώς θα πρέπει να βρείτε χειροκίνητα την παλαιότερη και την πιο πρόσφατη ημερομηνία. Στη Μέθοδο 2, μπορείτε να απαλλαγείτε εντελώς από αυτό το πρόβλημα.

Μέθοδος 2: Συγχώνευση πολλαπλών εργασιών μέσω VBA

1. Για αρχή, εκκινήστε το πρόγραμμα επεξεργασίας VBA του Outlook σύμφωνα με το "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
2. Στη συνέχεια, προσθέστε μια αναφορά στη «Βιβλιοθήκη αντικειμένων MS Excel» διαβάζοντας «Πώς να προσθέσετε μια αναφορά βιβλιοθήκης αντικειμένων σε VBA".
3. Αργότερα, αντιγράψτε τον ακόλουθο κώδικα σε μια λειτουργική μονάδα.

Sub MergeMultipleTasksIntoOne()
    Dim objSelection As Outlook.Selection
    Dim objMergedTask As Outlook.TaskItem
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim dStartDate As Date
    Dim dDueDate As Date
 
    Set objMergedTask = Outlook.Application.CreateItem(olTaskItem)
 
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    For i = 1 To objSelection.Count
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row
        objExcelWorksheet.Cells(nLastRow, 1) = objSelection(i).StartDate
        objExcelWorksheet.Cells(nLastRow + 1, 1) = objSelection(i).DueDate
 
        objMergedTask.Body = objMergedTask.Body & objSelection(i).Body & vbCrLf & vbCrLf & "==================================" & vbCrLf & vbCrLf
 
        objMergedTask.Attachments.Add objSelection(i)
    Next
 
    'Get the Min and Max Date via Excel Function
    dStartDate = objExcelApp.WorksheetFunction.Min(Columns("A"))
    dDueDate = objExcelApp.WorksheetFunction.Max(Columns("A"))
 
    objMergedTask.StartDate = CDate(dStartDate)
    objMergedTask.DueDate = CDate(dDueDate)
    objMergedTask.Display
 
    objExcelWorkbook.Close False
    objExcelApp.Quit
End Sub

4. Στη συνέχεια, προσθέστε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης ή στην κορδέλα.
5. Τέλος, μπορείτε να δοκιμάσετε.

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

Επιμείνετε στη δημιουργία κανονικών αντιγράφων ασφαλείας PST

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

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

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