Kā saņemt apstiprinājumu pirms e-pastu nosūtīšanas ar savu privāto informāciju programmā Outlook

E-pasta ziņojumu sūtīšana, kas satur jūsu privāto informāciju, var būt diezgan bīstama un nedroša. Tāpēc šajā ierakstā jūs iepazīstināsim ar metodi, kas ļauj programmai Outlook jūs pārliecināt pirms šādu e-pasta ziņojumu sūtīšanas.

Mūsdienās iespējamie drošības draudi ir visapkārt. Tādējādi mums jāpieliek daudz pūļu, lai aizsargātu mūsu pašu privāto informāciju, piemēram, kredītkartes, dažādas konta paroles un citu sensitīvu informāciju utt. Tādēļ jums jāpievērš uzmanība ikdienas uzvedībai tiešsaistē, tostarp saziņai MS Outlook.

Precīzāk, jums jāievēro piesardzība, sūtot e-pastus, lai nepieļautu, ka jebkura jūsu privātā informācija tiek nopludināta pa e-pastu. Šajā gadījumā jūs, iespējams, vēlēsities, lai programma Outlook jūs varētu automātiski pamudināt, pirms sūtāt vēstules, kurās ir jūsu privātā informācija. Turpmāk mēs palīdzēsim jums to realizēt, izmantojot VBA.

Pirms e-pasta ziņojumu sūtīšanas ar savu privāto informāciju saņemiet apstiprinājumu

1. Pašā sākumā jums jānorāda sava privātā informācija. Tā kā es parasti glabā visu savu privāto informāciju Excel failā, es to ņemšu par piemēru, piemēram, šo ekrānuzņēmumu:
2. Ja esat saglabājis šādu Excel failu, varat startēt savu Outlook lietojumprogrammu.
3. Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
4. Pēc tam atrodiet un atveriet projektu “ThisOutlookSession” Outlook VBA redaktorā.
5. Pēc tam šajā projekta logā nokopējiet šādus VBA kodus.

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. Pēc tam parakstiet šo kodu un mainiet Outlook makro iestatījumus.
7. Turpmāk katru reizi, kad sūtāt e-pastus, programma Outlook automātiski pārbaudīs, vai tā pamattekstā ir kāda informācija par Excel failu.
8. Ja tas satur, jūs saņemsit apstiprinājumu, piemēram, zemāk redzamo attēlu:
9. Ja atlasīsit “Jā”, e-pasts tiks nosūtīts kā parasti. Pretējā gadījumā sūtīšana tiks atcelta.

Aizsargājiet savus vērtīgos PST datus

Tā kā programma Outlook ir neaizsargāta, PST datu aizstāvēšana ir grūts uzdevums. Pirmkārt, jums ir jāturpina regulāri veikt PST faila dublējumkopijas. Turklāt jums ir jāsaglabā spēcīgs un labi pierādīts PST remonts rīks ērts, piemēram DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar