Kako pridobiti potrditev pred pošiljanjem e-pošte z vašimi zasebnimi podatki v Outlooku

Pošiljanje e-poštnih sporočil, ki vsebujejo vaše zasebne podatke, je lahko precej nevarno in nezanesljivo. Zato vam bo ta objava predstavila metodo, s katero vas Outlook lahko opozori, preden pošljete takšna e-poštna sporočila.

Dandanes so potencialne varnostne grožnje vsepovsod. Zato bi morali vložiti veliko truda, da zaščitimo svoje zasebne podatke, kot so kreditne kartice, različna gesla za račune in druge občutljive informacije itd. Zato bodite pozorni na svoje dnevno spletno vedenje, vključno s komunikacijo v MS Outlooku.

Natančneje, pri pošiljanju e-poštnih sporočil bodite previdni, da preprečite, da bi prek e-poštnih sporočil uhajali kakršni koli vaši zasebni podatki. V tem primeru boste morda želeli, da vas lahko Outlook samodejno pozove, preden pošljete e-pošto, ki vsebuje vaše zasebne podatke. V nadaljevanju vas bomo vodili, kako to realizirati prek VBA.

Prejmite potrditev pred pošiljanjem e-pošte z vašimi zasebnimi podatki

1. Že na začetku morate navesti svoje osebne podatke. Ker običajno shranjujem vse svoje zasebne podatke v Excelovi datoteki, jo bom vzel za primer, kot je naslednji posnetek zaslona:
2. Če ste shranili takšno Excelovo datoteko, lahko zaženete aplikacijo Outlook.
3. Nato v glavnem oknu programa Outlook pritisnite tipke »Alt + F11«.
4. Nato poiščite in odprite projekt »ThisOutlookSession« v urejevalniku Outlook VBA.
5. Nato v to okno projekta kopirajte naslednje kode VBA.

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. Nato podpišite to kodo in spremenite nastavitve makra Outlook.
7. Od zdaj naprej bo Outlook vsakič, ko pošljete e-pošto, samodejno preveril, ali njegovo telo vsebuje kakršne koli informacije o datoteki Excel.
8. Če vsebuje, boste prejeli potrditev, kot je spodnja slika:
9. Če izberete »Da«, bo e-poštno sporočilo poslano kot običajno. V nasprotnem primeru bo pošiljanje preklicano.

Zaščitite svoje dragocene podatke PST

Zaradi dejstva, da je Outlook ranljiv, je obramba vaših podatkov PST težka naloga. Najprej morate vztrajati pri rednem varnostnem kopiranju datoteke PST. Poleg tega morate ohraniti močan in dobro dokazan Popravilo PST orodje priročno, kot DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z mdf popravek in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com