Μερικές φορές, μπορεί να ξεχάσετε να προσθέσετε τα απαιτούμενα συνημμένα σε συγκεκριμένα email, όπως email για να αναφέρετε τις εβδομαδιαίες εργασίες σας. Αυτό το άρθρο θα σας διδάξει να ενεργοποιήσετε μια αναδυόμενη προειδοποίηση για να αποτρέψετε την αποστολή συγκεκριμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου χωρίς συνημμένα.
Σε αντίθεση με το Outlook 2010 και τις προηγούμενες εκδόσεις, το Outlook 2013 διαθέτει εγγενή υποστήριξη για να σας υπενθυμίζει όταν δεν έχετε επισυνάψει αρχεία στα εξερχόμενα email. Μπορείτε να ενεργοποιήσετε αυτήν τη δυνατότητα στις Επιλογές του Outlook, όπως το παρακάτω στιγμιότυπο οθόνης:
Εφόσον ενεργοποιήσετε την αυτόματη προειδοποίηση για ελλείποντα συνημμένα, κάθε φορά που στέλνετε ένα email, θα εμφανίζεται μια προειδοποίηση. Αλλά τις περισσότερες φορές, πράγματι δεν χρειάζεται να επισυνάψετε αρχεία. Σε τέτοιες περιπτώσεις, η προειδοποίηση θα είναι ενοχλητική. Εδώ θα σας πούμε πώς να ενεργοποιήσετε μια αυτόματη προειδοποίηση όταν δεν υπάρχουν συνημμένα σε συγκεκριμένα εξερχόμενα email μέσω του Outlook VBA.
Αυτόματος έλεγχος για συνημμένα σε συγκεκριμένα εξερχόμενα email
- Στην αρχή, ξεκινήστε το Outlook και μεταβείτε στην καρτέλα "Προγραμματιστής".
- Κάντε κλικ στο κουμπί "Visual Basic" στην ομάδα "Code".
- Στη συνέχεια, στο νέο αναδυόμενο παράθυρο "Microsoft Visual Basic for Applications", θα πρέπει να κάνετε διπλό κλικ στο έργο "ThisOutlookSession" για να το ανοίξετε.
- Στη συνέχεια, θα πρέπει να αντιγράψετε τους ακόλουθους κωδικούς στο έργο "ThisOutlookSession".
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strMsg As String
Dim intAns As Integer
If Item.Class <> olMail Then
Exit Sub
End If
'Specify the Email Recipient and Subject
If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
If Item.Attachments.Count = 0 Then
strMsg = "Do you want to send the email without attachments?"
intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
If intAns = vbNo Then
Cancel = True
End If
End If
End If
End Sub
- Στη συνέχεια, κάντε κλικ στο εικονίδιο αποθήκευσης στη γραμμή εργαλείων.
- Μετά από αυτό, πρέπει να προχωρήσετε στην υπογραφή αυτού του κωδικού.
- Αρχικά, θα πρέπει να δημιουργήσετε ένα ψηφιακό πιστοποιητικό. Το MS Office διαθέτει ένα ενσωματωμένο βοηθητικό πρόγραμμα - το "Ψηφιακό πιστοποιητικό για έργα VBA". Μπορείτε να το βρείτε αναζητώντας "vba" στο "Μενού Έναρξης".
- Στη συνέχεια, επιστρέψτε στο παράθυρο "visual basic" για να υπογράψετε τον κωδικό.
- Μετά από αυτό, βγείτε από το "Visual Basic" και κάντε κλικ στο κουμπί "Ρυθμίσεις μακροεντολής" στην καρτέλα "Προγραμματιστής". Στο παράθυρο διαλόγου "Κέντρο αξιοπιστίας", πρέπει να επιλέξετε να ενεργοποιήσετε μόνο μακροεντολές με ψηφιακή υπογραφή. Θυμηθείτε να κάνετε κλικ στο "OK" επιτέλους.
- Τέλος, μπορείτε να δοκιμάσετε. Δημιουργήστε ένα νέο μήνυμα με συγκεκριμένο παραλήπτη και θέμα, αλλά χωρίς συνημμένα. Όταν κάνετε κλικ στο κουμπί "Αποστολή", θα λάβετε μια αναδυόμενη προειδοποίηση, η οποία εμφανίζεται ως η ακόλουθη εικόνα:
Διατηρήστε τα δεδομένα του Outlook προστατευμένα
Δεδομένου ότι το Outlook είναι επιρρεπές σε αλλοιώσεις, πρέπει να καταβάλλετε προσπάθειες για την προστασία των δεδομένων σας στο Outlook. Ο καλύτερος τρόπος είναι να δημιουργήσετε ένα συνεπές και ενημερωμένο αντίγραφο ασφαλείας. Ως εκ τούτου, μπορείτε εύκολα ανακτήστε κατεστραμμένα δεδομένα του Outlook από τα αντίγραφα ασφαλείας ακόμη και αν υποστεί απρόσμενο σφάλμα στο Outlook. Επιπλέον, εάν το αντίγραφο ασφαλείας αποτύχει δυστυχώς, δεν έχετε άλλη επιλογή από το να βοηθήσετε ένα έμπειρο εργαλείο επισκευής, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιορθώστε το σφάλμα SQL db και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com