Kaip gauti patvirtinimą prieš siunčiant el. laiškus su asmenine informacija programoje „Outlook“.

Gali būti gana pavojinga ir nesaugu siųsti el. laiškus, kuriuose yra jūsų asmeninės informacijos. Todėl šiame įraše pristatysime metodą, kuris leis „Outlook“ programai jus patikrinti prieš siunčiant tokius el. laiškus.

Šiais laikais galimos grėsmės saugumui yra visur. Taigi turėtume dėti daug pastangų, kad apsaugotume savo asmeninę informaciją, tokią kaip kredito kortelės, įvairūs sąskaitų slaptažodžiai ir kita slapta informacija ir kt. Todėl turėtumėte atkreipti dėmesį į savo kasdienę elgseną internete, įskaitant bendravimą MS Outlook.

Tiksliau, turėtumėte būti atsargūs siųsdami el. laiškus, kad jūsų asmeninė informacija nebūtų nutekėjusi per el. laiškus. Tokiu atveju galbūt norėsite, kad „Outlook“ automatiškai paragintų jus prieš siųsdami laiškus, kuriuose yra jūsų asmeninė informacija. Toliau mes jums parodysime, kaip tai įgyvendinti per VBA.

Prieš siųsdami el. laiškus su savo asmenine informacija gaukite patvirtinimą

1. Pačioje pradžioje turite nurodyti savo asmeninę informaciją. Kadangi paprastai visą savo asmeninę informaciją saugau „Excel“ faile, paimsiu tai pavyzdžiu, pavyzdžiui, šią ekrano kopiją:
2. Jei išsaugojote tokį „Excel“ failą, galite paleisti „Outlook“ programą.
3. Tada pagrindiniame „Outlook“ lange paspauskite klavišus „Alt + F11“.
4. Tada suraskite ir atidarykite „ThisOutlookSession“ projektą „Outlook VBA“ rengyklėje.
5. Tada nukopijuokite šiuos VBA kodus į šį projekto langą.

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. Po to pasirašykite šį kodą ir pakeiskite „Outlook“ makrokomandos nustatymus.
7. Nuo šiol kiekvieną kartą, kai siunčiate el. laiškus, „Outlook“ automatiškai patikrins, ar jos turinyje yra „Excel“ failo informacijos.
8. Jei jame yra, gausite patvirtinimą, kaip parodyta toliau pateiktame paveikslėlyje:
9. Jei pasirinksite „Taip“, el. laiškas bus išsiųstas kaip įprasta. Priešingu atveju siuntimas bus atšauktas.

Apsaugokite savo vertingus PST duomenis

Dėl to, kad „Outlook“ yra pažeidžiama, apginti savo PST duomenis yra sudėtinga užduotis. Pirma, jūs turite nuolat kurti atsargines PST failo kopijas. Be to, jūs turite išlaikyti stiprų ir gerai patikrintą PST remontas įrankis patogus, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com