Wysyłanie wiadomości e-mail zawierających Twoje dane osobowe może być bardzo niebezpieczne i ryzykowne. Dlatego w tym poście przedstawimy metodę, dzięki której Outlook będzie Cię informował o tym przed wysłaniem takich wiadomości.
W dzisiejszych czasach potencjalne zagrożenia bezpieczeństwa są wszędzie. Dlatego powinniśmy dołożyć wszelkich starań, aby chronić nasze prywatne informacje, takie jak karty kredytowe, różne hasła do kont i inne poufne informacje, itp. Dlatego należy zwracać uwagę na swoje codzienne zachowania online, w tym komunikację w programie MS Outlook.
Mówiąc dokładniej, należy zachować ostrożność podczas wysyłania wiadomości e-mail, aby zapobiec ujawnieniu jakichkolwiek prywatnych informacji za pośrednictwem wiadomości e-mail. W takim przypadku być może będziesz chciał, aby program Outlook mógł automatycznie wyświetlać monit przed wysłaniem wiadomości zawierających prywatne informacje. Poniżej poprowadzimy Cię, jak zrealizować to za pomocą VBA.
Uzyskaj potwierdzenie przed wysłaniem wiadomości e-mail ze swoimi prywatnymi danymi
- Na samym wstępie musisz podać swoje prywatne informacje. Ponieważ zwykle przechowuję wszystkie moje prywatne informacje w pliku Excel, wezmę to na przykład, jak na poniższym zrzucie ekranu:
- Jeżeli masz taki plik Excela, możesz uruchomić aplikację Outlook.
- Następnie naciśnij klawisze „Alt + F11” w głównym oknie Outlooka.
- Następnie znajdź i otwórz projekt „ThisOutlookSession” w edytorze VBA programu Outlook.
- Następnie skopiuj następujące kody VBA do tego okna projektu.
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
- Następnie podpisz ten kod i zmień ustawienia makr programu Outlook.
- Odtąd za każdym razem, gdy wysyłasz e-maile, Outlook będzie automatycznie sprawdzał, czy jego treść zawiera jakiekolwiek informacje z pliku Excel.
- Jeśli zawiera, otrzymasz potwierdzenie, takie jak na poniższym obrazku:
- Jeśli wybierzesz „Tak”, wiadomość e-mail zostanie wysłana w zwykły sposób. W przeciwnym razie wysyłka zostanie anulowana.
Chroń swoje cenne dane PST
Ze względu na to, że Outlook jest podatny na ataki, ochrona danych PST jest żmudnym zadaniem. Po pierwsze, musisz wytrwać w tworzeniu regularnych kopii zapasowych pliku PST. Ponadto musisz zachować mocny i dobrze sprawdzony Naprawa PST poręczne narzędzie, np DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym poprawka mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com