Kuinka saada vahvistus ennen kuin lähetät sähköpostit henkilökohtaisilla tiedoillasi Outlookissa

Yksityisiä tietojasi sisältävien sähköpostien lähettäminen voi olla melko vaarallista ja turvatonta. Siksi tässä artikkelissa esitellään menetelmä, jonka avulla Outlook voi kysyä sinulta ennen tällaisten sähköpostien lähettämistä.

Nykyään mahdollisia turvallisuusuhkia on kaikkialla. Siksi meidän tulee tehdä paljon ponnisteluja omien yksityisten tietojemme, kuten luottokorttien, eri tilien salasanojen ja muiden arkaluontoisten tietojen, turvaamiseksi jne. Siksi sinun tulee kiinnittää huomiota päivittäiseen verkkokäyttäytymiseen, mukaan lukien MS Outlook -viestintään.

Tarkemmin sanottuna sinun tulee olla varovainen lähettäessäsi sähköposteja, jotta yksityisiä tietojasi ei pääse vuotamaan sähköpostien kautta. Tässä tapauksessa saatat haluta, että Outlook voi automaattisesti pyytää sinua ennen kuin lähetät sähköpostit, jotka sisältävät yksityisiä tietojasi. Seuraavassa opastamme sinua toteuttamaan sen VBA:n kautta.

Pyydä vahvistus ennen kuin lähetät sähköpostit henkilötietojesi kanssa

1. Heti alussa sinun on määritettävä henkilökohtaiset tietosi. Koska yleensä tallennan kaikki yksityiset tietoni Excel-tiedostoon, otan sen esimerkkinä, kuten seuraavan kuvakaappauksen:
2. Jos olet säilyttänyt tällaisen Excel-tiedoston, voit käynnistää Outlook-sovelluksesi.
3. Paina sitten "Alt + F11" -näppäimiä Outlookin pääikkunassa.
4. Etsi ja avaa seuraavaksi "ThisOutlookSession" -projekti Outlook VBA -editorissa.
5. Kopioi sitten seuraavat VBA-koodit tähän projektiikkunaan.

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. Sen jälkeen allekirjoita tämä koodi ja muuta Outlook-makroasetuksia.
7. Tästä eteenpäin joka kerta kun lähetät sähköpostiviestejä, Outlook tarkistaa automaattisesti, sisältääkö sen runko-osa Excel-tiedoston tietoja.
8. Jos se sisältää, saat alla olevan kuvan kaltaisen vahvistuksen:
9. Jos valitset "Kyllä", sähköposti lähetetään normaalisti. Muussa tapauksessa lähetys peruuntuu.

Suojaa arvokkaat PST-tietosi

Koska Outlook on haavoittuvainen, PST-tietojen puolustaminen on työlästä. Ensinnäkin, sinun on jatkettava PST-tiedostosi säännöllisten varmuuskopioiden tekemistä. Lisäksi sinun on pidettävä voimakas ja hyvin todistettu PST-korjaus työkalu kätevä, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com