Shaxsiy ma'lumotlaringizni o'z ichiga olgan elektron pochta xabarlarini yuborsangiz, bu juda xavfli va xavfsiz bo'lmasligi mumkin. Shuning uchun, ushbu post sizga Outlook sizga bunday elektron pochta xabarlarini yuborishdan oldin xabar berishiga imkon beradigan usulni taqdim etadi.
Hozirgi vaqtda xavfsizlikka potentsial tahdidlar mavjud. Shunday qilib, biz o'z shaxsiy ma'lumotlarimizni himoya qilish uchun ko'p harakat qilishimiz kerak, masalan, kredit kartalari, turli xil hisob parollari va boshqa nozik ma'lumotlar va hokazo. Shuning uchun siz kundalik onlayn xatti-harakatlaringizga, jumladan MS Outlook-dagi muloqotingizga e'tibor berishingiz kerak.
Aniqroq aytganda, shaxsiy ma'lumotlaringiz elektron pochta orqali sizib ketishining oldini olish uchun elektron pochta xabarlarini yuborishda ehtiyot bo'lishingiz kerak. Bunday holda, ehtimol siz shaxsiy ma'lumotlaringizni o'z ichiga olgan xatlarni yuborishdan oldin Outlook sizga avtomatik ravishda so'rashini xohlaysiz. Quyida biz sizga buni VBA orqali qanday amalga oshirishni ko'rsatamiz.
Shaxsiy ma'lumotlaringiz bilan elektron pochta xabarlarini yuborishdan oldin tasdiqlashni oling
- Eng boshida shaxsiy ma'lumotlaringizni ko'rsatishingiz kerak. Men odatda barcha shaxsiy ma'lumotlarimni Excel faylida saqlaganim uchun uni quyidagi skrinshot kabi misol qilib olaman:
- Agar sizda shunday Excel fayli bo'lsa, Outlook ilovasini ishga tushirishingiz mumkin.
- Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
- Keyin Outlook VBA muharririda "ThisOutlookSession" loyihasini toping va oching.
- Keyinchalik, ushbu loyiha oynasiga quyidagi VBA kodlarini nusxalang.
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
- Shundan so'ng, ushbu kodni imzolang va Outlook makro sozlamalarini o'zgartiring.
- Bundan buyon, siz har safar elektron pochta xabarlarini yuborganingizda, Outlook o'z tanasida Excel fayli ma'lumotlari mavjudligini avtomatik tekshiradi.
- Agar u mavjud bo'lsa, siz quyidagi rasmdagi kabi tasdiqlashni olasiz:
- Agar siz “Ha” ni tanlasangiz, elektron pochta xabari odatdagidek yuboriladi. Aks holda, yuborish bekor qilinadi.
Qimmatli PST ma'lumotlaringizni himoya qiling
Outlook zaif bo'lganligi sababli, PST ma'lumotlaringizni himoya qilish juda qiyin vazifadir. Birinchidan, PST faylingiz uchun muntazam zaxira nusxalarini yaratishda davom etishingiz kerak. Bundan tashqari, siz kuchli va yaxshi tasdiqlangan saqlashingiz kerak PST ta'mirlash asbob qulay, kabi DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com