Cómo obtener una confirmación antes de enviar correos electrónicos con su información privada en Outlook

Enviar correos electrónicos con información privada puede ser bastante peligroso e inseguro. Por lo tanto, en este artículo te mostraremos un método para que Outlook te avise antes de enviar este tipo de correos.

Hoy en día, las amenazas potenciales a la seguridad están por todas partes. Por lo tanto, debemos hacer un gran esfuerzo para proteger nuestra propia información privada, como tarjetas de crédito, varias contraseñas de cuentas y otra información confidencial, etc. Por lo tanto, debe prestar atención a sus comportamientos diarios en línea, incluidas las comunicaciones en MS Outlook.

Más específicamente, debe tener cuidado al enviar correos electrónicos para evitar que su información privada se filtre a través de los correos electrónicos. En este caso, tal vez desee que Outlook pueda avisarle automáticamente antes de enviar correos que contengan su información privada. A continuación, lo guiaremos sobre cómo realizarlo a través de VBA.

Obtenga una confirmación antes de enviar correos electrónicos con su información privada

1. Desde el principio, debe especificar su información privada. Como normalmente almaceno toda mi información privada en un archivo de Excel, lo tomaré como una instancia, como la siguiente captura de pantalla:
2. Si has guardado un archivo de Excel de este tipo, puedes abrir tu aplicación Outlook.
3. Luego presione los botones de tecla "Alt + F11" en la ventana principal de Outlook.
4. A continuación, busque y abra el proyecto "ThisOutlookSession" en el editor de Outlook VBA.
5. Posteriormente, copie los siguientes códigos VBA en esta ventana del proyecto.

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. Después de eso, firme este código y cambie la configuración de la macro de Outlook.
7. A partir de ahora, cada vez que envíe correos electrónicos, Outlook comprobará automáticamente si su cuerpo contiene información del archivo de Excel.
8. Si lo contiene, recibirá una confirmación como la siguiente imagen:
9. Si selecciona "Sí", el correo electrónico se enviará como de costumbre. De lo contrario, se cancelará el envío.

Proteja sus valiosos datos de PST

Debido al hecho de que Outlook es vulnerable, es una ardua tarea defender sus datos PST. En primer lugar, debe persistir en realizar copias de seguridad periódicas de su archivo PST. Además, debe mantener un potente y bien probado Reparación de PST herramienta a mano, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com