Có thể khá nguy hiểm và không an toàn nếu bạn gửi bất kỳ email nào chứa thông tin cá nhân của mình. Vì vậy, p nàyost sẽ giới thiệu cho bạn một phương pháp có thể cho phép Outlook nhắc bạn trước khi bạn gửi những email như vậy.
Ngày nay, các mối đe dọa bảo mật tiềm tàng đang ở xung quanh. Vì vậy, chúng ta nên nỗ lực nhiều để bảo vệ thông tin cá nhân của mình, chẳng hạn như thẻ tín dụng, mật khẩu tài khoản khác nhau và thông tin nhạy cảm khác, v.v. Do đó, bạn nên chú ý đến các hành vi trực tuyến hàng ngày của mình, bao gồm cả giao tiếp trong MS Outlook.
Cụ thể hơn, bạn nên thận trọng khi gửi email để tránh bất kỳ thông tin cá nhân nào của bạn bị rò rỉ qua email. Trong trường hợp này, có thể bạn sẽ muốn Outlook có thể tự động nhắc bạn trước khi bạn gửi thư chứa thông tin cá nhân của mình. Trong phần tiếp theo, chúng tôi sẽ hướng dẫn bạn cách hiện thực hóa nó thông qua VBA.
Nhận xác nhận trước khi gửi email với thông tin cá nhân của bạn
- Ngay từ đầu, bạn phải chỉ định thông tin cá nhân của mình. Vì tôi thường lưu trữ tất cả thông tin cá nhân của mình trong một tệp Excel, nên tôi sẽ lấy nó làm ví dụ, giống như ảnh chụp màn hình sau:
- Nếu bạn đã giữ một tệp Excel như vậy, bạn có thể starứng dụng Outlook của bạn.
- Sau đó nhấn các nút phím “Alt + F11” trong cửa sổ chính của Outlook.
- Tiếp theo tìm và mở dự án “ThisOutlookSession” trong trình soạn thảo Outlook VBA.
- Sau đó, sao chép các mã VBA sau vào cửa sổ dự án này.
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
- Sau đó, hãy ký mã này và thay đổi cài đặt macro Outlook của bạn.
- Từ bây giờ, mỗi khi bạn gửi email, Outlook sẽ tự động kiểm tra xem phần thân của nó có chứa bất kỳ thông tin nào của tệp Excel hay không.
- Nếu nó chứa, bạn sẽ nhận được xác nhận như hình bên dưới:
- Nếu bạn chọn “Có” thì email sẽ được gửi đi như bình thường. Nếu không, việc gửi sẽ bị hủy bỏ.
Bảo vệ dữ liệu PST có giá trị của bạn
Do Outlook dễ bị tấn công nên việc bảo vệ dữ liệu PST của bạn là một nhiệm vụ khó khăn. Đầu tiên, bạn phải kiên trì tạo bản sao lưu thường xuyên cho tệp PST của mình. Ngoài ra, bạn cần giữ một nguồn lực mạnh mẽ và đã được chứng minh rõ ràng. PST sửa chữa công cụ tiện dụng, như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm