Jak získat potvrzení před odesláním e-mailů s vašimi soukromými informacemi v aplikaci Outlook

Odesílání e-mailů obsahujících vaše soukromé informace může být poměrně nebezpečné a nejisté. Proto vám tento příspěvek představí metodu, která vám umožní Outlooku zobrazit výzvu před odesláním takových e-mailů.

V dnešní době jsou potenciální bezpečnostní hrozby všude kolem. Měli bychom se proto hodně snažit chránit naše vlastní soukromé informace, jako jsou kreditní karty, různá hesla k účtům a další citlivé informace atd. Proto byste měli věnovat pozornost svému každodennímu online chování, včetně komunikace v MS Outlook.

Přesněji řečeno, při odesílání e-mailů byste měli být opatrní, abyste zabránili úniku jakýchkoli vašich soukromých informací prostřednictvím e-mailů. V tomto případě možná budete chtít, aby vás aplikace Outlook automaticky vyzvala před odesláním e-mailů, které obsahují vaše soukromé informace. V následujících bodech vás provedeme, jak to realizovat pomocí VBA.

Před odesláním e-mailů s vašimi soukromými informacemi získáte potvrzení

1. Hned na začátku musíte uvést své soukromé informace. Protože obvykle ukládám všechny své soukromé informace do souboru aplikace Excel, vezmu to jako instanci, jako je následující snímek obrazovky:
2. Pokud jste si takový soubor aplikace Excel uchovali, můžete spustit aplikaci Outlook.
3. Poté stiskněte „Alt + F11“ v hlavním okně aplikace Outlook.
4. Dále najděte a otevřete projekt „ThisOutlookSession“ v editoru Outlook VBA.
5. Následně zkopírujte následující kódy VBA do tohoto 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

6. Poté podepište tento kód a změňte nastavení maker aplikace Outlook.
7. Od této chvíle bude aplikace Outlook při každém odesílání e-mailů automaticky kontrolovat, zda její tělo obsahuje nějaké informace o souboru Excel.
8. Pokud obsahuje, obdržíte potvrzení jako na obrázku níže:
9. Pokud zvolíte „Ano“, bude e-mail odeslán jako obvykle. Jinak bude odeslání zrušeno.

Chraňte své cenné údaje PST

Vzhledem k tomu, že je aplikace Outlook zranitelná, je obtížným úkolem bránit svá data PST. Nejprve musíte vytrvat v pravidelném zálohování souboru PST. Kromě toho musíte mít silný a dobře osvědčený Oprava PST šikovný nástroj, jako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně mdf opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com