Hvordan få en bekreftelse før du sender e-post med privat informasjon i Outlook

Det kan være ganske farlig og usikkert å sende e-poster som inneholder din private informasjon. Derfor vil dette innlegget introdusere deg for en metode som kan la Outlook spørre deg før du sender slike e-poster.

I dag er potensielle sikkerhetstrusler rundt omkring. Derfor bør vi anstrenge oss mye for å beskytte vår egen private informasjon, som kredittkort, ulike kontopassord og annen sensitiv informasjon, etc. Derfor bør du være oppmerksom på din daglige online atferd, inkludert kommunikasjon i MS Outlook.

Mer spesifikt bør du være forsiktig når du sender e-poster for å forhindre at noen av din private informasjon lekkes gjennom e-poster. I dette tilfellet vil du kanskje ønske at Outlook automatisk kan spørre deg før du sender e-poster som inneholder din private informasjon. I det følgende vil vi veilede deg hvordan du kan realisere det via VBA.

Få en bekreftelse før du sender e-post med din private informasjon

1. Helt i begynnelsen må du spesifisere din private informasjon. Siden jeg vanligvis lagrer all min private informasjon i en Excel-fil, tar jeg det som et eksempel, som følgende skjermbilde:
2. Hvis du har beholdt en slik Excel-fil, kan du starte Outlook-programmet ditt.
3. Trykk deretter "Alt + F11"-tastene i hovedvinduet i Outlook.
4. Finn og åpne deretter "ThisOutlookSession"-prosjektet i Outlook VBA-editor.
5. Kopier deretter følgende VBA-koder inn i dette prosjektvinduet.

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. Etter det, signer denne koden og endre Outlook-makroinnstillingene.
7. Fra nå av, hver gang du sender e-post, vil Outlook automatisk sjekke om kroppen inneholder informasjon om Excel-filen.
8. Hvis den inneholder, vil du få en bekreftelse som bildet nedenfor:
9. Velger du "Ja", vil e-posten bli sendt ut som vanlig. Ellers vil sendingen bli kansellert.

Beskytt dine verdifulle PST-data

På grunn av det faktum at Outlook er sårbart, er det en vanskelig oppgave å forsvare PST-dataene dine. For det første må du fortsette å lage regelmessige sikkerhetskopier for PST-filen din. I tillegg må du holde en potent og velprøvd PST reparasjon verktøy hendig, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf-fiks og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med