Надсилання електронних листів, що містять вашу особисту інформацію, може бути досить небезпечним та ненадійним. Тому в цій публікації буде представлено метод, який дозволить Outlook запитувати вас перед надсиланням таких листів.
У наш час потенційні загрози безпеці є навколо. Таким чином, нам слід докласти багато зусиль для захисту власної приватної інформації, наприклад, кредитних карток, різних паролів облікових записів та іншої конфіденційної інформації тощо. Отже, ви повинні звертати увагу на свою щоденну поведінку в Інтернеті, включаючи спілкування в MS Outlook.
Більш конкретно, ви повинні бути обережними під час надсилання електронних листів, щоб запобігти витоку будь-якої вашої приватної інформації через електронні листи. У цьому випадку, можливо, ви побажаєте, щоб Outlook автоматично запитував вас перед тим, як надсилати листи, що містять вашу особисту інформацію. Далі ми допоможемо вам реалізувати це за допомогою VBA.
Отримайте підтвердження перед відправкою електронних листів із вашою приватною інформацією
- З самого початку ви повинні вказати свою особисту інформацію. Оскільки я зазвичай зберігаю всю свою приватну інформацію у файлі Excel, я візьму її за екземпляр, як на наступному скріншоті:
- Якщо ви зберегли такий файл Excel, ви можете запустити свою програму Outlook.
- Потім натисніть клавіші “Alt + F11” у головному вікні Outlook.
- Далі знайдіть і відкрийте проект “ThisOutlookSession” у редакторі Outlook VBA.
- Згодом скопіюйте наступні коди 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 та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com