Може да бъде доста опасно и несигурно, ако изпращате имейли, които съдържат вашата лична информация. Затова тази публикация ще ви представи метод, който може да позволи на Outlook да ви подкани, преди да изпратите такива имейли.
В днешно време потенциалните заплахи за сигурността са навсякъде. По този начин трябва да положим много усилия, за да защитим нашата лична информация, като кредитни карти, различни пароли за акаунти и друга чувствителна информация и т.н. Следователно, трябва да обърнете внимание на ежедневното си онлайн поведение, включително комуникациите в MS Outlook.
По-конкретно, трябва да сте предпазливи, когато изпращате имейли, за да предотвратите изтичането на частна информация от вас чрез имейли. В този случай може би ще пожелаете Outlook да ви подкани автоматично, преди да изпратите имейли, съдържащи вашата лична информация. По-нататък ще ви насочим как да го реализирате чрез VBA.
Вземете потвърждение, преди да изпратите имейли с вашата лична информация
- В самото начало трябва да посочите личната си информация. Тъй като обикновено съхранявам цялата си лична информация във файл на Excel, ще го направя като екземпляр, като следната екранна снимка:
- Ако сте запазили такъв Excel файл, можете да стартирате приложението си Outlook.
- След това натиснете бутоните „Alt + F11“ в главния прозорец на Outlook.
- След това намерете и отворете проекта „ThisOutlookSession“ в редактора на VBA на Outlook.
- Впоследствие копирайте следните 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
- След това подпишете този код и променете настройките на макроса на Outlook.
- Отсега нататък, всеки път, когато изпращате имейли, Outlook автоматично ще проверява дали тялото му съдържа информация за файла на Excel.
- Ако съдържа, ще получите потвърждение като изображението по-долу:
- Ако изберете „Да“, имейлът ще бъде изпратен както обикновено. В противен случай изпращането ще бъде анулирано.
Защитете своите ценни PST данни
Поради факта, че Outlook е уязвим, е трудна задача да защитите вашите PST данни. Първо, трябва да продължите да правите редовни резервни копия на вашия PST файл. Освен това трябва да запазите мощен и добре доказан PST ремонт инструмент удобен, като DataNumen Outlook Repair.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com