Outlook бағдарламасында жеке ақпаратыңызбен электрондық поштаны жібермес бұрын растауды қалай алуға болады

Жеке ақпаратыңызды қамтитын электрондық пошталарды жіберсеңіз, бұл өте қауіпті және қауіпсіз емес болуы мүмкін. Сондықтан, бұл жазбада сізге Outlook бағдарламасының мұндай электрондық пошталарды жібермес бұрын сізге сұрау жіберуіне мүмкіндік беретін әдіс ұсынылады.

Қазіргі уақытта қауіпсіздікке әлеуетті қатер төніп тұр. Осылайша, біз несие карталары, әртүрлі тіркелгі құпия сөздері және басқа да құпия ақпарат, т.б. сияқты жеке ақпаратты қорғау үшін көп күш салуымыз керек. Сондықтан күнделікті желідегі әрекеттеріңізге, соның ішінде MS Outlook бағдарламасындағы байланыстарға назар аударуыңыз керек.

Нақтырақ айтқанда, кез келген жеке ақпаратыңыздың электрондық пошта арқылы ағып кетуіне жол бермеу үшін электрондық хаттарды жіберу кезінде абай болу керек. Бұл жағдайда сіздің жеке ақпаратыңыз бар хаттарды жібермес бұрын Outlook бағдарламасы автоматты түрде сұрай алатынын қалауыңыз мүмкін. Төменде біз сізге оны VBA арқылы қалай жүзеге асыруға болатынын көрсетеміз.

Жеке ақпаратыңызбен электрондық поштаны жібермес бұрын растауды алыңыз

1. Ең басында сіз өзіңіздің жеке ақпаратыңызды көрсетуіңіз керек. Мен әдетте барлық жеке ақпаратымды Excel файлында сақтайтындықтан, оны келесі скриншот сияқты мысалға аламын:
2. Егер сіз осындай Excel файлын сақтаған болсаңыз, Outlook қолданбасын іске қоса аласыз.
3. Содан кейін негізгі Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
4. Содан кейін Outlook VBA редакторында «ThisOutlookSession» жобасын тауып ашыңыз.
5. Осы жобаның терезесіне келесі 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. Осыдан кейін осы кодқа қол қойып, Outlook макро параметрлерін өзгертіңіз.
7. Бұдан былай электрондық хаттарды жіберген сайын, Outlook бағдарламасы Excel файлының құрамындағы ақпаратты автоматты түрде тексереді.
8. Онда бар болса, төмендегі суреттегідей растауды аласыз:
9. «Иә» таңдасаңыз, электрондық пошта әдеттегідей жіберіледі. Әйтпесе, жіберу тоқтатылады.

Құнды PST деректеріңізді сақтаңыз

Outlook осал болғандықтан, PST деректерін қорғау қиын міндет болып табылады. Біріншіден, сіз PST файлыңыздың тұрақты сақтық көшірмелерін жасауды жалғастыруыңыз керек. Сонымен қатар, сіз күшті және жақсы дәлелденген ұстауыңыз керек PST жөндеу сияқты ыңғайлы құрал DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com