Μπορεί να είναι αρκετά επικίνδυνο και ανασφαλές να στέλνετε email που περιέχουν τα προσωπικά σας στοιχεία. Επομένως, αυτή η ανάρτηση θα σας παρουσιάσει μια μέθοδο που μπορεί να σας ειδοποιήσει το Outlook πριν στείλετε τέτοια email.
Σήμερα, υπάρχουν πιθανές απειλές για την ασφάλεια. Επομένως, θα πρέπει να καταβάλουμε πολλές προσπάθειες για να προστατεύσουμε τις προσωπικές μας πληροφορίες, όπως πιστωτικές κάρτες, διάφορους κωδικούς πρόσβασης λογαριασμού και άλλες ευαίσθητες πληροφορίες κ.λπ.
Πιο συγκεκριμένα, θα πρέπει να είστε προσεκτικοί όταν στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου για να αποτρέψετε τη διαρροή οποιωνδήποτε από τα προσωπικά σας στοιχεία μέσω email. Σε αυτήν την περίπτωση, ίσως θα θέλατε το Outlook να σας ζητήσει αυτόματα πριν στείλετε μηνύματα που περιέχουν τα προσωπικά σας στοιχεία. Στα ακόλουθα, θα σας καθοδηγήσουμε πώς να το πραγματοποιήσετε μέσω VBA.
Λάβετε επιβεβαίωση πριν από την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου με τα προσωπικά σας στοιχεία
- Στην αρχή, πρέπει να καθορίσετε τις προσωπικές σας πληροφορίες. Καθώς συνήθως αποθηκεύω όλες τις προσωπικές μου πληροφορίες σε ένα αρχείο Excel, θα το πάρω μια περίπτωση, όπως το ακόλουθο στιγμιότυπο οθόνης:
- Εάν έχετε διατηρήσει ένα τέτοιο αρχείο Excel, μπορείτε να ξεκινήσετε την εφαρμογή Outlook.
- Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11" στο κύριο παράθυρο του Outlook.
- Στη συνέχεια, βρείτε και ανοίξτε το έργο "ThisOutlookSession" στο πρόγραμμα επεξεργασίας του Outlook VBA.
- Στη συνέχεια, αντιγράψτε τους ακόλουθους κωδικούς VBA σε αυτό το παράθυρο έργου.
Private Sub Application_ItemSend(ByVal objItem As Object, Cancel As Boolean)
Dim strItemBody As String
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nRow, nColumn As Integer
Dim strSensitiveInfo As String
Dim strMsg As String
Dim nResponse As Integer
strItemBody = objItem.Body
'Specify the source Excel file
strExcelFile = "E:\MyPrivacy.xlsx"
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorksheet = objExcelWorkbook.Sheets("Privacy")
nRow = 1
nColumn = 1
Do While objExcelWorksheet.Cells(nRow, nColumn) <> ""
strSensitiveInfo = objExcelWorksheet.Cells(nRow, nColumn)
'Check if the email body contains the private information
If InStr(strItemBody, strSensitiveInfo) > 0 Then
strMsg = "The current item contains sensitive information. Do you still want to send it?"
nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Check Sensitive Information")
If nResponse = vbYes Then
Cancel = False
Else
Cancel = True
End If
Exit Do
End If
nRow = nRow + 1
nColumn = nColumn + 1
Loop
End Sub
- Μετά από αυτό, υπογράψτε αυτόν τον κωδικό και αλλάξτε τις ρυθμίσεις μακροεντολών του Outlook.
- Από τώρα και στο εξής, κάθε φορά που στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου, το Outlook ελέγχει αυτόματα εάν το σώμα του περιέχει πληροφορίες για το αρχείο Excel.
- Εάν περιέχει, θα λάβετε μια επιβεβαίωση όπως η παρακάτω εικόνα:
- Εάν επιλέξετε "Ναι", το email θα σταλεί ως συνήθως. Διαφορετικά, η αποστολή θα ακυρωθεί.
Προστατεύστε τα πολύτιμα δεδομένα PST σας
Λόγω του γεγονότος ότι το Outlook είναι ευάλωτο, είναι δύσκολο να υπερασπιστείτε τα δεδομένα PST. Πρώτον, πρέπει να συνεχίσετε να δημιουργείτε τακτικά αντίγραφα ασφαλείας για το αρχείο PST. Επιπλέον, πρέπει να διατηρήσετε έναν ισχυρό και καλά αποδεδειγμένο Επισκευή PST εύχρηστο εργαλείο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων διόρθωση MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com