Så här får du en bekräftelse innan du skickar e-postmeddelanden med din privata information i Outlook

Det kan vara ganska farligt och osäkert att skicka e-postmeddelanden som innehåller din privata information. Därför kommer det här inlägget att presentera en metod som kan låta Outlook fråga dig innan du skickar sådana e-postmeddelanden.

Numera finns potentiella säkerhetshot runt omkring. Därför bör vi anstränga oss mycket för att skydda vår egen privata information, såsom kreditkort, olika kontolösenord och annan känslig information osv. Därför bör du vara uppmärksam på ditt dagliga beteende online, inklusive kommunikation i MS Outlook.

Mer specifikt bör du vara försiktig när du skickar e-post för att förhindra att någon av din privata information läcks ut via e-post. I det här fallet kanske du vill att Outlook automatiskt kan fråga dig innan du skickar e-post som innehåller din privata information. I det följande kommer vi att vägleda dig hur du kan förverkliga det via VBA.

Få en bekräftelse innan du skickar e-post med din privata information

1. Från början måste du ange din privata information. Eftersom jag vanligtvis lagrar all min privata information i en Excel-fil tar jag den som en instans, som följande skärmdump:
2. Om du har sparat en sådan Excel-fil kan du starta ditt Outlook-program.
3. Tryck sedan på “Alt + F11” -knapparna i huvudfönstret i Outlook.
4. Nästa hitta och öppna projektet "ThisOutlookSession" i Outlook VBA-redigerare.
5. Kopiera därefter följande VBA-koder till detta projektfönster.

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. Därefter signerar du den här koden och ändrar dina makroinställningar i Outlook.
7. Från och med nu, varje gång när du skickar e-post, kontrollerar Outlook automatiskt om dess kropp innehåller någon information om Excel-filen.
8. Om den innehåller får du en bekräftelse som bilden nedan:
9. Om du väljer “Ja” skickas e-postmeddelandet som vanligt. Annars annulleras sändningen.

Skydda dina värdefulla PST-data

På grund av att Outlook är sårbart är det en svår uppgift att försvara dina PST-data. För det första måste du fortsätta att göra regelbundna säkerhetskopior för din PST-fil. Dessutom måste du behålla en potent och väl beprövad PST-reparation verktyg praktiskt, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive MDF-fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com