Kako dobiti potvrdu prije slanja e-pošte s vašim privatnim podacima u Outlooku

Slanje e-poruka koje sadrže vaše privatne podatke može biti prilično opasno i nesigurno. Stoga će vam ovaj članak predstaviti metodu koja će vam omogućiti da vas Outlook obavijesti prije slanja takvih e-poruka.

Danas su potencijalne sigurnosne prijetnje svuda uokolo. Stoga bismo trebali uložiti mnogo napora da zaštitimo svoje privatne podatke, kao što su kreditne kartice, razne lozinke računa i druge osjetljive informacije, itd. Stoga bi trebali obratiti pažnju na svoje svakodnevno ponašanje na mreži, uključujući komunikaciju u MS Outlook-u.

Preciznije, trebali biste biti oprezni kada šaljete e-poštu kako biste spriječili da bilo koji od vaših privatnih podataka procuri kroz e-poštu. U ovom slučaju, možda ćete poželjeti da vas Outlook može automatski pitati prije nego što pošaljete mailove koji sadrže vaše privatne informacije. U nastavku ćemo vas uputiti kako da to realizujete putem VBA.

Dobijte potvrdu prije slanja e-pošte s vašim privatnim podacima

1. Na samom početku morate navesti svoje privatne podatke. Kako obično pohranjujem sve svoje privatne informacije u Excel datoteci, uzet ću je kao primjer, kao na sljedećem snimku ekrana:
2. Ako ste sačuvali takvu Excel datoteku, možete pokrenuti Outlook aplikaciju.
3. Zatim pritisnite tipke “Alt + F11” u glavnom prozoru programa Outlook.
4. Zatim pronađite i otvorite projekat “ThisOutlookSession” u Outlook VBA uređivaču.
5. Nakon toga, kopirajte sljedeće VBA kodove u ovaj prozor projekta.

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. Nakon toga, potpišite ovaj kod i promijenite postavke Outlook makroa.
7. Od sada, svaki put kada šaljete e-poštu, Outlook će automatski provjeravati da li njegovo tijelo sadrži bilo koju informaciju o Excel datoteci.
8. Ako sadrži, dobit ćete potvrdu kao na slici ispod:
9. Ako odaberete “Da”, e-mail će biti poslat kao i obično. U suprotnom, slanje će biti otkazano.

Zaštitite svoje vrijedne PST podatke

Zbog činjenice da je Outlook ranjiv, težak je zadatak braniti vaše PST podatke. Prvo, morate ustrajati u pravljenju redovnih sigurnosnih kopija za svoju PST datoteku. Osim toga, morate zadržati moćan i dobro dokazan PST repair alat pri ruci, kao DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com