Hogyan kaphat megerősítést, mielőtt e-maileket küldene személyes adataival az Outlook programban

Meglehetősen veszélyes és bizonytalan lehet, ha olyan e-maileket küldesz, amelyek a személyes adataidat tartalmazzák. Ezért ez a bejegyzés bemutat egy módszert, amellyel az Outlook figyelmeztethet, mielőtt ilyen e-maileket küldene.

Napjainkban a potenciális biztonsági fenyegetések mindenhol jelen vannak. Ezért sok erőfeszítést kell tennünk saját személyes adataink, például hitelkártyák, különféle fiókjelszavak és egyéb bizalmas információk stb. védelme érdekében. Ezért ügyeljen napi online viselkedésére, beleértve az MS Outlookban való kommunikációt is.

Pontosabban, legyen óvatos, amikor e-maileket küld, nehogy személyes adatai kiszivárogjanak az e-maileken keresztül. Ebben az esetben talán arra vágyik majd, hogy az Outlook automatikusan rákérdezzen, mielőtt személyes adatait tartalmazó leveleket küldene. A következőkben bemutatjuk, hogyan valósíthatja meg VBA-n keresztül.

Kérjen visszaigazolást, mielőtt e-mailt küldene személyes adataival

1. Már az elején meg kell adnia személyes adatait. Mivel általában minden személyes adatomat egy Excel-fájlban tárolom, a következő képernyőképen például egy példányt veszek belőle:
2. Ha megőrizte az ilyen Excel-fájlt, elindíthatja az Outlook alkalmazást.
3. Ezután nyomja meg az „Alt + F11” billentyűket az Outlook főablakában.
4. Ezután keresse meg és nyissa meg a „ThisOutlookSession” projektet az Outlook VBA szerkesztőjében.
5. Ezt követően másolja be a következő VBA-kódokat ebbe a projektablakba.

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. Ezt követően írja alá ezt a kódot, és módosítsa az Outlook makró beállításait.
7. Mostantól minden alkalommal, amikor e-maileket küld, az Outlook automatikusan ellenőrzi, hogy a törzse tartalmaz-e bármilyen információt az Excel-fájlról.
8. Ha tartalmazza, akkor az alábbi képhez hasonló megerősítést kap:
9. Ha az „Igen” lehetőséget választja, az e-mailt a szokásos módon küldjük el. Ellenkező esetben a küldés megszakad.

Védje meg értékes PST-adatait

Tekintettel arra, hogy az Outlook sebezhető, nehéz feladat megvédeni a PST-adatokat. Először is ki kell tartania a rendszeres biztonsági mentések készítését a PST fájlról. Ezen kívül meg kell tartani egy erős és jól bevált PST javítás kézre álló eszköz, pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com