Kuidas saada kinnitust enne oma isikliku teabega meilide saatmist Outlookis

Teie privaatseid andmeid sisaldavate meilide saatmine võib olla üsna ohtlik ja ebaturvaline. Seetõttu tutvustab see postitus teile meetodit, mis võimaldab Outlookil enne selliste meilide saatmist teilt seda küsida.

Tänapäeval on võimalikud turvaohud kõikjal. Seetõttu peaksime tegema palju pingutusi, et kaitsta oma isiklikku teavet, nagu krediitkaardid, erinevad kontoparoolid ja muu tundlik teave jne. Seetõttu peaksite pöörama tähelepanu oma igapäevasele võrgukäitumisele, sealhulgas suhtlusele MS Outlookis.

Täpsemalt peaksite e-kirjade saatmisel olema ettevaatlik, et vältida teie privaatse teabe lekkimist meilide kaudu. Sel juhul soovite võib-olla, et Outlook saaks teilt enne teie privaatset teavet sisaldavate kirjade saatmist automaatselt küsida. Järgnevalt juhendame teid, kuidas seda VBA kaudu realiseerida.

Hankige kinnitus enne oma isikliku teabega meilide saatmist

1. Kohe alguses peate täpsustama oma isiklikud andmed. Kuna tavaliselt salvestan kogu oma privaatse teabe Exceli faili, võtan selle näite, näiteks järgmise ekraanipildi:
2. Kui olete sellise Exceli faili alles hoidnud, saate oma Outlooki rakenduse käivitada.
3. Seejärel vajutage Outlooki põhiaknas klahve Alt + F11.
4. Järgmisena leidke ja avage Outlook VBA redaktoris projekt ThisOutlookSession.
5. Seejärel kopeerige sellesse projekti aknasse järgmised VBA koodid.

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. Pärast seda allkirjastage see kood ja muutke oma Outlooki makro sätteid.
7. Edaspidi kontrollib Outlook iga kord, kui saadate e-kirju, automaatselt, kas selle keha sisaldab teavet Exceli faili kohta.
8. Kui see sisaldab, saate kinnituse, nagu alloleval pildil:
9. Kui valite "Jah", saadetakse e-kiri välja nagu tavaliselt. Vastasel juhul saatmine tühistatakse.

Kaitske oma väärtuslikke PST-andmeid

Kuna Outlook on haavatav, on teie PST-andmete kaitsmine vaevarikas ülesanne. Esiteks peate oma PST-failist regulaarselt varukoopiaid tegema. Lisaks peate hoidma tugevat ja hästi tõestatud PST remont tööriist käepärane, nagu DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom