如何在 Outlook 中发送包含您的私人信息的电子邮件之前获得确认

发送包含个人信息的电子邮件可能非常危险且不安全。因此，本文将介绍一种方法，让 Outlook 在发送此类电子邮件之前提示您。

如今，潜在的安全威胁无处不在。 因此，我们应该努力保护自己的私人信息，如信用卡、各种账户密码和其他敏感信息等。因此，您应该注意您的日常上网行为，包括在 MS Outlook 中的通信。

更具体地说，您在发送电子邮件时应保持谨慎，以防止您的任何私人信息通过电子邮件泄露。 在这种情况下，您可能会希望 Outlook 能够在您发送包含您的私人信息的邮件之前自动提示您。 下面，我们将指导您如何通过VBA实现它。

在发送包含您的私人信息的电子邮件之前获得确认

1. 一开始，您必须指定您的私人信息。 由于我通常将所有隐私信息存储在一个 Excel 文件中，我将以它为例，如下图所示：
2. 如果您保存了这样的 Excel 文件，就可以启动 Outlook 应用程序了。
3. 然后在 Outlook 主窗口中按“Alt + F11”键按钮。
4. 接下来在 Outlook VBA 编辑器中找到并打开“ThisOutlookSession”项目。
5. 随后，将以下 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

6. 之后，签署此代码并更改您的 Outlook 宏设置。
7. 从现在开始，每次发送电子邮件时，Outlook 都会自动检查其正文是否包含 Excel 文件的任何信息。
8. 如果包含，您将收到如下图所示的确认信息：
9. 如果您选择“是”，电子邮件将照常发送。 否则，发送将被取消。

保护您宝贵的 PST 数据

由于 Outlook 易受攻击，保护您的 PST 数据是一项艰巨的任务。 首先，您必须坚持定期备份您的 PST 文件。 此外，您需要保持有效且经过充分验证的 PST修复 工具方便，比如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 中密度纤维板修复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com