Ինչպես ստանալ հաստատում Outlook-ում ձեր անձնական տեղեկություններով նամակներ ուղարկելուց առաջ

Կարող է բավականին վտանգավոր և անապահով լինել, եթե ուղարկեք ձեր անձնական տեղեկությունները պարունակող էլեկտրոնային նամակներ: Հետևաբար, այս գրառումը ձեզ կներկայացնի մի մեթոդ, որը կարող է թույլ տալ Outlook-ին հուշել ձեզ նման էլեկտրոնային նամակներ ուղարկելուց առաջ:

Մեր օրերում անվտանգության պոտենցիալ սպառնալիքներն ամենուր են: Այսպիսով, մենք պետք է մեծ ջանքեր գործադրենք մեր անձնական տեղեկությունները պաշտպանելու համար, ինչպիսիք են վարկային քարտերը, հաշվի տարբեր գաղտնաբառերը և այլ զգայուն տեղեկություններ և այլն: Հետևաբար, դուք պետք է ուշադրություն դարձնեք ձեր ամենօրյա առցանց վարքագծին, ներառյալ MS Outlook-ում հաղորդակցությունները:

Ավելի կոնկրետ, դուք պետք է զգույշ լինեք նամակներ ուղարկելիս՝ կանխելու ձեր անձնական տեղեկատվության արտահոսքը էլ. փոստի միջոցով: Այս դեպքում, գուցե դուք կցանկանաք, որ Outlook-ը կարողանա ավտոմատ կերպով հուշել ձեզ նախքան ձեր անձնական տվյալները պարունակող նամակներ ուղարկելը: Հետևյալում մենք ձեզ կառաջնորդենք, թե ինչպես դա իրականացնել VBA-ի միջոցով:

Ստացեք հաստատում նախքան ձեր անձնական տեղեկություններով նամակներ ուղարկելը

1. Հենց սկզբում դուք պետք է նշեք ձեր անձնական տվյալները: Քանի որ ես սովորաբար պահում եմ իմ բոլոր անձնական տեղեկությունները Excel ֆայլում, ես այն կվերցնեմ որպես օրինակ, ինչպես հետևյալ սքրինշոթը.
2. Եթե ​​դուք պահպանել եք նման Excel ֆայլ, կարող եք գործարկել ձեր Outlook ծրագիրը։
3. Դրանից հետո Outlook- ի հիմնական պատուհանում սեղմեք «Alt + F11» ստեղնաշարի կոճակները:
4. Հաջորդը գտեք և բացեք «ThisOutlookSession» նախագիծը Outlook VBA խմբագրում:
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.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf շտկել և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com