Ako získať potvrdenie pred odoslaním e-mailov s vašimi súkromnými informáciami v programe Outlook

Odosielanie e-mailov, ktoré obsahujú vaše súkromné ​​informácie, môže byť dosť nebezpečné a neisté. Preto vám tento príspevok predstaví metódu, ktorá vám umožní Outlooku zobraziť výzvu pred odoslaním takýchto e-mailov.

V dnešnej dobe sú potenciálne bezpečnostné hrozby všade naokolo. Preto by sme mali vyvinúť veľké úsilie na ochranu našich súkromných informácií, ako sú kreditné karty, rôzne heslá účtov a iné citlivé informácie atď. Preto by ste mali venovať pozornosť svojmu každodennému správaniu online, vrátane komunikácie v aplikácii MS Outlook.

Pri odosielaní e-mailov by ste mali byť predovšetkým opatrní, aby ste zabránili úniku akýchkoľvek svojich súkromných informácií prostredníctvom e-mailov. V takom prípade možno budete chcieť, aby vás program Outlook automaticky vyzval pred odoslaním e-mailov, ktoré obsahujú vaše súkromné ​​informácie. V nasledujúcom texte vás prevedieme návodom, ako to realizovať pomocou VBA.

Pred odoslaním e-mailov s vašimi súkromnými informáciami získate potvrdenie

1. Hneď na úvod musíte uviesť svoje osobné údaje. Pretože zvyčajne ukladám všetky svoje súkromné ​​informácie do súboru programu Excel, vezmem ich ako príklad, napríklad na nasledujúcom obrázku:
2. Ak ste si uchovali takýto súbor programu Excel, môžete spustiť aplikáciu Outlook.
3. Potom stlačte klávesy „Alt + F11“ v hlavnom okne programu Outlook.
4. Ďalej vyhľadajte a otvorte projekt „ThisOutlookSession“ v editore Outlook VBA.
5. Následne skopírujte nasledujúce kódy VBA do tohto 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. Potom podpíšte tento kód a zmeňte nastavenia makra programu Outlook.
7. Odteraz bude Outlook pri každom odosielaní e-mailov automaticky kontrolovať, či jeho telo obsahuje nejaké informácie o súbore Excel.
8. Ak obsahuje, dostanete potvrdenie ako na obrázku nižšie:
9. Ak vyberiete možnosť „Áno“, e-mail sa odošle ako obvykle. V opačnom prípade bude odoslanie zrušené.

Chráňte svoje cenné údaje PST

Vzhľadom na to, že je program Outlook zraniteľný, je náročnou úlohou chrániť vaše údaje PST. Najskôr musíte vytrvalo vytvárať pravidelné zálohy pre svoj súbor PST. Okrem toho musíte mať silný a dobre osvedčený Oprava PST nástroj šikovný, ako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane mdf opraviť a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S