Αυτό το άρθρο θα σας διδάξει πώς να δημιουργείτε αυτόματα μια νέα εργασία όταν εκχωρείτε μια συγκεκριμένη κατηγορία χρωμάτων σε ένα email μέσω του Outlook VBA.
Στο παρελθόν, όταν έλαβα ένα μήνυμα ηλεκτρονικού ταχυδρομείου που αφορούσε μια εργασία, συνήθιζα να καθορίζω την κατηγορία "Εργασία" σε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου και να προχωρήσω στη δημιουργία μιας νέας σχετικής εργασίας. Για να είμαι ειλικρινής, αυτή η διαδικασία είναι πράγματι χρονοβόρα. Πρέπει να γράψω όλες τις πληροφορίες εκ των προτέρων, δεδομένου ότι αυτές οι λεπτομέρειες πρέπει να απαιτηθούν στη νέα εργασία. Αλλά τώρα, με τη βοήθεια του VBA, το Outlook μπορεί αυτόματα να δημιουργήσει μια νέα εργασία όποτε καθορίζω την κατηγορία "Εργασία" σε ένα email. Εάν σας ενδιαφέρει αυτή η συμβουλή, διαβάστε για να τους βρείτε αναλυτικά.
Αυτόματη δημιουργία εργασίας κάθε φορά που μια συγκεκριμένη κατηγορία εκχωρείται σε ένα email
- Για να ξεκινήσετε, ανοίξτε το Outlook και μεταβείτε στην καρτέλα "Προγραμματιστής".
- Σε αυτήν την καρτέλα, μπορείτε να βρείτε και να κάνετε κλικ στο κουμπί "Visual Basic".
- Στη συνέχεια, θα ανοίξει ένα νέο παράθυρο "Microsoft Visual Basic for Applications". Σε αυτό, θα πρέπει να κάνετε διπλό κλικ στο έργο "ThisOutlookSession".
- Στη συνέχεια θα πρέπει να αντιγράψετε τους ακόλουθους κωδικούς VBA στο παράθυρο του έργου "ThisOutlookSession".
Public WithEvents OlItems As Outlook.Items
Sub Application_Startup()
Set OlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Sub OlItems_ItemChange(ByVal Item As Object)
Dim obApp As Application
Dim olTask As TaskItem
If Item.Class = olMail And Item.Categories = "Task" Then
Set obApp = Outlook.Application
Set olTask = obApp.CreateItem(olTaskItem)
With olTask
.Subject = Item.Subject
.Body = Item.Body
.Attachments.Add Item
.StartDate = Now
.DueDate = Now + 3
.Save
.Display
End With
End If
'To clear the category
'If you want to keep the category, remove the following four lines
With Item
.Categories = ""
.Save
End With
Set obApp = Nothing
Set olTask = Nothing
End Sub
- Μετά από αυτό, θα σας ζητηθεί να υπογράψετε αυτόν τον κωδικό. Μπορείτε να χρησιμοποιήσετε το ενσωματωμένο βοηθητικό πρόγραμμα του Office - «Ψηφιακό πιστοποιητικό για έργα VBA» για να το επιτύχετε. Για πιο λεπτομερή βήματα, μπορείτε να ανατρέξετε στο Βήμα 2 σε αυτό το άρθρο "2 βήματα για την αυτόματη επισήμανση ανεπιθύμητων μηνυμάτων ως αναγνωσμένων στο Outlook".
- Αργότερα, για να αποτρέψετε εξωτερική κακόβουλη μακροεντολή, θα πρέπει να μεταβείτε στο "Κέντρο αξιοπιστίας" και να αλλάξετε τις ρυθμίσεις μακροεντολών για να ενεργοποιήσετε μόνο ψηφιακές υπογραφές μακροεντολών.
- Τελικά μπορείτε να δοκιμάσετε.
- Προωθήστε ένα στοιχείο αλληλογραφίας και εκχωρήστε μια συγκεκριμένη κατηγορία σε αυτό, όπως το ακόλουθο στιγμιότυπο οθόνης:
- Αμέσως, μια νέα εργασία θα δημιουργηθεί αυτόματα και θα εμφανίζεται σε ένα νέο αναδυόμενο παράθυρο.
Κρατήστε καρτέλες σε κακόβουλες μακροεντολές σε ύποπτα μηνύματα ηλεκτρονικού ταχυδρομείου
Είναι ζωτικής σημασίας να αποκλείσετε όλες τις εξωτερικές μη υπογεγραμμένες μακροεντολές, καθώς ενδέχεται να περιέχουν ιούς ή κακόβουλα προγράμματα, τα οποία μπορούν να καταστρέψουν εύκολα τα δεδομένα σας στο Outlook. Επομένως, οι χρήστες πρέπει να δώσουν ιδιαίτερη προσοχή στα μηνύματα ηλεκτρονικού ταχυδρομείου που συνοδεύουν τις μακροεντολές. Επιπλέον, συνιστάται να επενδύσετε σε ένα αξιοσημείωτο κατεστραμμένο εργαλείο επιδιόρθωσης δεδομένων του Outlook, αρέσει DataNumen Outlook Repair. Μπορεί να σας βοηθήσει όταν υποφέρετε απρόβλεπτο σφάλμα στο Outlook.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιορθώστε το σφάλμα mdf SQL και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com