Das Versenden von E-Mails mit privaten Informationen kann gefährlich und unsicher sein. Daher stellt Ihnen dieser Beitrag eine Methode vor, mit der Outlook Sie vor dem Absenden solcher E-Mails benachrichtigen kann.
Heutzutage gibt es überall potenzielle Sicherheitsbedrohungen. Daher sollten wir große Anstrengungen unternehmen, um unsere eigenen privaten Daten wie Kreditkarten, verschiedene Kontokennwörter und andere vertrauliche Informationen usw. zu schützen. Daher sollten Sie auf Ihr tägliches Online-Verhalten achten, einschließlich der Kommunikation in MS Outlook.
Insbesondere sollten Sie beim Versenden von E-Mails vorsichtig sein, um zu verhindern, dass Ihre privaten Daten durch E-Mails preisgegeben werden. In diesem Fall möchten Sie möglicherweise, dass Outlook Sie automatisch auffordert, bevor Sie E-Mails senden, die Ihre privaten Daten enthalten. Im Folgenden zeigen wir Ihnen, wie Sie dies per VBA realisieren.
Holen Sie sich eine Bestätigung, bevor Sie E-Mails mit Ihren privaten Daten senden
- Gleich zu Beginn müssen Sie Ihre privaten Daten angeben. Da ich normalerweise alle meine privaten Informationen in einer Excel-Datei speichere, nehme ich eine Instanz, wie im folgenden Screenshot:
- Wenn Sie eine solche Excel-Datei gespeichert haben, können Sie Ihre Outlook-Anwendung starten.
- Drücken Sie dann die Tasten „Alt + F11“ im Outlook-Hauptfenster.
- Suchen und öffnen Sie als Nächstes das Projekt „ThisOutlookSession“ im Outlook VBA-Editor.
- Kopieren Sie anschließend die folgenden VBA-Codes in dieses Projektfenster.
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
- Signieren Sie anschließend diesen Code und ändern Sie Ihre Outlook-Makroeinstellungen.
- Von nun an prüft Outlook jedes Mal, wenn Sie E-Mails senden, automatisch, ob der Textkörper Informationen der Excel-Datei enthält.
- Wenn es Folgendes enthält, erhalten Sie eine Bestätigung wie im Bild unten:
- Wenn Sie „Ja“ auswählen, wird die E-Mail wie gewohnt versendet. Andernfalls wird der Versand abgebrochen.
Schützen Sie Ihre wertvollen PST-Daten
Da Outlook angreifbar ist, ist es eine mühsame Aufgabe, Ihre PST-Daten zu schützen. Erstens müssen Sie darauf bestehen, regelmäßige Backups Ihrer PST-Datei zu erstellen. Darüber hinaus müssen Sie ein wirksames und bewährtes Produkt verwenden PST-Reparatur Werkzeug handlich, wie DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf-fix und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX