Outlookで個人情報を記載した電子メールを送信する前に確認を取得する方法

Outlookソリューション 2025 年 9 月 29 日

個人情報を含むメールを送信することは、非常に危険でセキュリティ上のリスクを伴います。そこで、この記事では、そのようなメールを送信する前にOutlookで確認メッセージを表示する方法をご紹介します。

今日、潜在的なセキュリティの脅威はいたるところにあります。したがって、クレジットカード、さまざまなアカウントパスワード、その他の機密情報など、私たち自身の個人情報を保護するために多くの努力を払う必要があります。したがって、MS Outlookでの通信を含め、日常のオンライン行動に注意を払う必要があります。

具体的には、電子メールを送信するときは、個人情報が電子メールを介して漏洩しないように注意する必要があります。この場合、個人情報を含むメールを送信する前に、Outlookが自動的にプロンプトを表示できるようにしたいと思うかもしれません。以下では、VBAを介してそれを実現する方法を説明します。

個人情報を記載したメールを送信する前に確認を取得する

最初に、個人情報を指定する必要があります。私は通常、すべての個人情報をExcelファイルに保存しているので、次のスクリーンショットのようにインスタンスを作成します。
そのようなExcelファイルを保存している場合は、Outlookアプリケーションを起動できます。
次に、Outlookのメインウィンドウで「Alt + F11」キーボタンを押します。
次に、OutlookVBAエディターで「ThisOutlookSession」プロジェクトを見つけて開きます。
続いて、次の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.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdf修正と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com