Outlook-da Şəxsi Məlumatlarınızla E-poçt Göndərməzdən əvvəl Təsdiqi Necə Almaq olar

Şəxsi məlumatlarınızı ehtiva edən hər hansı bir e-poçt göndərsəniz, bu, olduqca təhlükəli və etibarsız ola bilər. Buna görə də, bu yazı sizə Outlook-un bu cür e-poçtları göndərməzdən əvvəl sizə bildiriş göndərməsinə imkan verən bir üsul təqdim edəcək.

Bu gün potensial təhlükəsizlik təhdidləri hər yerdədir. Beləliklə, biz kredit kartları, müxtəlif hesab parolları və digər həssas məlumatlar və s. kimi şəxsi məlumatlarımızı qorumaq üçün çox səy göstərməliyik. Buna görə də, siz gündəlik onlayn davranışlarınıza, o cümlədən MS Outlook-da ünsiyyətə diqqət yetirməlisiniz.

Daha dəqiq desək, hər hansı şəxsi məlumatınızın e-poçt vasitəsilə sızmasının qarşısını almaq üçün e-poçt göndərərkən diqqətli olmalısınız. Bu halda, ola bilsin ki, şəxsi məlumatlarınızı ehtiva edən məktubları göndərməzdən əvvəl Outlook-un avtomatik olaraq sizə xəbər verməsini arzulayacaqsınız. Aşağıda VBA vasitəsilə bunu necə həyata keçirəcəyinizi sizə istiqamətləndirəcəyik.

Şəxsi Məlumatlarınızla E-poçt Göndərməzdən əvvəl Təsdiq alın

1. Əvvəlcə şəxsi məlumatlarınızı göstərməlisiniz. Mən adətən bütün şəxsi məlumatımı Excel faylında saxladığım üçün onu aşağıdakı ekran görüntüsü kimi nümunə götürəcəyəm:
2. Əgər belə bir Excel faylı saxlamısınızsa, Outlook tətbiqinizi işə sala bilərsiniz.
3. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
4. Sonra Outlook VBA redaktorunda “ThisOutlookSession” layihəsini tapın və açın.
5. Sonradan aşağıdakı VBA kodlarını bu layihə pəncərəsinə köçürün.

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. Bundan sonra bu kodu imzalayın və Outlook makro parametrlərinizi dəyişdirin.
7. Bundan sonra, siz hər dəfə e-poçt göndərdiyiniz zaman Outlook onun gövdəsində Excel faylı haqqında hər hansı məlumatın olub olmadığını avtomatik yoxlayacaq.
8. Əgər ehtiva edirsə, aşağıdakı şəkildəki kimi bir təsdiq alacaqsınız:
9. Əgər “Bəli” seçsəniz, e-poçt həmişəki kimi göndəriləcək. Əks halda, göndərmə ləğv ediləcək.

Dəyərli PST Məlumatlarınızı qoruyun

Outlook-un həssas olması səbəbindən PST məlumatlarınızı qorumaq çətin bir işdir. Birincisi, PST faylınız üçün müntəzəm ehtiyat nüsxələri etməkdə israrlı olmalısınız. Bundan əlavə, güclü və yaxşı sübut saxlamaq lazımdır PST təmiri alət rahat, kimi DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com